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获取维基百科

将XML文件转换为Excel

1 个答案: