Question

我有一个用户表单，用于提取要在文件路径中使用的日期。在该文件夹中，我试图使用Dir函数将文件名作为字符串。虽然文件名的一部分是一致的，但是它变得棘手，但最后有一个唯一的ID会在一天中发生变化，所以我使用星号试图忽略唯一的ID部分，只需取名字即可

Sub cmdRunCO_Click()

Dim masterPathCO As String
Dim masterFileCO As String
Dim DesiredDate As String
' ChDir "\\corp\dfs\appdata\openlinkprod\outdir\US-ComOps\EOD"
' Workbooks.Open Filename:="CHN.Endur.PnlDetailsReport.GLOBAL.US-ComOps.EOD.PV.xlsm"

DesiredDate = EnteredDate.Value & "\"
masterPathCO = "\\corp\dfs\appdata\openlinkprod\outdir\US-ComOps\EOD\" & DesiredDate
maserFileCO = Dir(masterPathCO & "CHN.Endur.PnlDetailsReport.GLOBAL.US-ComOps.EOD.PV.*.xlsm", vbNormal)
' Test for correct string values
Range("A15") = masterPathCO
Range("A16") = masterFileCO
' Dim mwb As Workbook
' Set mwbCO = Workbooks.Open(masterPathCO & masterFileCO)
' Set mwbCO = ActiveWorkbook
Unload SelectDate

masterPathCO很好，但是masterFileCO空白。这是扭曲：在我试图获取文件名的日期文件夹中，有3个其他文件，所有以相同的名称开头，让我相信星号实际上没有做任何事情。

另类，更简单的方法吗？正确的方向，但我离开了某个地方？

Answer 1

以上代码有效且无问题。

由于不正确的变量引用而发生问题，通过更正变量名来修复，并通过Option Explicit语句确保此前面没有任何未来问题。

VBA，Dir功能与外卡

1 个答案: