Question

我已经让VBA脚本正在扫描XML文件列表，然后将它们导入到单独的工作表中：

Sub adds()
For x = 1 To 5
Worksheets("zips").Select
Worksheets("zips").Activate
mystr = "http://example.com/data.xml"
mystr = Cells(x, 1)

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = x
ActiveWorkbook.XmlImport URL:=mystr, _
       ImportMap:= _
    Nothing, Overwrite:=True, Destination:=Range("$B$1")

Next x
End Sub

脚本运行正常，导入了带有正确表格的五个工作表，但我还要做的是确保将源URL（mystr）添加到$ A $ 1，$ A $ 2，$ A $ 3 ......每排前的细胞。最后，我将结合所有工作表，目标是按来源对组合条目进行排序。

这是我使用VBA的第一天，所以到目前为止这已经很难了，任何帮助都会非常感激！

Answer 1

我认为您需要做的就是反向第6行：

Sub adds()

For x = 1 To 5
Worksheets("zips").Select
Worksheets("zips").Activate
mystr = "http://example.com/data.xml"
Cells(x, 1).Value = mystr

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = x
ActiveWorkbook.XmlImport URL:=mystr, _
       ImportMap:= _
    Nothing, Overwrite:=True, Destination:=Range("$B$1")

Next x

End Sub

在回复评论时 - 尝试添加以下行：

i = 2
Do While Worksheets(CStr(x)).Cells(i, 2).Value <> ""
    Worksheets(CStr(x)).Cells(i, 1).Value = mystr
    i = i + 1
Loop

在Excel中使用VBA导入XML时插入源URL

1 个答案: