Dim objExcel
Dim objWorkbook
Dim objWorksheet
Set objExcel=CreateObject("Excel.Application")
If objExcel Is Nothing Then
MsgBox "Excel file can't create",vbCritical,"Error"
Exit Sub
End If
objExcel.visible=False
Set objWorkbook = objExcel.Workbooks.Add
Set objFSO = CreateObject("s cripting.FileSystemObject")
If objFSO.FolderExists(文件路径) Then
MsgBox "file exist"
Else
Set objFolder = objFSO.CreateFolder(文件路径)
End If
objWorkbook.Saveas 文件路径
Set objWorkbook=objExcel.Workbooks.Open(文件路径)
Set objWorksheet=objWorkbook.ActiveSheet
objWorksheet.cells(1,2).value=
。。。你可以操作

objExcel.ActiveWorkbook.Save
objExcel.Workbooks.Close
objExcel.Quit
Set objExcel = Nothing