小编Gla*_*con的帖子

这是我将 excel 单元格写入 XML 文件的主要功能的标题。我想让这个调用另一个函数，它可以自己写一套。

Public Sub WriteXML()
Dim Sheet As Worksheet
Dim Cell As Range
Dim xmlFile

xmlFile = ThisWorkbook.Path & "\" & 'Test1' & ".xml"

Set Sheet = ActiveWorkbook.Worksheets("Sht1")
Open xmlFile For Output As #1
    Print #1, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & _
          " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>"
Call WriteCustomer(xmlFile)

这是第二个函数的开始，尽管我收到了“找不到对象”类型的错误。

Sub WriteCustomer(x As Variant)

Print x, "         <Customer>"
Print x, "             <First>" & 'Bill' & "</First>"
Print x, …