vb excel汇出问题，急！！！！！！！！！！！！！！！！

Question

xlapp.visible= Ture  '已经汇出成功，就是下面保存时出错
xlbook.saveAs savepath '写全格式也不行
报错：  automation 错误，伺服器丢出一个例外
请高手告诉帮看看，告诉我怎么做，谢谢，问题解决可加分！！！！！！！！！！！！！

Answer 1

Workbooks("book1").SaveAs "c:\1.xls"
运行正常呀

Answer 2

不正常，就这句运行完，下面的程式都不运行，就end sub了
我是写个自动汇出功能的程序，指定路径，如有解决方法或是别的方法，请指教

Answer 3

    SavePath = "E:\mail\" + FName1 + ".xls"
    Set xlapp = CreateObject("EXCEL.APPLICATION")
    Set xlbook = xlapp.Workbooks.Add
    Set xlSheet1 = xlbook.Worksheets(1)
    xlSheet1.Range("A:L").Columns.ColumnWidth = 12.5
    xlSheet1.Cells(1, 4) = "畐称ン獺"
    xlSheet1.Cells(2, 1) = "祘Α嘿:"
    xlSheet1.Cells(2, 2) = "畐称ン獺牡ボ秎ン"
    xlSheet1.Cells(3, 1) = "ら戳:"
    xlSheet1.Cells(3, 2) = Trim(Now())
        xlSheet1.Cells(5, 1) = "称ン嘿"
        xlSheet1.Cells(5, 2) = "称ン摸"
        xlSheet1.Cells(5, 3) = "称ンΩ摸"
        xlSheet1.Cells(5, 4) = "玻珇砏"
        xlSheet1.Cells(5, 5) = "称ン腹"
        xlSheet1.Cells(5, 6) = "恨腹"
         i = 5
        line = 6
        rs.MoveFirst
        While Not rs.EOF
            i = i + 1
            xlSheet1.Cells(line, 1) = Trim(rs(0).Value)
            xlSheet1.Cells(line, 2) = Trim(rs(1).Value)
            xlSheet1.Cells(line, 3) = Trim(rs(2).Value)
            xlSheet1.Cells(line, 4) = Trim(rs(3).Value)
            xlSheet1.Cells(line, 5) = Trim(rs(4).Value)
            xlSheet1.Cells(line, 6) = Trim(rs(5).Value)
        line = line + 1
            rs.MoveNext
        Wend
        xlapp.Visible = True  '这里已经OK
        xlbook.saveAs SavePath   '这里报错
        xlapp.quit

Answer 4

请问有人遇到过这样的问题吗？我如果用Dialog,手动输入路径，然后点保存按钮，则没有问题，请问有高手能帮我解决吗？

Answer 5

我把SavePath ="c:\1.xls"后运行正常啊,可以保存的

Answer 6

SavePath = "E:\mail\" + FName1 + ".xls"
我只看到最上面是这样:xlbook.saveAs SavePath你看一下你的 SavePath的值是否正确.(不要让 FName1 为空 或 不符合 文件名 的 命名规则.)

Answer 7

经检查，SavePath="E:\mail\unsafeStore9月29.xls"，应该不是这个问题了

Answer 8

重装一下VB,不行再重装一下OFFICE

Answer 9

不存在路径 E:\mail\ （Excel 不会自动创建路径）
E:\mail\unsafeStore9月29.xls 已存在，被其他 Excel 或程序使用中
Excel 中已经存在一个 unsafeStore9月29.xls 文件（即使路径不同÷文件名相同，也不能同时被 Excel 打开）