엑셀을 빈 셀이있는 XML 스프레드 시트로 내보내기

Question

엑셀 통합 문서를 xml 스프레드 시트로 내보내는 중입니다. 엑셀은 10 열 10 행을 말합니다. 일부 셀은 비어 있습니다 (즉 값이 없음).

파일을 XML 스프레드 시트에 저장하고 빈 셀이있는 행을 검토하면 셀만 있습니다. 빈 값이있는 셀은 없으며 xml은 빈 칸 앞에 셀이 표시되고 빈 칸 다음에 셀이 차례로 나옵니다 (빈 셀은 존재하지 않습니다).

<Cell ss:StyleID="s36"><Data ss:Type="Number">cell1</Data><NamedCell 
    ss:Name="Print_Area"/></Cell> 
<Cell><Data ss:Type="String">cell2</Data><NamedCell ss:Name="Print_Area"/></Cell> 
<Cell><Data ss:Type="String">cell4</Data><NamedCell 
    ss:Name="Print_Area"/></Cell> 

누락 된 셀 CELL3입니다

---

공간을 절약하지 엑셀 요청할 수있는 방법이 있나요 : 여기

는 XML의 샘플입니다? 레크 리 에이션은 xslt를 사용하는 것처럼 쉽지 않습니다.

Answer 1

셀이 비어 있으면 공간을 절약하기위한 최적의 최적화 인 것처럼 보입니다. 누락되지 않아야합니다.

은 원래 스프레드 시트 정보가 그를 스프레드 시트를 다시 만들 수 있습니다이 저장되어 정확히

Answer 2

을 재현 할 수있는 충분한 정보를 가지고?

• 데이터, 빈, 데이터, 빈, 데이터
• 빈 빈 데이터, 데이터, 데이터, 빈
• 데이터, 빈, 데이터, 데이터

모든 : 이러한 행의 경우 줄

• 행
• 셀 데이터/데이터/셀
• 셀 데이터/데이터/셀
• 셀 데이터/데이터/셀
• /행

Answer 3

당신은 당신의 자신의 VBA 매크로를 만들 수 있습니다. 이 같은. 그리고 Microsoft.xml에 대한 참조를 추가하십시오.

Sub makeXml() 
    ActiveCell.SpecialCells(xlLastCell).Select 
    Dim lastRow, lastCol As Long 
    lastRow = ActiveCell.Row 
    lastCol = ActiveCell.Column 

    Dim iRow, iCol As Long 

    Dim xDoc As New DOMDocument 
    Dim rootNode As IXMLDOMNode 
    Set rootNode = xDoc.createElement("Root") 
    Dim rowNode As IXMLDOMNode 
    Dim colNode As IXMLDOMNode 

    'loop over the rows 
    For iRow = 2 To lastRow 
     Set rowNode = xDoc.createElement("Row") 
     'loop over the columns 
     For iCol = 1 To lastCol 
      If (Len(ActiveSheet.Cells(1, iCol).Text) > 0) Then 
       Set colNode = xDoc.createElement(GetXmlSafeColumnName(ActiveSheet.Cells(1, iCol).Text)) 

       colNode.Text = ActiveSheet.Cells(iRow, iCol).Text 
       rowNode.appendChild colNode 
      End If 
     Next iCol 
     rootNode.appendChild rowNode 
    Next iRow 
    xDoc.appendChild rootNode 

    fileSaveName = Application.GetSaveAsFilename(_ 
    fileFilter:="XML Files (*.xml), *.xml") 
     xDoc.Save (fileSaveName) 
    set xDoc = Nothing 

End Sub 
Function GetXmlSafeColumnName(name As String) 
    Dim ret As String 
    ret = name 
    ret = Replace(ret, " ", "_") 
    ret = Replace(ret, ".", "") 
    ret = Replace(ret, ",", "") 
    ret = Replace(ret, "&", "") 
    ret = Replace(ret, "!", "") 
    ret = Replace(ret, "@", "") 
    ret = Replace(ret, "$", "") 
    ret = Replace(ret, "#", "") 
    ret = Replace(ret, "%", "") 
    ret = Replace(ret, "^", "") 
    ret = Replace(ret, "*", "") 
    ret = Replace(ret, "(", "") 
    ret = Replace(ret, ")", "") 
    ret = Replace(ret, "-", "") 
    ret = Replace(ret, "+", "") 

    GetXmlSafeColumnName = ret 
End Function 

Answer 4

생략 된 빈 셀을 처리하기위한 코드를 작성하기 전에 동일한 문제가있었습니다. ss:Index 속성 값이있는 경우 Cell 요소를 사용하고 (자세한 내용은 XML Spreadsheet Reference을 읽고) Cell 내용을 올바른 색인 배열 위치에 저장하여 원래 셀 순서를 다시 작성하면됩니다.

<?php 
$doc = new DOMDocument('1.0', 'utf-8'); 
if (!$doc->load('sample.xml')) 
    die(); 

$root = $doc->documentElement; 
$root->removeAttributeNS($root->getAttributeNode('xmlns')->nodeValue, ''); 

$xpath = new DOMXPath($doc); 
foreach ($xpath->query('/Workbook/Worksheet/Table/Row') as $row) 
{ 
    $cells = array(); 
    $cell_index = 0; 
    foreach ($xpath->query('./Cell', $row) as $cell) 
    { 
     if ($cell->hasAttribute('ss:Index')) 
      $cell_index = $cell->getAttribute('ss:Index'); 
     else 
      ++$cell_index; 
     $cells[$cell_index - 1] = $cell->nodeValue; 
    } 
    // now process data 
    print_r($cells); 
} 

빈 셀은 배열에 추가되지 않지만 다른 모든 요소는 해당 위치에 있습니다. 필요한 경우 모든 행을 통해 가능한 최대 셀 인덱스 (테이블 열 수)를 계산할 수 있습니다.