Q1 在打开工作薄之前，可以用这个方法来查看工作薄是否打 on error resume next set wk=xlapp.workbooks("test")if err then xlapp.workbooks.open("d\test.xls")on error goto 0 Q2 第二个问题，可用SAVEAS方法，关键是构建一个新文件名，并且这个文件名在当前目录并不存在,下面代码仅供参考，...

Kill "d:\temp\excel.bz" '删除标志文件 End Sub 4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重...

再加一句：。。。 如果你在中间出错的话 没关闭是很正常的 请自己手动从进程里删除 '===打开远程表格（计划1）开始=== Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Open("y:\计划1.xls")Set ExcelSheet = ExcelBook.Worksheets(...

MyXL.Quit 当然也有是程序过程中出现问题，被强制关闭程序时，后台并没有关闭EXCEL程序。因此，当出现此情况时。关闭当前只读后，打开任务管理器，查看进程，会发现一个EXCEL程序处于运行状态，强制关闭后。再用VB调用就不会出现此情况。

用VB6操作Excel,关键是在执行完后,退出前要用语句:Set 对象 = Nothing 这样就不会有你说的情况了.或者你把代码贴出来.

每次操作完Excel对象后，一定记得要关闭对象，也就是从内存中清除Excel所占进程

‍1. 开启Excel :Dim xlSet As Excel.Application Dim xlSetBook As Excel.Workbook Dim xlSetSheet As Excel.Worksheet '声明对象变量 Set xlSet = New Excel.Application '初始化对象变量 Set xlSetBook = xlSet.WorkBooks.Open( 'C:\Excel\Demo.xls' )xlSetSheet.Cells(1, 1)...

’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog，MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...

次序：oExcel.Quit Set oExcel = Nothing

你的代码是实现对excel操作的excel.application dbf 是数据库文件.思想:需要先转换 dbf为 excel文件 将.dbf文件导入Excel表中可以用数据导入功能。做法：在Excel中选择菜单中的“数据”>“导入外部数据”>“导入数据”，然后在“文件类型”中选择“*.dbf”，点“打开”，相应的数据就进入Excel了。如果按...