『壹』 VBA中怎么判断一个excel文件已经打开
ConstfNameAsString="MyExcelFile.xls"SubtestFileOpen()DimxAppAsApplicationSetxApp=CreateObject("Excel.Application")xApp.DisplayAlerts=FalseOnErrorGoToFileErrorxApp.Workbooks.OpenFilename:=ThisWorkbook.Path&""&fName,notify:=False,ReadOnly:=FalseIfxApp.ActiveWorkbook.ReadOnly=TrueThenMsgBox"Fileisalreadyopened!"ElseMsgBox"Fileisnotopened!"EndIfGoToQuitSubFileError:MsgBox"Fileisnotexist"QuitSub:xApp.QuitEndSub
附件可下载参考
『贰』 在VBA中，怎么用代码判断一个excel文本是否打开
试试sub test()On Error Resume Next x = "V发运统计表.xls" '''''写需要检测的文件 Set xs = Workbooks(x) If Err.Number = 0 Then Biao = "True" '文件已打开 Else Biao = "False" '文件未打开 End Ifset xs=nothingErr.Clearend sub 楼上的方法在打开文件很多时，执行效率要低一些，它需要检测所有的文件，二种方法都能用，你随便选 吧
『叁』 VBA 检测 excel 是否打开
Dim appExcel As Excel.ApplicationDim wbExcel As Excel.WorkbookOn Error Resume Next '忽略错误Set appWorld = GetObject(, "Excel.Application") '查找一个正在运行的 Excel 拷贝If Err.Number <> 0 Then '如果 Excel 没有运行则 MsgBox Err.Description MsgBox "没有Excel在运行，俺自己生成一个啦！" Set appWorld = CreateObject("Excel.Application") '运行它Else MsgBox "已经有Excel在运行啦！"End IfErr.Clear ' 清除发生错误的 Err 对象Set wbWorld = appWorld.Workbooks.Open(App.Path & "\world.xls")'不管自己生成的， 还是原来运行的 现在一次性关闭appWorld.QuitSet appWorld = NothingEnd Sub
『肆』 Excel 如何判断一个excel 文件是否打开
1、直接法。
直接打开文件，如果已经打开，文件会提示已打开。内如下：
『伍』 vba 怎么打开excel文件
1234567 dim mypath as string，svalue ’定义变量mypath="d:\excel.xls" '把路径赋值给一个字符串 Workbooks.Open Filename:=mypath '这句是打开文件 activeworkbook.visible=false '这句是隐版藏文件 svalue=activeworkbook.sheets(1).range("a1").value '这句是用变量取得该权文件表1中a1单元格的值 activeworkbook.viseble=true’显示文件 activeworkbook.close true'/false,这句是关闭文件，close有两个参数，true是关闭保存修改，false是关闭时不保存修改
『陆』 如何用vba不打开excel文件读写数据
不可能不打来开文件而取得数据，只源要访问文件，就得打开文件，即使是不显示出来的。不管用什么样的方式都是一样的，除非直接访问磁盘。下面的方法可以不显示打开文件的过程，只是在内存中进行访问，速度比直接打开应该快一些。application.workbooks.open文件路径application.workbooks(文件名).closetrue或false表示是否保存复制就是application.workbooks("文件名").sheets("表名").range(源单元格地址).activesheet.range(目标单元格地址)你可以用setxlapp=createobject("excel.application")来建立一个看不到的excel应用程序对象，然后用xlapp来替代上面的application，就会看不到打开的过程了。
『柒』 EXCEL vba 判断是否本机打开文件
Sub打开文件()Dimnamename=Environ("username")'获取电脑用户名Ifname="Li.li"Then'判断用户名是否为"li.li"Workbooks.Open"D:11.xlsx"'条件成立打开指定文件名ElseMsgBox"A"'条件不成立，弹出对话框EndIfEndSub
『捌』 VBA判断Excel文件已经打开
可以切换、也可以不切换直接操作，切换的语句：WorkBooks("B.xlsx").Activate直接操作的语句：WorkBooks("B.xlsx").Sheets("Sheet1").Range("A1")=123me.Range("F5") = WorkBooks("B.xlsx").Sheets("Sheet1").Range("A1")
『玖』 vba怎样打开指定路径的excel文件
打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码：Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。
『拾』 vba怎么excel判断打开，如果打开就关闭
Dim wbk As Workbook On Error Resume Next Set wbk = Workbooks("123.xls")'判断123.xls是否打开 If wbk Is Nothing Then MsgBox "没有打开" Else Workbooks("123.xls").close End If
