vb编写excel程序

发布网友 发布时间：2022-04-23 04:01

我来回答

共2个回答

热心网友 时间：2023-10-11 00:52

Dim XlApp as New Excel.Application '生成新的Excel实例。这是关键的步聚。
新的Excel实例可以不受系统中其他Excel进程的影响。
还有、退出时释放Excel的Application哦。就是QUIT方法执行后加上设置为Nothing。
修改如下：
Private Sub Commandaa_Click()
Dim xlApp As New Excel.Application
'这下面这个就不要了。需要在工程中引用Excel对象。
'Set xlApp = CreateObject("Excel.Application")
With xlApp
.Workbooks.Open CommonDialog9.FileName
.Workbooks(CommonDialog9.FileTitle).Sheets("输配系统气量日报").Cells(1, 1) = "16519496161654984945"
.Workbooks(CommonDialog9.FileTitle).SaveAs "F:\ddddd.xls"
.Workbooks("ddddd.xls").close
.Quit
End With
MsgBox "您的报表已生成，并放置在F盘下，谢谢使用本软件", , "友情提示"
set xlApp=nothing

End Sub

热心网友 时间：2023-10-11 00:53

结束时，用这句：xlapp.quit set xlapp=nothing set xlbook=nothing set xlsheet=nothing
最近我在做的工程就用到，正好用此方法解决了问题。祝你好运！