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

Question

将一个excel对象另存为一个文件，以下两种代码试过，    x1Book.SaveAs App.Path & "\test.xls"
    
    x1Book.Close True
    
但均提示错误“对象变量或With块变量未设置！”
在线等啊

Answer 1

那非常肯定的告诉你 x1Book对象肯定是Nothing再问一句,x1Book对象今天你创建了么?

Answer 2

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

Answer 3

以下是全部代码：    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"

Answer 4

用
set xlApp =new  Excel.Application
set x1Book = Excel.Workbook.add()
set x1Sheet = Excel.Worksheets("sheet1")
xlApp.Range("A1").value="abc"
试试,我这里是vb6.0

Answer 5

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

Answer 6

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