Excel VBA找不到文件夹中的xlsx文件

你好我有一个代码，它popup一个按摩框

运行时间错误1004

它无法find我想要打开的文件。 我该如何处理？ 我已经陷入了几个小时，我找不到什么问题。 我想打开一个保存在与macros文件相同的文件夹中的XLSX文件，它们是文件夹中的唯一文件，有人可以帮忙吗？

Private Sub cmdStartMonth_Click() 'Optimize Macro Speed Application.ScreenUpdating = False Application.EnableEvents = False 'Analyze month by selecting Dim myPath As String Dim FileName As String Dim UnionWB As Workbook Dim MonthName As String MonthName = ListMonth.Value myExtension = "*.xlsx*" Dim sWrkbkPath As String sWrkbkPath = Dir$(ThisWorkbook.Path & "\*.xlsx") 'Only expecting a single file so no need to loop. If sWrkbkPath <> "" Then Set UnionWB = Workbooks.Open(sWrkbkPath) End If UnionWB.Worksheets("Union").Range("A1:Y1").AutoFilter With UnionWB.Worksheets("Union") .Activate .Range("L1:W1").Find(MonthName, , xlValues, xlWhole).Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub 

这是代码中有问题的行：

  Set UnionWB = Workbooks.Open(sWrkbkPath) 

Answer 1

改变这一点

 Set UnionWB = Workbooks.Open(sWrkbkPath) 

对此

 Set UnionWB = Workbooks.Open(Thisworkbook.Path & "\" & sWrkbkPath)