Question

我通过录制创建了一个宏，该宏将使用当前工作表名称来查找部门代码。我需要帮助，找到一种将文件名更改为当前活动工作表的方法。我是新来的，所以请耐心等待我。

ActiveSheet.Next.Select
    Range("K9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-10],'S:\ Accounting\Inventory\2018 Inv\Physical Inventory\Year End\PIVR Adjustments\[October 2018 PIVR Adjustment Form 9418.xlsx]Pivot'!C1:C2,2,FALSE),0)"
    Range("K9").Select
    Selection.Copy
    Range("K9:K71").Select
    ActiveSheet.Paste
ActiveSheet.Next.Select
    Range("K9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-10],'S:\ Accounting\Inventory\2018 Inv\Physical Inventory\Year End\PIVR Adjustments\[October 2018 PIVR Adjustment Form 9996.xlsx]Pivot'!C1:C2,2,FALSE),0)"
    Range("K9").Select
    Selection.Copy
    Range("K9:K71").Select
    ActiveSheet.Paste

在vlookup中更改文件名

0 个答案: