运行时错误'1004'：对象'Workbooks'的方法'Open'失败

3 回答

• 0

  尝试下面的代码，我修改了你的Open行，因为你还没有使用大部分参数......

  Dim FromBook As String
  Dim FromSheet As Excel.Worksheet
  Dim diaTitle As String
  Dim FilterName As String
  '-----------------------------------------------------------------------------------------------
  Set ToBook = ActiveWorkbook
  diaTitle = "Select Systems List"
  FromBook = Application.GetOpenFilename(FileFilter:=FilterName, _
      FilterIndex:=2, _
      Title:=diaTitle)
  
  If FromBook = "False" Then
      Exit Sub
  End If
  ' minimized your open file parameters, since you are puting blanks anyway
  Workbooks.Open FromBook, xlUpdateLinksNever, False, 5
  
  Set FromSheet = ActiveWorkbook.Worksheets("Sheet1")
  

  回复于 2024-05-03T07:16:11+08:00
• 0

  尝试如下

  • 使用 Variant 类型返回结果：

  Dim FromBook As Variant
  

  • 使用布尔值将返回的结果与以下内容进行比较：

  If FromBook = False Then Exit Sub
  

  回复于 2024-05-03T07:16:11+08:00
• 0

  User3598756是对的，您需要使用 Variant 类型 . 我还简化了你的代码并在 if statement 中打开并设置了工作簿，并为用户添加了 msgbox ：

  'Declares variables
  Dim ToBook As Workbook: Set ToBook = ActiveWorkbook
  Dim FromSheet As Worksheet
  Dim FromWB As Workbook
  
  Dim FromBook As Variant
  Dim diaTitle As String
  Dim FilterName As String
  
  '-----------------------------------------------------------------------------------------------
  diaTitle = "Select Systems List"
  
  FromBook = Application.GetOpenFilename( _
      FileFilter:=FilterName, _
      FilterIndex:=2, _
      Title:=diaTitle)
  
  If FromBook = "False" Then
      MsgBox "You did not open any file so the macro could not proceed"
      Exit Sub
  Else
      Set FromWB = Workbooks.Open(FromBook, xlUpdateLinksNever, False, 5, , , , , , , , , , , xlNormalLoad)
      Set FromSheet = FromWB.Worksheets("Sheet1")
  End If
  
  '-----------------------------------------------------------------------------------------------
  FromSheet.Copy _
      After:=ToBook.Worksheets(6)
  
  FromWB.Close savechanges:=False
  

  回复于 2024-05-03T07:16:11+08:00