'Set xlBook = xlApp.Workbooks.Open("文件名") '打開已經存在的EXCEL工件簿文件
'xlApp.Visible = True '設置EXCEL對象可見(或不可見)
'Set xlSheet = xlBook.Worksheets("表名") '設置活動工作表
'Range("K12").Select 設置活動單元格
'xlSheet.Cells(Row, col) = 值 '給單元格(row,col)賦值
'xlSheet.PrintOut '打印工作表
'xlBook.Close (True) '關閉工作簿
'xlApp.Quit '結束EXCEL對象
'Set xlApp = Nothing '釋放xlApp對象.
'xlBook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏
'xlBook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏
'xlBook.Worksheets.Count '工作簿標簽總數
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
On Error Resume Next
Workbooks.Add '新建工作簿
MkDir "C:\123"
ChDir "C:\123" '在桌面上建“123”文件夾
'以下是將文件保存到“C:\\模板.xls”
ActiveWorkbook.SaveAs FileName:= _
"C:\123\模板.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Windows("模板.xls").Activate
xlApp.Visible = True
'Sheets("Sheet1").Select
Sheets.Add '新建工作表
Sheets("Sheet2").Name = "新建工作表"
'Sheets("Sheet3").Name = "Sheet"
ActiveWorkbook.Sheets("新建工作表").Tab.ColorIndex = 7 '給工作表標簽指定顏色
xlApp.Worksheets("新建工作表").Range("A1").Cells(3, 2) = "添加數據"
'xlApp.Worksheets(Sheets(i).Name).Range("A1").Cells(j, 2) = "@"
'ActiveWorkbook.Sheets("考評").Tab.ColorIndex = 7
'ActiveWorkbook.Sheets("教師任課").Tab.ColorIndex = 7
'ActiveWorkbook.Sheets("班級設置").Tab.ColorIndex = 7
'ActiveWorkbook.Sheets("Zxmd").Tab.ColorIndex = 32
xlBook.Save
xlApp.Save
ActiveWorkbook.Close
xlBook.Close (True) '關閉工作簿
xlApp.Quit '結束EXCEL對象.
Set xlApp = Nothing '釋放xlApp對象
End Sub
還可以到我博客中參閱其他有關代碼/zgmg/blog/item/267a548dfbdff11fb21bba54.html