尽管文件存在，但找不到Excel VBA文件

Question

我在下面写了一段代码来访问文件并将内容从一个文件复制到另一个文件。 我正在使用excel 2007。

Sub copypaste()

  Dim strFolder As String
  Dim strFileName As String
  Dim wb As Workbook
  strFolder = "C:\Users\user\Desktop\sample\"
  strFileName = Dir(strFolder & "*.xlsx")
  Dim eRow
  Dim a As Variant
  Dim b As Variant
  Do While Len(strFileName) > 0
  **Set wb = Workbooks.Open(strFileName)**
  a = Cells(7, 7)
  b = Range("D11:F11")
  ActiveWorkbook.Close
      Worksheets("sheet1").Cells(7, 7) = a
      Worksheets("sheet1").Cells(7, 8) = b
      strFileName = Dir
  Loop
End Sub

虽然该文件存在于文件夹中，但在打开文件时出现错误。 在调试模式下，变量strFileName包含文件名，但文件仍未打开。 我收到错误的行"Set wb = Workbooks.Open(strFileName)"

在此先感谢您的帮助！！

Answer 1

Workbooks.Open需要工作簿的完整路径。 我怀疑你想要：

Set wb = Workbooks.Open(strFolder & strFileName)

Answer 2

您需要在路径中替换所有\\ by double \\\\

或者在你前面添加@字符串。

原因是\\是转义字符串的字符，比如\\ n \\ s等，所以转换后的字母。 尝试打印你的路径，你会看到附加的东西。

编辑

也可以尝试：

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xls (*.xls),");
Set wb2 = Workbooks.Open(Filename:=FileToOpen)

Answer 3

当（用户）用户496736声明你需要一个完整的路径

但是大多数时候你的路径会很长而且输入很麻烦，或者你不会提前知道，所以ActiveWorkbook.Path的帮助

以readonly为例仅供参考

Dim Alloc_WB As Workbook

Dim FileStr As String
FileStr = ActiveWorkbook.Path & "\" & "my_file.xlsx"

'workbook should be closed at start of code. Otherwise you get an error msg asking to re-open the Workbook
Set Alloc_WB = Workbooks.Open(Filename:=FileStr, ReadOnly:=True)

'...
'Other actions here...
'...

With Alloc_WB
    .Close
End With