VB学习8_VBA如何模糊判断包含某关键字的文件是否存在？

最新推荐文章于 2023-10-02 02:57:37 发布
转载 最新推荐文章于 2023-10-02 02:57:37 发布 · 4.4k 阅读 · 4
文章标签：

#vba

本文介绍了一种方法来检查指定路径下是否存有包含特定字符串（如“93阅兵”）的文件。通过使用VBA代码示例，演示了如何通过通配符搜索指定目录下的文件。
需求：判断一个已知名称的文件是否存在，我只知道它的详细路径，但只知道这个文件名称中包含“93阅兵”4字，请问如何判断这样的文件是否存在呢？
假如它保存的路径是：e:\93\ 

  1. Sub ft()
  2.     If Len(Dir("e:\93\*93阅兵*.txt")) Then MsgBox "文件存在" Else MsgBox "文件不在"
  3. End Sub

参考：http://www.exceltip.net/thread-75430-1-1.html
CorelDRAWX4的VBA插件开发(二十一)字符串搜索和正则表达式匹配以及文件名关键字处理
weixin_43716462的博客
07-12 939
这一节想作的学习汇报主要想讲下关于字符串的处理,这个往往是我们在程序处理中的关键问题,因为所有的信息最终往往是以字符串的形式进行传达,所以,我们一定要掌握好字符串的处理. 而字符串的处理中,比较常见的就是使用正则表达式来处理了,这一节就从普通的搜索讲起,再讲到VB中的正则表达式,这里也是只做一个大概的示范,而正则表达式的使用也不是本节能够讲得清的,如果已经掌握的可以忽略, 如果有不了解的同学,可以去专门讲解正则表达式的地方进行学习然后上代码: 演示: 代码浅释: 首先获取当前的文件名储存在FileName
VBA通过关键字查找工作簿、工作表的行
weixin_46655338的博客
05-17 6622
通过关键字查找工作表的行，如查找关键字：合计、汇总、总计……。查找时部分匹配，不是全匹配。查找不同工作簿中的多个工作表。汇总到工作表《汇总各表行》中，保留数值、格式，不保留公式。 Option Explicit Option Compare Text Sub 关键字查找工作簿行() 'Application.DisplayAlerts = False Dim i1, i2, i3, i4, i5, i6, i7, b, j Dim wb2 As Workbook Dim e
VB.code.image.blur.rar_VB模糊_blur
09-19
VB实现图像模糊效果代码VB code of image blur
VBA大杂烩♬ 以及利用VBA查询外部文件中是否包含某一字符串及文件定位方法
hyjd625的博客
06-17 3437
1、open 文件名 for output（写入覆盖数据）/input（读取数据）/append（追加数据，不会覆盖会继续在其末写入） as #文件号 ——open要与close配合使用，否则会报错文件已打开，若文件不存在，覆盖和追加都会新建文件。关闭文件时要注明文件号。 2、Freefile会调用函数获取可用的空闲的文件号。 3、instr（a,b）函数返回为long形式，意为指定一字符串（b）在另一字符串（a）中最先出现的位置，返回值为具体位置，如果返回0则表示不存在。 4、dir（a）返回为stri
VBA 获取指定的文件目录下的指定关键词的文件列表
风转砂的博客
05-02 1170
获取指定的文件目录下的指定关键词的文件列表获取指定文件夹下指定关键词的文件列表（不含子文件夹）获取指定文件夹下指定关键词的文件列表（含子文件夹） 获取指定文件夹下指定关键词的文件列表（不含子文件夹） Function aGetFiles(sFolderPath As String, saKey) As Variant '参数：文件夹地址，文件名称关键词(数组) Dim aFiles(), lFilesCount As Long, sFileName As String, sKey as Varia
vba 检查一个文件夹中的文件在另一个文件夹中是否存在（不含扩展名)
lijil168的专栏
10-09 2547
Sub test() Dim Mypath, MyName Dim n As Integer n = 0 Dim MyStr() As String, wz As Integer Mypath = ThisWorkbook.Path & "\第三方2\"    ' 指定路径。 MyName = Dir(Mypath, vbDirectory)   ' Do While
Office Excel VBA-实现文件检索
天边一坨浮云
08-11 4282
Office Excel VBA-文件检索
使用VBA实现快速模糊查询数据
神奇的BI
10-02 4003
实例需求：基础数据保存在`Database`工作表中，如下图所示。 基础数据有37个字段，上图仅展示部分字段内容，下图中黄色字段为需要提取的数据字段。 在`Search`工作表B1单元格输入查询内容。
以下是使用 VBA 代码将文件夹下的文件名中包含 “**“ 的部分替换为 “12“ 并提取文件名的示例代码
QingYuanve的博客
06-25 820
在代码中，我们创建了一个 FileSystemObject 对象 fso，并使用 CreateTextFile 方法创建了一个输出文件，在这个例子中是 “C:\Path\To\OutputFile.txt”。请注意，在运行脚本之前，请确保设置正确的文件夹路径和输出文件路径，以及已经引入了 Microsoft Scripting Runtime 库。如果你想将修改后的文件名保存到一个文本文件中，可以使用 VBA 中的 FileSystemObject 对象。在上面的代码中，我们只需调用。输出修改后的文件名。
Excel VBA打开以指定字符开头的文件
学而时习之
10-23 3607
适用场景： 桌面上只有一个此类文件，此时可以通过以下代码自动打开该文件。 代码中关键在于使用myfile Like "abc*"进行匹配。 Sub OpenFileStartWithabc() mypath = "C:\Users\Administrator\Desktop\" myfile = Dir(mypath, vbDirectory) Do While myfile <> "" If myfile <> "." And myfile <> "..
模糊查询的例子-最简单的VB查询入门
10-08
很菜的一个模糊查询的例子，检索全部字段中包含关键词的所有记录
Vb字符串模糊匹配查找
05-07
内容索引:VB源码,字符处理,模糊查找　　Vb字符串模糊匹配查找
使用Excel VBA编写一个宏来实现在指定目录下搜索文件名包含指定字符串的文件
weixin_58396675的博客
04-28 3866
在代码中，输入要搜索的文件夹路径及文件名包含的字符串。然后，使用`Dir`函数循环搜索指定文件夹中的所有文件。如果找到包含指定字符串的文件，则弹出对话框显示文件路径和名称。如果未找到任何文件，弹出提示对话框。If InStr(FileName, SearchText) > 0 Then '如果找到包含指定字符串的文件。可以使用Excel VBA编写一个宏来实现在指定目录下搜索文件名包含指定字符串的文件。'输入要搜索的文件夹路径及文件名包含的字符串。'如果未找到任何文件，弹出提示对话框。
vb.net 打开或者判断 含有指定字符的文件是否存在
LeonSUST的博客
11-18 910
项目中涉及到一个需要检测路径中是否含有 ECE 开头的文件名的文件是否存在 文件基本是以 ECE-1.txt 这样的形式命名的 这里不能使用io.file.exists（" "）的方法来实现 这里给出解决方案 d = Dir("d:\ECE*.txt") If d = "" Then MsgBox "文件未找到！" Else 自己的处理函数 End If over ...
请用VB.NET写一段模糊查找的程序，并在注释中解释每一行的意思
weixin_42596214的博客
02-12 213
Option Explicit'定义模糊查找的变量 Dim FuzzySearchString As String'获取模糊查找的字符串 FuzzySearchString = InputBox("请输入要搜索的模糊字符串：")'定义要搜索的文件夹路径 Dim FilePath As String'获取要搜索的文件夹路径 FilePath = InputBox("请输入要搜索的文件夹路径：")'定...
VB中如何判断文件、文件夹是否存在
热门推荐
changleqy的专栏
08-05 1万+
在VB中编程中，经常需要判断一个文件是否存在，以便执行相应的操作，这可用下列语句进行判断        Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String    解释： pathname:文件的绝对路径；     Attributes：文件的属性。     “[]”内为可选项。dir(file)=""表示文件不存在，
VB.NET 判断文件夹是否存在
dongli5012的博客
11-12 2464
Directory.CreateDirectory(文件夹完整路径) 会检查该文件夹是否存在，不存在的情况下会自动创建 ------------------------------------------------------------------------------------------- 其他的一些文件操作： File.Create("c:\temp\create.txt...
vb.net 判断文件夹存在并创建文件夹（亲自实践）
bigheadsheep的专栏
09-25 1万+
有时候我们需要判断某个指定的文件夹是否存在，如果不存在则提示用户是否创建 程序如下： 判断指定文件夹是否存在（保存在common文件中，方便其他程序调取） ' "文件夹存在CHECK" Public Function isDirExist(ByVal strPath As String) As Boolean Dim strDirTemp As Strin
vb遍历文件夹中的所有文件_CATIA二次开发专题贴：用VB来判断盘符是否存在，以及来判断文件或文件夹是否存在...
weixin_39978101的博客
12-11 379
CATIA二次开发中，经常会用到VB判断盘符是否存在，以及用VB来判断文件或文件夹是否存在。用VB来判断盘符是否存在，以及来判断文件或文件夹是否存在都可以用DIR函数来判断。1.判断F盘是否存在于电脑中的VB代码，在窗体建一个按钮，代码如下Private Sub Command1_Click() If Dir("F:\", vbDirectory) <> "" T...
VB与VBA编程技巧与实践手册
由于提供的文件信息仅包含标题、描述、标签以及压缩文件包的文件名称列表，并没有具体的文件内容，我将会根据标题和标签中提供的关键词“VB”和“VBA”进行详细的技术知识点说明。 ### 知识点一：Visual Basic (VB)...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值