宏或VBA中的动态工作簿和工作表名称

Question

我有这个有效的代码：（目前正在使用Excel 2003）

Sub test_copy1()    

Dim wb1 As Workbook     
Dim wb2 As Workbook     
Dim ws1 As Worksheet     
Dim ws2 As Worksheet      

Set wb1 = Workbooks("Workbook2.xls")     
Set wb2 = ThisWorkbook     
Set ws1 = wb1.Sheets("Run 1")     
Set ws2 = wb2.Sheets("Sheet3") 

ws2.Range("A1:h30") = ws1.Range("A177:H206").Value  

End Sub

在当前工作簿“ Sheet 3”中，单元格J1 = Workbook2.xls单元格J2 =运行1

如何将当前工作簿“第3页”中的信息从单元格中馈送到宏中，以便可以根据需要进行更改并仍然有效？

我的意思是要有2个可以在工作表中更改的单元格，可以通过下拉或手动在当前工作簿工作表“工作表3”中填写。 单元格：J1等于文件名（Workbook2.xls），J2等于工作表名（运行1）。

用户将可以在需要时更改文件名和图纸名，然后单击按钮来处理复制和粘贴。

我希望代码从单元格中获取信息并将其放入代码中，而不是“硬”编码工作簿和工作表的文件名。

我希望这更有意义

感谢您的任何帮助。

〜DA

----- UPDATE ----

我已经尝试过此代码，但是在第一个Set Wb1 =上它一直崩溃

    Sub test_copy1()

        Dim wb1 As Workbook
        Dim wb2 As Workbook
        Dim ws1 As Worksheet
        Dim ws2 As Worksheet

        Set wb1 = Workbooks(ws2.Range("J1"))
        Set wb2 = ThisWorkbook
        Set ws1 = wb1.Sheets(ws2.Range("J2"))
        Set ws2 = wb2.Sheets("Sheet3")

        ws2.Range("A1:h30") = ws1.Range("A177:H206").Value

    End Sub

------更新-------

我使用所有示例并在范围后添加.Value使它起作用:)

Sub test_copy1()

    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set wb2 = ThisWorkbook
    Set ws2 = wb2.Sheets("Sheet3")

    Set wb1 = Workbooks(ws2.Range("J1").Value)
    Set ws1 = wb1.Sheets(ws2.Range("J2").Value)

    ws2.Range("A1:h30") = ws1.Range("A177:H206").Value

End Sub

谢谢，谢谢您的所有帮助！！

Answer 1

试试这个：

Sub test_copy1()

    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set wb2 = ThisWorkbook
    Set ws2 = wb2.Sheets("Sheet3")

    Set wb1 = Workbooks(ws2.Range("J1").Value)
    Set ws1 = wb1.Sheets(ws2.Range("J2").Value)

    ws2.Range("A1:H30").Value = ws1.Range("A177:H206").Value

End Sub