String VBA未定义的字符串结构
我试图在代码中编写一个函数，允许我根据文件名搜索特定文件。该函数正在工作，但现在名称的结构发生了变化，给我带来了麻烦 我的代码以宏的形式控制word文档。此文档从另一个程序获取信息，并将其放入word文档的formfields中。 然后，我的代码获取formfields的“值”，并使用它们搜索特定文件夹中的.txt文件，该文件的名称与formfields中存储的值匹配 现在.txt的名称已经更改，该名称将包含一些额外的信息，我无法通过word文档访问这些信息 例如： W_X_Y_Z.txt 其中Y和Z在文档的表单字段中可用，可以访问，但W和X我不知道 需要解决的问题： 所以我需要做的是找到一种忽略W和X的方法，只基于Y和Z进行搜索 想法： 我的一个想法是搜索具有以下结构的文件 ？？？uuuuy_Z.txt，但我不确定它将如何工作，因为在“”中，如果它在字符串中，是否包含数字？“？”是否仅表示2个未知字符或任何数量？如果只有两种方法可以定义一个未知字符串，其中字符和字符数都是未知的 第二个想法是在String VBA未定义的字符串结构,string,vba,delimiter,String,Vba,Delimiter,我试图在代码中编写一个函数，允许我根据文件名搜索特定文件。该函数正在工作，但现在名称的结构发生了变化，给我带来了麻烦 我的代码以宏的形式控制word文档。此文档从另一个程序获取信息，并将其放入word文档的formfields中。 然后，我的代码获取formfields的“值”，并使用它们搜索特定文件夹中的.txt文件，该文件的名称与formfields中存储的值匹配 现在.txt的名称已经更改，该名称将包含一些额外的信息，我无法通过word文档访问这些信息 例如： W_X_Y_Z.txt 其中
\uu\u我现在将尝试添加一些代码，但请记住，我在本文档中继承了很多代码，因此我不知道每个细节都做了什么，这就是我避免键入代码的原因 截至目前的代码：
ActiveDocument.FormFields("Remissnummer").Select
Remiss = Selection.Text
Selection.Collapse Direction:=wdCollapseStart
ActiveDocument.FormFields("Personid").Select
strTmpPersonnr = Selection.Text
intNumCharsPersNr = Len(strTmpPersonnr)
Selection.Collapse Direction:=wdCollapseStart
strFileName = strTmpPersonnr
p_strFileReportPath = "G:\HMC\Fysiologiska kliniken\Eko\Export\"
strImportFile = p_strFileReportPath & "*" & strFileName & "_" & Remiss & strFileExt
If Len(Dir$(strImportFile)) = 0 Then
MsgBox "Error"
Else
'starts importing values from the file
Ignore = "*"
strImportFile = p_strFileReportPath & Ignore & "_" & Ignore & "_" & strFileName & "_" & Remiss & strFileExt
所以我猜我不能用“*”来解释文件名的未知部分，但我现在有点不知所措了。看起来你可以使用正则表达式。只需浏览regexvba并熟悉其概念。使用它，您可以为任何常规模式创建查找查询
在这里，您可以看到AFAIK上的一些示例。在VBA中，有两种方法可用于迭代文件：
- 功能，或
- 中的和
- VBA字符串函数，如和
- VBA运算符，与模式匹配字符串进行比较
- 正则表达式
？*
匹配“ab？d”
，“abcd”
，但不匹配“abgd”“abcgd”
匹配“ab*d”
、“abcd”
和“abgd”“abcgd”
一,。仅在Windows上，因为Macintosh上的Office不支持ActiveX/COM自动化的使用。
2.仅在Windows上。在Macintosh上，
？*“*.+Y+“.+Z+”.txt”YZDirFileSystemObjectRegExLikeDir