在VB中操作EXCEL的时候,如下定义和使用了变量:
Dim xlapp As excel.Application
Dim xlbook As excel.Workbook
Dim xlsheet As excel.Worksheet
Set xlapp = New excel.Application
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets.Add请问在操作完之后,如何更快的释放这些变量,
SET XLAPP=NOTHING
好像很慢,谢谢大家,急!!!!!
Dim xlapp As excel.Application
Dim xlbook As excel.Workbook
Dim xlsheet As excel.Worksheet
Set xlapp = New excel.Application
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets.Add请问在操作完之后,如何更快的释放这些变量,
SET XLAPP=NOTHING
好像很慢,谢谢大家,急!!!!!
慢可能是其他原因引起的
Set xlbook = nothing
Set xlapp = nothing没显出慢呀?先杀杀毒
SHEETS("SHEET1").PRINTOUT
Path1 = App.Path + "\ordersheet\" + OrderSheet + ".xls"
xlApp.Workbooks.Open Path1
Sheets("sheet1").Select
Sheets("sheet1").Cells(4, 1) = "打印时间: " + Format(Now, "yyyy-mm-dd hh:mm:ss")
'xlApp.Visible = True
Sheets("sheet1").PrintOut
xlApp.ActiveWindow.Close savechanges:=False ----------特殊指定---------
xlApp.QuitSet xlApp = Nothing
Set xlSheet = Nothing上边特殊指定的那一句,如果加上的话,打印按钮按一次就再没有反应了,(按F8单步执行时对PRINTOUT命令没反应)如果不加的话,无论怎么选择打印文件,打印的都是程序刚开始运行时的那个文件,就是第一次打的文件,这是怎么回事? 我想连续打开不同的文件进行打印怎么实现???大家帮忙,谢谢,急!!!!!!!!!