XML文件轉換到Excel

Question

我發現下面的代碼，但我不知道VBA - 我得到的第一行編譯錯誤：

Sub xmltoxl() 
Dim f As String 
Dim wbk As Workbook 
Dim s As Integer 

f = Dir("C:\Users\Kanye\Downloads\fwcommoncartridgesforsegtitles\zipped\basicLTILinks" & "\*.xml") 
s = 0 

Do While Len(f) > 0 
    s = s + 1 
    Set wbk = Workbooks.OpenXML("C:\Users\Kanye\Downloads\fwcommoncartridgesforsegtitles\zipped" & "\" & f) 
wbk.SaveAs Filename:="C:\Users\Kanye\Downloads\fwcommoncartridgesforsegtitles\zipped\" & s & ".xls" 
wbk.Close False 
f = Dir() 
Loop 

我爲我的.XLSM文件目錄： C： \用戶\坎耶\下載\ fwcommoncartridgesforsegtitles \ Texas_Gr6_IScience_2015

我的目錄爲我的.xml文件： C：\用戶\坎耶\下載\ fwcommoncartridgesforsegtitles \ Texas_Gr6_IScience_2015 \ basicLTILinks

我是不是把這些在正確的地方？

我想它，以便所有的XML文件被拉入一個CSV

Answer 1

我不是很確定你是不是意味着你能告訴我什麼錯誤。這裏有一些很不錯的資源

點擊[瀏覽]（http://www.appspro.com/Utilities/CodeCleaner.htm「代碼清洗」）的代碼更加

點擊here了維基百科