Sub openExcel()
Dim ExcelSheet As Object
Dim i As Integer, j As Integer
Set ExcelSheet = CreateObject("Excel.Sheet")
With ExcelSheet.Application
.Visible = True 'Excel 可见
.Workbooks.Add

With .Sheets("sheet1")
.Activate
For i = 1 To 10
For j = 1 To 11
.Cells(i, j).value = i + j
Next
Next
End With

.ActiveWorkbook.SaveAs Filename:="f:\a.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'.quit '这里退出Excel
End With

End Sub

在VBA中测试正常