试试这个
Dim objExcelApp,oWorkBook
Set objExcelApp=CreateObject("Excel.Application.9")
objExcelApp.Visible=False
Set oWorkBook=objExcelApp.Workbooks.Open("d:\book1.xls")
Dim iBlankLine
iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find("").Row
objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.Tags("text_1").Read
objExcelApp.Cells(iBlankLine,2).Value=HMIRuntime.Tags("text_2").Read
objExcelApp.Cells(iBlankLine,3).Value=HMIRuntime.Tags("text_3").Read
objExcelApp.Cells(iBlankLine,4).Value=HMIRuntime.Tags("text_4").Read
oWorkBook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp=Nothing