我有一个 Excel 工作表,我需要将范围 A:1 到 A 列中最后使用的单元格导出到 xml 文件。如何将导出的文件名设置为与我从中导出的文件相同?
Sub exportxmlfile()
Dim myrange As Range
Worksheets("xml").Activate
Set myrange = Range("A1:A20000")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\exports\2012\test.xml", True)
For Each c In myrange
a.WriteLine (c.Value)
Next c
a.Close
End Sub