excelvba判断文件是否打开(vba 判断文件夹中文件是否存在)

1. vba 判断文件夹中文件是否存在

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行

Sub t()

Dim s As FileSearch '定义一个文件搜索对象

Set s = Application.FileSearch

s.LookIn = "c:\" '注意路径，换成你实际的路径

s.Filename = "*.*" '搜索所有文件

s.Execute '执行搜索

Cells.Delete '表格清空

For i = 1 To s.FoundFiles.Count

Cells(i, 1) = s.FoundFiles(i) '每一行第一列填写一个文件名

Next

End Sub

2. vba判断excel是否打开状态

、excel文档中的数据量巨大；

2、excel文档中隐藏了相关VBA程序；

详细分析可能性：

【第1种】：也许这个文档很特殊，里面涉及的数据量与其他一般的excel文档完全不是一个量级，数据量巨大或者隐藏的对象数量过多，导致计算机运算不过来，致使内存溢出最后系统崩溃。

【第2种】：很有可能有人在这个excel表格中编写了VBA程序，这不一定是病毒也不一定是木马，而是标准普通的程序。只是防止别人拷走后在别的电脑里偷看。

程序的写法和原理相当简单，大概只需10几行代码，其中的意思解释类似如下：

1、判断打开时机器码是否与编写人的机器码一致

2、如果不是则调用系统代码，显示的状态就象死机一样。

3. excel vba判断文件是否存在

何必这么麻烦呢，你用文件——另存为，就可以直接查看当前excel文档所在文件夹下的所有excel文档了

4. vba判断窗体是否打开

在VBA窗口双击左侧列表框的thisworkbook 在右边窗口粘贴下面的代码Private Sub Workbook_Open()userform1.show '如果你更改了窗体的名称那就改为 窗体名称.showEnd Sub这样打开这个工作薄 就直接调用你建的窗体.还有一种就是创建一个过程宏调用,可以写在任意工作表的代码中或者模块中调用sub 加载操作窗体()userform1.showend sub

5. vba 判断excel是否打开

一、打开word文件代码：Set wo = CreateObject("Word.Application")

wo.Documents.Open ThisWorkbook.Path & "\流程.doc"

wo.Visible = True

二、打开ppt文件代码：方法1：

Set wo = CreateObject("Powerpoint.Application")

wo.Visible = True

wo.Presentations.Open ThisWorkbook.Path & filename

6. vba如何判断文件夹是否存在

1 :新建excel并输入你要找的80个文件名。

2:在VBA中使用dir函数从系统导出文件取得文件名。

3:如果取的文件名等于新建excel中的文件名则copy到新文件夹。

4.使用不带参数的dir遍历文件夹。

7. VBA判断文件夹是否存在

一、_压缩文件

'Shell函数

'Shell执行一个可执行文件.返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

'语法：

'Shell("可执行程序的路径 文件名或命令行",窗口的显示方式)

Sub 用绘图程序打开图片()

Dim mysh

mysh = Shell("mspaint.exe " & ThisWorkbook.path & "\pic.jpg", vbMaximizedFocus)

End Sub。

'WinRar命令的命令行表示方法

' WinRar程序路径 命令 开关1 开关2 开关3..开关N 压缩包路径 压缩的文件路径

'命令是指要进行怎么样的操作，如A是压缩，X是解压缩

'开关是具体操作时的细节，如压缩是是否把原文件删除，是否添加密码等

Sub RarFile() '压缩单个文件

Dim Rarexe As String

Dim myRAR As String

Dim Myfile As String

Dim FileString As String

Dim Result As Long

Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径

myRAR = ThisWorkbook.path & "\A.rar" '压缩后的文件名

Myfile = ThisWorkbook.path & "\B*.xls" ' 指定要压缩的文件

FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串

Result = Shell(FileString, vbHide) '执行压缩

End Sub

'如果文件名使用通配符,可以对同类的文件进行和压缩,

'如果只有路径没有文件名,则会把这个文件夹进行压缩

Sub RarFile2() '多个文件压在一起

Dim Rarexe As String

Dim myRAR As String

Dim Myfile As String

Dim FileString As String

Dim Result As Long

Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径

myRAR = ThisWorkbook.path & "\B.rar" '压缩后的文件名

' Myfile = ThisWorkbook.path & "\B\*.xls" ' 指定要压缩的文件类型

Myfile = ThisWorkbook.path & "\B\" ' 指定要压缩的文件夹路径

FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串

Result = Shell(FileString, vbHide) '执行压缩

End Sub。

8. vba判断word文档是否打开

1.在excel中编写vba代码，创建word应用程序对象

2.打开word文档（此步骤可以设置固定的文件路径，也可以设置自定义选择文件路径）

3.读取word文档中的内容到变量

4.如果还涉及到word文档内容的改写，还需要把变量的值回写到word文档中

5.将变量的值写入到excel中

6.保存word文档

7.关闭word文档

8.如果不止一个word文档，则循环步骤2到步骤7

9.释放步骤1中创建的word应用程序对象

10.在excel中处理提取的内容

11.处理完毕

9. vba检测文件是否打开状态

指定文件名不知道是否有规律？建议试试Everything，可以结合正则表达式快速的对文件进行查找，秒查。注意，只能查找文件名。如果要用VBA的话dir可以实现路径查找判断，可以在单元格储存你的文件名称，然后遍历这些单元格。另外Python也是可以的。