将excel另存为文件错误，在线等啊！

[cznxxjf]

将一个excel对象另存为一个文件，以下两种代码试过，

x1Book.SaveAs App.Path & "\test.xls"

x1Book.Close True

但均提示错误“对象变量或With块变量未设置！”
在线等啊

[supergreenbean]

那非常肯定的告诉你 x1Book对象肯定是Nothing

再问一句,x1Book对象今天你创建了么?

[truewill]

x1Book没有定义还是怎么来着
set x1book = .....

[cznxxjf]

以下是全部代码：

Dim xlApp As Excel.Application
Dim x1Book As Excel.Workbook
Dim x1Sheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\有金额.xls") '打开EXCEL工作簿
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlSheet.Activate '激活工作表

xlSheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlApp.Save App.Path & "\test.xls"

[cznxxjf]

哦，好了
但是怎么关闭打开的EXCEL对象啊？

[早起旺财]

Set Aexcel = New Excel.Application
Set aWbook = Aexcel.Workbooks.Add
Set Asheet = Aexcel.Sheets(1)

Aexcel.Visible = False

…………
Aexcel.Quit

Set Asheet = Nothing
Set aWbook = Nothing
Set Aexcel = Nothing