Excel 如何使用完整路径从另一个 Excel 获取值？

Question

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

我用的是Office365

如何从此“FullPath”工作簿复制数据？

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

Answer 1

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

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

Excel 如何使用完整路径从另一个 Excel 获取值？

Excel How To Get Values From Another Excel with Fullpath?

excel

vba

excel-formula

office365