关于excel进程问题

blueraindrop 2005-03-09 04:55:00
Dim xlApp As New Excel.Application

xlApp.Visible = True
With xlApp

Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
Dim xlSheet As Excel.Worksheet


xlBook = .Workbooks.Open(Filename:="D:\cs\6.xls")
xlSheet = xlBook.Worksheets("sheet1")
xlSheet1 = xlBook.Sheets("sheet1")

xlSheet1.Range("A7:F21").Select()
.Selection.Copy()
xlSheet = xlBook.Sheets.Add
'xlSheet.Name = "5555"
xlSheet.Range("A1").Select()
.ActiveCell.FormulaR1C1 = "dfdfdfdf"
xlSheet.Range("A2:F16").Select()

.ActiveSheet.Paste()
.Application.DisplayAlerts = False '不显示对话框
.ActiveWindow.SelectedSheets.Delete() '删除sheet2
.ActiveWorkbook.Save()

.Workbooks.Close()
xlApp.Quit()
xlApp = Nothing
为什么每次程序运行后进程中还有excel,怎么释放掉excel进程
...全文
37 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧