EXCEL的SAVEAS问题

[fyming]

Dim AppExcel As New Excel.Application
Dim WbExcel As New Excel.Workbook
Dim ShExcel As New Excel.Worksheet

Set AppExcel = CreateObject("Excel.Application")
AppExcel.DisplayAlerts = False
AppExcel.Visible = False

Set WbExcel = AppExcel.Workbooks.Add()
Set ShExcel = WbExcel.Sheets(1)
ShExcel.Range(.Cells(3, 2), .Cells(10, 5)).Value = 数组

WbExcel.SaveAs(文件名)

If MsgBox(“是否现在打开Excel文档?”, vbYesNo, "") = vbYes Then
AppExcel.Visible = True
Else
WbExcel.Close
Set WbExcel = Nothing
AppExcel.Quit
Set AppExcel = Nothing
End If
---------------------------------------
目的：将数组导出为EXCEL文件
问题：程序执行过程中未报错，导出后打开导出的文档，发现没有任何数据写入。我在WbExcel.SaveAs(文件名)
的地方设置了一个中断，未发现问题，此时ShExcel的相关地方都有对应数据，但为何SAVESA之后反而没有数据了呢？

真的晕死了，兄弟们救命啊！

[qap22]

不懂，up

[filec75]

帮顶

[fyming]

答案已找到，无关SAVEAS，但都还是感谢上面两位捧场。