永发信息网

请教,如何使用VBA将一个工作簿下的某个工作表中部分单元格数值赋值给另一个工作簿下的工作表中?谢谢!

答案:1  悬赏:60  手机版
解决时间 2021-02-02 20:19
请教,如何使用VBA将一个工作簿下的某个工作表中部分单元格数值赋值给另一个工作簿下的工作表中?谢谢!
最佳答案
还没有人帮忙吗?那我就来试试吧。

不知道楼主想要怎么样的结果,我这里就纯粹以自己的臆想来做啊
在这里,我假设有两个excel文件是在同一个文件夹里的,一个为1.xlsx,另一个为2.xlsx
(这里有必要说明一下,我用的是excel2007版的)
那么假设1.xlsx里的sheet1中的A1和C2单元格是我们所要赋值的源单元格,我们想要将它们分别赋值给2.xlsx中的B1,B2单元格,那么可以在1.xlsx用vba代码,具体做法如下:
(1)将1.xlsx打开,然后同时按下Alt+F11,打开visual basic 编辑器
(2)选择菜单上的“插入”下的“模块”,出现一个空白窗口后,粘贴以下代码:
Sub test()Dim r1 As Range
Dim r2 As Range
Dim w As Workbook
ThisWorkbook.Activate
Set r1 = ThisWorkbook.Sheets(1).[a1]
Set r2 = ThisWorkbook.Sheets(1).[c2]

Set w = Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")w.Sheets(1).[b1] = r1
w.Sheets(1).[b2] = r2
SendKeys "~"
w.Save
w.Close
End Sub

(3)回到excel窗口,按下Alt+F8,选中“test”,然后点执行就可以了。

以下是补充说明的几点:
(1)这只是一个例子,可能与楼主的要求符
(2)我用的是excel2007版的,代码可能有些不兼容
(3)在运行代码的过程中,2.xlsx这个文件的打开及关闭过程是看不到的,楼主可以在运行代码前和运行代码后对比一下差别。

好了,就想到说这些,希望对你有帮助,如有疑问,欢迎追问!
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
将一个老鼠和两个兄弟的故事叫什么名字
苏州园区创意产业园属于哪个派出所?
一般增值税税率为17%。某厂购进一批蚕丝(假
我的心能等待多少个明天大神们帮帮忙
雪魔芋怎么泡发呢?用温水还是用冷水?
Success is the ability to go from one fail
这个动物叫什么 在迪士尼里面的
温州是港澳自由行的城市吗
在不同基体材料相接处表面抹灰时应先铺钉金属
我想进4s店工作,本人现在在荆州沙市,汽车专
我被骗了!!前几天从百姓网上看到山东省滨州
《医疗机构执业许可证》多长时间校验一次?()
宜宾哪些地方摩托车不能去!求详细!谢谢
美国离温哥华最近的的是哪个省
蒲州街道办事处地址在什么地方,我要处理点事
推荐资讯
天谕 怎么在队伍里聊天
光是物质吗?能量到底是个怎样的定义?
新快安达物流(城关镇交通西路159号新快安达物
乐视3的时钟在哪里?不知道桌面上的时钟怎么
仙剑奇侠传3里如何去草海
养羊赚钱还是养猪赚钱
下列属于常见的初期雨水弃流方法的是()。
【什么不胜什么】成语什么不胜什么要求首尾字
张家炒鸡地址在哪,我要去那里办事
佳信电器地址在哪,我要去那里办事
最近买了几件碧玺,想问问佩戴碧玺需注意些什
上下班途中工伤公司要上下班路线图,这个怎么
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?