怎样用VB把另一个EXCEL中的内容复制到当前EXCEL中

答案:2 悬赏:10 手机版

解决时间 2021-02-26 08:09

提问者网友：孤凫
2021-02-25 22:37

例如在当前打开的EXCEL中创建按钮，点击按钮后把“E:\files\工作报告.XLS”中sheet1的D4到Q18中的内容复制到当前工作表sheet1中的D6到Q20中。急急急！

最佳答案

五星知识达人网友：野味小生
2021-02-26 00:15

新建一个宏，里面内容为：

Sub OpenAndClose()
Workbooks.Open Filename:="E:\files\工作报告.XLS" '打开指定的文件
ThisWorkbook.Sheets(1).Range("d6:q20") = Sheets(1).Range("d4:q18")
ActiveWorkbook.Close savechanges:=False '关闭打开的文件
End Sub

然后运行就可以了。

全部回答

1楼网友：狂恋
2021-02-26 00:41

如果你插入的是窗体控件，很简单的。（activex控件比较麻烦，得用vba代码）右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。在sheet2的a1输入 =if(sheet1!g1,"车间（1）","车间（2）") 就可以了。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息