打开另一个 Excel 工作簿并使用 VBA 获得一列

Question

我正在尝试使用 VBA 创建一个用户窗体，它会以静默方式打开工作簿（使用命令按钮）并将指定列的内容复制到同一 GUI 中的列表框，但在运行时，它会打开工作表并粘贴在那里，而没有数据回传. 这是代码的大部分内容。 有人可以帮忙吗？

Sub OpenBox()

Dim owbSource As Workbook
Dim rSource As Range

With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    fullPath = .SelectedItems.Item(1)
End With

Application.ScreenUpdating = False

Set owbSource = Workbooks.Open(fullPath, True, True)

ThisWorkbook.Activate

Set rSource = owbSource.Worksheets("Property").Range("B5:B77")

ListBox1.RowSource = rSource

End Sub

Answer 1

我改变了一些线路，请试试这个

Dim owbSource As Workbook
Dim rSource As Range
Dim rsheetsource As Worksheet
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    fullPath = .SelectedItems.Item(1)
End With
Application.ScreenUpdating = False
Set owbSource = Workbooks.Open(fullPath, True, True)
Set rsheetsource = owbSource.Sheets("Property")
ThisWorkbook.Activate
Set rSource = rsheetsource.Range("B5:B77")
ListBox1.RowSource = "'" & owbSource.Path & "/[" & owbSource.Name & "]" & rsheetsource.Name & "'!" & rSource.Address
Application.ScreenUpdating = True