Excel如何从另一个具有完整路径的Excel获取值？

我想从已选择的关闭文件中复制数据，并在包含此宏的文件中看到它

我正在使用Office365

如何从“完整路径”工作簿复制数据

Private Sub PathName()
    Dim FullPath As String
    On Error GoTo extApp
    FullPath = Application.GetOpenFilename(FileFilter:="File Filter," & _
    "*.xls;*.doc;*.xlsx;*.mdb;*.ppt;*.pdf", Title:="Please Select A File")
        
            Exit Sub
    extApp: Select Case Err.Number
        
            Case 104
                MsgBox ("104")
                Exit Sub
        
            Case Else
                MsgBox "Runtime Error:  " & Err.Number & vbNewLine & Err.Description
                Stop
                Resume
        End Select
    End Sub

---

您可以尝试以下代码修改，添加代码的其他部分，使其作为一个完整的子部分工作：

Private Sub PathName()

Dim FullPath As String
Dim wb As Workbook

Application.DisplayAlerts = False
    
On Error GoTo extApp
FullPath = Application.GetOpenFilename(FileFilter:="File Filter," & _
"*.xls;*.doc;*.xlsx;*.mdb;*.ppt;*.pdf", Title:="Please Select A File")
    
Set wb = Workbooks.Open(FullPath, , True)

wb.Worksheets("Sheet1").Range("A1:B" & lastrow).Copy
Sheet1.Range("A1").PasteSpecial xlPasteValues
'
'
'
wb.Close
Application.DisplayAlerts = True
End Sub

---

您真的需要处理所有这些文件类型吗？