VBA

Question

我相当确定我知道如何 select 来自不同工作簿的数据/ sheet 但我对如何生成 VBA 有点无能为力提示用户点击输入相关工作簿的问题框/sheet.

例如：

工作簿 1，sheet1 需要数据

工作簿 2，sheet2 有数据

工作簿 1 将包含一个名为 'get data' 的按钮。

单击 - 'Get Data' 按钮将提示用户输入工作簿，然后输入要从中复制的作品sheet。

一旦用户指定工作簿 2，sheet2，从 selected sheet/book 复制的范围将始终相同（无论 sheet ref) 因此将从工作簿 2 sheet 2 收集数据，然后将其粘贴回工作簿 1 sheet 1.

工作簿 1，sheet1 将始终用于粘贴数据。

我希望我没有以过于混乱的方式解释这一点，我已经在脑海中思考了一段时间，所以如果有人需要澄清，请大声说出来！

非常感谢。

Answer 1

我认为最好的方法是创建一个用户窗体

有 2*2 个组合框（1 个用于工作簿（这里 Cb_Wb），一个用于工作表（这里 Cb_Ws），2 次：源和目标）

使用该代码：

Private Sub Cb_Wb_Change()
Me.Cb_Ws.Clear
On Error Resume Next
For Each ws In Workbooks(Me.Cb_Wb.Value).Worksheets
    Me.Cb_Ws.AddItem ws.Name
Next ws
End Sub

Private Sub UserForm_Initialize()

For Each wb In Application.Workbooks
    Me.Cb_Wb.AddItem wb.Name
Next wb

End Sub

VBA - 单击 - 生成提示以确认要查看的工作簿/电子表格

VBA - on click - generate a prompt to confirm which workbook / spreadsheet to look at

excel

copy

prompt

onclick