Macro di EXCEL per aprire il file XML come una tabella XML piuttosto che una sola lettura della cartella di lavoro

Sto usando il seguente codice per aprire più file xml, tuttavia sono l’apertura di una sola lettura della cartella di lavoro, tuttavia ho bisogno per aprire in una tabella XML, qualche suggerimento?

Codice:

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
  • Sub AllFolderFiles() Dim wb Come Cartella di lavoro Dim TheFile As String Dim Percorso As String Percorso = “C:\Documents and Settings\anpuntam2fae\Desktop\Cilat_devp_Anand P” ChDir MyPath TheFile = Dir(“*.xml”) Do While TheFile <> “” ‘i Registri delle Chiamate ‘Questo chiede Macro2 per eseguire il Set wb = Cartelle di lavoro.Open(MyPath & “\” & TheFile) MsgBox wb.FullName ‘wb.Vicino TheFile = Dir Loop End Sub
InformationsquelleAutor Anand | 2013-01-10

 

One Reply
  1. 1

    È necessario utilizzare Workbooks.OpenXML invece

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

    Io non so esattamente che LoadOption che si desidera utilizzare, ma è possibile scegliere:

    • xlXmlLoadImportToList Crea automaticamente un Elenco XML e le importazioni
      i dati nell’elenco.
    • xlXmlLoadMapXml Carica il file XML nel riquadro attività Origine XML.
    • xlXmlLoadOpenXml Open XML file nello stesso modo in cui Excel 2002
      si apre un file XML (solo per retrocompatibilità).
    • xlXmlLoadPromptUser Richiede all’utente e consente loro di scegliere l’Importazione di
      metodo.
    • Grazie per l’aiuto di nick, ha funzionato , tuttavia, il nome del file che aperto nel mese sono stati nell’ordine di Cartella1, book2, book3, c’è un modo da cui il nome può essere mantenuto ?
    • mi dispiace @user1966602 io non sono veramente sicuro
    • Ho usesd il seguente pezzo di codice, trovare e sostituire, che è stato molto più semplice

Lascia un commento