1 引入Microsoft Excel 10.0 Object Library
(项目->添加引用->Com)
2 Dim Excelapp As New Excel.Application
Dim Excelbook As Excel.Workbook
Dim Excelsheet As Excel.Worksheet
3 Set Excelbook = Excelapp.Workbooks.Open (App.path & "\工程进度表.xls")
Excelapp.Sheets("sheet1").Select
Set Excelsheet = Excelapp.Sheets("Sheet1")
4 Excelsheet.Cells(2, 1) = ....
5 Excelbook.Save
Excelapp.Visible = True
6 Excelsheet.Columns(i).ColumnWidth = 5.38
Excelsheet.Rows(i).RowHeight = 51
7 Set Excelapp = Nothing
Set Excelbook = Nothing
Set Excelsheet = Nothing