我定义的:
Public xlApp As Excel.Application
Public xlWorkbook As Excel.Workbook
Public xlWorksheet As Excel.Worksheet'创建一个Excel Workbook
Set xlApp = New Excel.Application
xlApp.Workbooks.Open Trim(Text1.Text)
Set xlWorkbook = xlApp.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(2)。如何销毁 xlApp,xlWorkbook 或者 xlWorksheet 对象呢??
Public xlApp As Excel.Application
Public xlWorkbook As Excel.Workbook
Public xlWorksheet As Excel.Worksheet'创建一个Excel Workbook
Set xlApp = New Excel.Application
xlApp.Workbooks.Open Trim(Text1.Text)
Set xlWorkbook = xlApp.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(2)。如何销毁 xlApp,xlWorkbook 或者 xlWorksheet 对象呢??
Public xlWorkbook As Excel.Workbook
Public xlWorksheet As Excel.Worksheet'创建一个Excel Workbook
Set xlApp = New Excel.Application
xlApp.Workbooks.Open Trim(Text1.Text)
Set xlWorkbook = xlApp.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(2)'释放xlApp,xlWorkbook,xlWorksheet 对象:
Set xlApp=Nothing
Set xlWorkbook=Nothing
Set xlWorksheet=Nothing
lWorkbook.Close
xlApp.Quit
Set xlWorkbook = Nothing
Set xlWorksheet = Nothing
Set xlApp = Nothing
--------------------------------------
先关闭,然后再释放,注意,每个创建的对象都必须释放,否则就会出现你所说的情况:Public xlApp As Excel.Application
Public xlWorkbook As Excel.Workbook
Public xlWorksheet As Excel.Worksheet'创建一个Excel Workbook
Set xlApp = New Excel.Application
xlApp.Workbooks.Open Trim(Text1.Text)
Set xlWorkbook = xlApp.Workbooks(1)
Set xlWorksheet = xlWorkbook.Worksheets(2)xlWordbook.Close False '关闭WordBook
xlApp.Quit '退出Excel'释放xlApp,xlWorkbook,xlWorksheet 对象:
Set xlApp=Nothing
Set xlWorkbook=Nothing
Set xlWorksheet=Nothing