VB6.0如何判断excel文件是否已打开?
发布网友
发布时间：2022-10-13 02:58
我来回答
共5个回答
热心网友
时间：2023-10-27 22:21
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方法，关键是构建一个新文件名，并且这个文件名在当前目录并不存在,下面代码仅供参考，可以变化很大
k=1
curpath="d:\"
do
if dir("test"). & K & ".xls")<>"" then
.......saveas
exit do
k=K+1
loop
热心网友
时间：2023-10-27 22:22
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
这三句的AS后面都加NEW关键字
不支持推荐的on error resume next
on error resume next是不负责任地一种用法
简直是掩耳盗铃，自欺欺人追问可有更好的方法？谢谢
追答这方法不够好？
热心网友
时间：2023-10-27 22:22
测试 WorkBook 是否已开启
Sub IsWorkBookOpen()
Dim wBook As Workbook
On Error Resume Next
Set wBook = Workbooks("test.xls")
If wBook Is Nothing Then
MsgBox "Workbook is not open"
Set wBook = Nothing
On Error GoTo 0
Else
MsgBox "Yes it is open"
Set wBook = Nothing
On Error GoTo 0
End If
End Sub
热心网友
时间：2023-10-27 22:23
Private Sub Command1_Click()
FileName = "c:\dh.xls"
On Error GoTo err
Name "c:\dh.xls" As "c:\dh2.xls"
Name "c:\dh2.xls" As "c:\dh.xls"
'代码
Exit Sub
err:
MsgBox "文件已经打开"
End Sub
热心网友
时间：2023-10-27 22:23
围观打酱油
VB6.0如何判断excel文件是否已打开?
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方法，关键是构建一个新文件名，并且这个文件名在当前目录并不存在,下面代码仅供参考，...
关于VB6.0编程问题
Kill "d:\temp\excel.bz" '删除标志文件 End Sub 4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重...
VB6.0程序调用Excel后,Excel进程无法关闭
注意检查 表格是不是别人先打开你才打开的 这时候是只读方式的时候 你如何判断？？？处理好就可以了 再加一句：。。。 如果你在中间出错的话 没关闭是很正常的 请自己手动从进程里删除 '===打开远程表格（计划1）开始=== Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 ...
vb6.0怎么读取excel表中内容
’用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 CommonDialog，MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...
vb6.0导出excel问题
这个应该是你第一次打开后，没有完全关闭EXECL引起的，你第一次执行完后，打开任务管理器看下，如果有一个EXECL进程的话，就是这个原因了。或者，你保存的文件已经存在，没有删除，再次又保存相同的文件名引起的。由于你的程序只是部分，无法帮你继续调试改进，分析原因。
VB中打开excel为只读,不知为何
重复性打开EXCEL程序。VB调用完EXCEL程序后，不仅要关闭EXCEL文件，还要关闭EXCEL程序。VB6.0 EXCEL文件扩展名为xls的情况。Dim MyXL As Object '定义存放引用对象的变量。Set MyXL = CreateObject("excel.application")Set mysheet = Nothing Set mybook = Nothing Set mybook = MyXL.Workbooks.Open...
vb6.0 执行excel函数公式
1)显示当前窗口：ExcelID.Visible:=True;2)更改Excel标题栏：ExcelID.Caption:='应用程序调用MicrosoftExcel';3)添加新工作簿：ExcelID.WorkBooks.Add;4)打开已存在的工作簿：ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');5)设置第2个工作表为活动工作表：ExcelID.WorkSheets[2].Activate;或ExcelID...
VB6.0下拉框数值读取EXCEL问题,请高手赐教,代码如下
Set xlBook = xlApp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（False不可见）Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表 Me.Combo1.Clear '进入循环前清除ComBo List For i = 1 To 10 Me.Combo1...
vb6.0如何操作excel
Set xlsheet = xlBook.Worksheets("sheet1") '打开表sheet1 objexcel.Visible = True '设置excel可见或不可见 xlsheet.cells(1, 1) = "123" 'cells(1,1)表示A1,第一行第一列,B1表示为cells(1,2)xlBook.saved = True '不提示是否保存，直接保存文件 objexcel.ActiveWorkbook.Save O...
VB6.0如何连接EXCEL并按条件查询 求高手QQ指导我做一个小程序 只完成前...
VB6.0连接EXCEL设置方法 1. 工程 引入 Microsoft Excel 12.0 Object Library ，这里的12.0 可能会因为office版本不同而不同。2. 代码程序通用部分定义 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet 3.打开EXCEL文件 CommonDialog1.ShowOpen '选...
