用VBS脚本如下：
'-打开Excel文件
Dim objExcelApp,patch,X1,X2,X3
Set objExcelApp = CreateObject("Excel.Application")
patch = "d:\123.xls"
objExcelApp.Visible = False
objExcelApp.Workbooks.Open patch
objExcelApp.Worksheets("Sheet1").Activate
X1 = objExcelApp.Worksheets("Sheet1").Range("A1").value
X2 = objExcelApp.Worksheets("Sheet1").Range("B1").value
X3 = objExcelApp.Worksheets("Sheet1").Range("C2").value
'..........................
MsgBox "X1="& X1&";"&"X2="& X2&";"&"X3="& X3&";"
'其它语句........
'.........
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing