Question

操作表单用vba执行后台打开另一张只读的工作簿中的工作表a，并使用打开表a中的按钮控件

如题，操作的''表单123''想后台打开只读的另一张''工作簿X''中的''工作表a''，并用''表单123''中A列的数据复制到''工作表a''的A列中，使用''工作表a"中的按钮控件执行命令？（工作簿X不是本人所做，只是想借用别人的控件），请大神帮忙出完整的代码，新手求指导，万分感谢

Answer 1

编写代码如下：

Private Sub CommandButton1_Click()
    ActiveSheet.Columns("A:A").Select
    ActiveWindow.Selection.Copy
    
    Workbooks.Open Filename:="f:\工作簿X.xls"
    Worksheets("工作表a").Activate
    
    ActiveSheet.Columns("A:A").Select
    ActiveSheet.Paste
    
    ActiveSheet.CommandButton1.Activate
    Application.SendKeys (" ")
End Sub

代码运行测试截图：