從a.xls的Sheet1中Copy Picture 到b.xls 中的Sheet1 中!!

Jinklang 2004-09-07 09:40:28
a.xls
A B C D E.........
**************************************************
1 pic1.jpg 圖片1 圖片1描述
**************************************************
2 pic2.jpg 圖片2 圖片2描述
**************************************************
3 pic3.jpg 圖片3 圖片3描述
**************************************************
4 pic4.jpg 圖片4 圖片4描述
**************************************************

b.xls
A B C D E.........
**************************************************
1 pic1 圖片1
**************************************************
2 pic2 圖片2
**************************************************
3 pic3 圖片3
**************************************************
4 pic4 圖片4
**************************************************


請問各位高手,如何將a.xls 中圖片名稱和相對應的圖片拷貝到b.xls !! 如上圖所示。
1:如何選去一個圖片
2:如何將名稱和圖片對應選去
3:如何從a拷到b中的,且名稱和圖片對應

先謝謝各位大蝦了!!
...全文
126 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
沐NeMo 2004-09-18
  • 打赏
  • 举报
回复
'打开A.xls
Set myDocument1 = Worksheets(1)
myDocument1.Shapes("pic1").selected
myDocument1.Shapes("pic1").copy
'打开B.xls
Set myDocument2 = Worksheets(2)
myDocument2.Paste
-----------------------------------
一点点思路,能帮上你吗?
不过这样大的问题才20分,人家看了都不想回答了。

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧