Question

vb6.0导出excel问题

代码如下：
Dim JssLA As New Excel.Application
Dim JssLB As New Excel.Workbook
Dim JssLS As New Excel.Worksheet

Set JssLA = CreateObject("Excel.Application")
Set JssLB = JssLA.Workbooks.Add
Set JssLS = JssLB.Worksheets(1)
JssLA.Visible = False

Dim i%

For i = 1 To 10 Step 1
JssLS.Range(JssLS.Cells(i, 1), JssLS.Cells(i, 2)).Merge '合并a1:b2单元格

Next

On Error Resume Next
JssLA.ActiveWorkbook.SaveAs (XZzhaoduForm.Text1.Text & "\" & XZzhaoduForm.Text2.Text)

Set JssLS = Nothing
Set JssLB = Nothing
JssLA.Quit
Set JssLA = Nothing

End Sub

执行完代码后第一次选择路径保存excel正常，第二次保存就出现 是否保存对“Book1”的更改？ 这是为什么？如何更改才能不出现第二次保存时候出现的对话框，谢谢了。

Answer 1

这个应该是你第一次打开后，没有完全关闭EXECL引起的，你第一次执行完后，打开任务管理器看下，如果有一个EXECL进程的话，就是这个原因了。
或者，你保存的文件已经存在，没有删除，再次又保存相同的文件名引起的。
由于你的程序只是部分，无法帮你继续调试改进，分析原因。

追问

执行完程序后，进程里没有excel在运行，我代码后面写了excel退出了啊
Set JssLS = Nothing
Set JssLB = Nothing
JssLA.Quit
Set JssLA = Nothing

追答

打开任务管理器看下，如果有一个EXECL进程的话，如果还有，就是EXECL没有完全退出。

Answer 2

 
Dim JssLA As New Excel.Application
Dim JssLB As New Excel.Workbook
Dim JssLS As New Excel.Worksheet

Set JssLA = CreateObject("Excel.Application")
Set JssLB = JssLA.Workbooks.Add
Set JssLS = JssLB.Worksheets(1)
JssLA.Visible = False

Dim i%

For i = 1 To 10 Step 1     
JssLS.Range(JssLS.Cells(i, 1), JssLS.Cells(i, 2)).Merge '合并a1:b2单元格

Next

On Error Resume Next
  
JssLA.DisplayAlerts = False
        JssLA.ActiveWorkbook.SaveAs (XZzhaoduForm.Text1.Text & "\" &               XZzhaoduForm.Text2.Text)

        Set JssLS = Nothing
        Set JssLB = Nothing
    JssLA.Quit
    Set JssLA = Nothing

    JssLA.DisplayAlerts = True

追问

可以了，谢谢。想问下，JssLA.DisplayAlerts 的作用是什么？谢谢

追答

JssLA.DisplayAlerts= False 的作用是关闭提示信息

Answer 3

文件已经存在，要覆盖。
JssLA.DisplayAlerts = False
JssLA.ActiveWorkbook.SaveAs (XZzhaoduForm.Text1.Text & "\" & XZzhaoduForm.Text2.Text)

追问

不行，显示这个