Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Private Sub Command1_Click()
Set xlApp = New Excel.Application
Set xlbook = xlApp.Workbooks.Open("c:\temp\模板.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Range("A1") = "ABC"
xlbook.Save
xlbook.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
