2

次のコードを使用して複数のxmlファイルを開きますが、読み取り専用のブックとして開いていますが、XMLテーブルとして開く必要があります。何か提案はありますか？

コード：

Sub AllFolderFiles()
    Dim wb As Workbook
    Dim TheFile As String
    Dim MyPath As String
    MyPath = "C:\Documents and Settings\"
    ChDir MyPath
    TheFile = Dir("*.xml")
    Do While TheFile <> ""
        'Call Logs 'This calls for Macro2 to run
        Set wb = Workbooks.Open(MyPath & "\" & TheFile)
        MsgBox wb.FullName
        'wb.Close
        TheFile = Dir
    Loop
End Sub
4

1 に答える 1

1

Workbooks.OpenXML代わりに使用する必要があります

Set wb = Workbooks.OpenXML(Filename:=MyPath & "\" & TheFile, LoadOption:=xlXmlLoadImportToList)

使用するLoadOptionは正確にはわかりませんが、次から選択できます。

  • xlXmlLoadImportToListXMLリストを自動的に作成し、データをリストにインポートします。
  • xlXmlLoadMapXmlXMLファイルをXMLソース作業ウィンドウにロードします。
  • xlXmlLoadOpenXmlExcel 2002がXMLファイルを開くのと同じ方法でXMLファイルを開きます（下位互換性のためのみ）。
  • xlXmlLoadPromptUserユーザーにプロンプ​​トを表示し、インポート方法を選択できるようにします。
于 2013-01-10T12:25:07.320 に答える