首先需要引用Microsoft的DLL，打开references管理器勾上Microsoft XML接下来便可以使用MSXML DOM（如果不清楚MSXML的，科普）创建文档对象、节点、节点列表Dim xmlDom As MSXML2.DOMDocument
Dim xmlNode As MSXML2.IXMLDOMNode
Dim xmlNodeList As MSXML2.IXMLDOMNod
'ret = Shell("C:\ExportSheetTxtFiles\DF.EXE C:\ExportSheetTxtFiles\t.txt C:\ExportSheetTxtFiles\t2.txt", 1)
Public Sub CompareFiles(ByVal filePath1 As String, ByVal filePath2
Sub LoadExcelData()
Dim wkbk As Workbook '定义一个工作薄
Dim myFileName As String '定义要读取的文件路径
Dim rgA1 As String'定义要读取的单元格A1
Dim rgB10 As String'定义要读取的单元格B10
myFileName = Application.Get
