VBA将Excel导出为XML格式并保存到特定目录

Question

我几乎完成了一个大型宏的构建，但我遇到了最后的绊脚石。我制作了一个带有期望值的工作表，现在需要将其导出为XML格式。我只需要导出这个名为“Output”的特定工作表。当我导出为文本时存在问题，因此必须创建一个Sub exportToXML以删除导出时产生的一些引号。这工作正常。但是当我导出时，我必须手动输入我想要的目录和文件名在输出文件上，这不好。目录可能会不时更改，文件名也会更改。

错误转到EndMacro时的Sub exportToXML（文件名为字符串，ws为工作表）：Dim FNum为整数FNum=FreeFile Dim startRow为长，endRow为长Dim startCol为整数，endCol为带ws的整数。UsedRange startRow=。单元格（1）。行startCol=。单元格（1）。列结束行=。单元格（.Cells.Count）。行结束列=。单元格（.Cells.Count）。柱端带有

Open fileNAme For Output Access Write As #FNum
Dim rowNdx As Long, colNdx As Integer
Dim wholeLine As String, cellValue As String
For rowNdx = startRow To endRow
    wholeLine = ""
    For colNdx = startCol To endCol
        If ws.Cells(rowNdx, colNdx).Value = "" Then
            cellValue = ""
        Else
            cellValue = ws.Cells(rowNdx, colNdx).Value
            If removeCommaNums Then
                If IsNumeric(cellValue) Then
                    cellValue = Replace(cellValue, ",", "")
                End If
            End If
        End If
        wholeLine = wholeLine & cellValue & sep
    Next colNdx
    wholeLine = Left(wholeLine, Len(wholeLine) - Len(sep))
    Print #FNum, wholeLine; " "
Next rowNdx
EndMacro:
On Error GoTo 0
Close #FNum
End Sub

Sub SaveAs()
fmt As String, Directory As String, tradeid As String
fmt = ".txt"
tradeid = Worksheets("XML Instruction").Range("B16").Value
Directory = Worksheets("EUC").Range("C7").Value
Dim op As Worksheet
Set op = Sheets("Output")

exportToXML "I:\test.txt", op

End Sub

SavAs Sub的最后一部分是我的问题所在：-exportToXML“I:\test.txt”，op。我必须手动输入位置（I：）和文件名（test）才能获得任何输出文件。

我可以不引用目录吗

Answer 1

你可以的。简单地写：

exportToXML目录

确保目录是有效的目录，并且tradeid没有不允许的特殊字符。