Question

我正在编写一个VBA代码，该代码应将特定范围从一个工作簿复制到另一个工作簿（已打开）。我想从显示所有打开的excel工作簿的弹出窗口中选择该工作簿。

我必须从下面开始，它是复制我想要的范围，不想指定比这更多的工作簿（每年更改）或工作表（每月更改）。从Application.Dialogs(xlDialogActivate).Show中，我可以获得活动的工作簿/应用程序列表（感谢@jkpieterse），现在我想将其设置为WB2，以便可以将其复制到我选择的范围内。

Sub GTS_Timesheet()
Dim WB As Workbook, WS As Worksheet, RG As Range, WB2 As Workbook
Set WB = ActiveWorkbook
Set WS = WB.ActiveSheet
Set RG = WS.Range("F10", Range("U" & Cells(Rows.Count, "F").End(xlUp).Row))
''Set WB2 =
RG.Copy

WB2 = Application.Dialogs(xlDialogActivate).Show

WB2.Worksheets("Paste FRW Data").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

End Sub

谢谢，请告诉我是否需要解释更多我想要的东西。

Answer 1

一旦选择了工作簿，就会激活它：

Application.Dialogs(xlDialogActivate).Show
Set WB2 = ActiveWorkbook

从打开的工作簿中选择以粘贴复制的数据

1 个答案: