Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim ExcelSheet
Dim i
Dim j
Set ExcelSheet = CreateObject("Excel.Application")
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 '这里退出xcel
End With

End Sub

这个在VBS中测试过 我想不必加注释了