Question

我想在我的vba中使用Vlookup来搜索所选的另一个文件。我从录制的宏复制的vlookup。我更改了工作簿和工作表的名称，因为每次都不同。范围是相同的。我收到错误438“对象不支持此属性或方法”的提示。

With Application.FileDialog(msoFileDialogFilePicker)
        'Makes sure the user can select only one file
        .AllowMultiSelect = False
        .Title = "Select BPM Report for previous month"
        .ButtonName = "OK"
        'Filter to just the following types of files to narrow down selection options
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        'Show the dialog box
        .Show

        oldbpm = .SelectedItems.Item(1) End With
     Workbooks.Open oldbpm

Dim Sheetstarybpm As Worksheet 
Set Sheetstarybpm = ActiveSheet

Dim countrowsoldbpm1 As Long
    countrowsoldbpm1 = Range("a10", Range("a10").End(xlDown)).Rows.Count

Workbooks("BPM-Tool.xlsm").Activate Worksheets("OU").Activate

Dim countrowsoldbpm As Long
    countrowsoldbpm = Range("a1", Range("a1").End(xlDown)).Rows.Count

    Range("D1:D1823").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(B2,'[" & oldbpm & "]" & Sheetstarybpm & "'!R10C2:R7000C101,100,FALSE),0)"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D" & countrowsoldbpm)

带变量的Vlookup

0 个答案: