Question

我尝试创建一个允许用户选择文件（excel文件）的宏，然后用于将信息从所选文件复制到活动工作簿。我不知道如何将文件的变量目录包含在代码中。有人有想法吗？

Sub Ref()

    Dim Path As String
    Path = Application.GetOpenFilename

    Dim r As Integer
    r = 1

        For r = 1 To 1000
            If Not IsEmpty(Range(Path(Cells(r, 1)))) Then
            Cells(r, 1) = Range(Path(Cells(r, 1)))
            End If
        Next
End Sub

Answer 1

似乎您在Excel列中有一个Excel工作簿列表及其路径。如果要从该工作簿中的单元格检索信息，则必须打开工作簿。 / p>

这个通用框架应该可以帮助您开始循环遍历活动工作簿的活动工作表列A中的值的子，打开列出的每个文件，并将值从A1传输到原始工作簿的B列。

Sub ref()
    Dim wb0 As Workbook, wb1 As Workbook
    Dim r As Long, lr As Long

    Set wb0 = ActiveWorkbook

    With wb0.Sheets("Sheet1")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row
        For r = 1 To lr
            If Not IsEmpty(.Cells(r, 1)) Then
                Set wb1 = Workbooks.Open(.Cells(r, 1).Value2)
                .Cells(r, 2) = wb1.Sheets("Sheet1").Cells(1, 1).Value
                wb1.Close False
            End If
        Next r
    End With

End Sub

您必须针对自己的具体情况进行扩展，但我相信您应该在循环查看A列中列出的工作簿时看到该过程。

循环中的变量目录

1 个答案: