UC知道请教excel 宏 高手，高分追加
来源：百度知道 编辑：UC知道 时间：2024/07/07 00:41:27
有a0、a1、a2......a100 多个excel文件，又有100个jpg图片文件(图片文件名也是a1~a100)
想在a0中建立一个宏，把这100个文件分发到a1...a100文件的E2单元格内.
急盼高手指教，另有加分
1楼所说的cpu问题，实在是不存在啊，也许你的方法有问题吧？
2楼的代码运行起来也出错，但是ActiveSheet.Pictures.Insert 是关键，就是它起作用。
以下是我调试成功的代码：
Dim i As Integer, mydir As String
mydir = "D:\t"
For i = 1 To 10
Workbooks.Open Filename:=mydir & "\A" & i & ".xls"
Range("E2").Select
ActiveSheet.Pictures.Insert(mydir & "\pic\A" & i & ".jpg").Select
ActiveWorkbook.Save
ActiveWindow.Close
Next i
想在a0中建立一个宏，把这100个文件分发到a1...a100文件的E2单元格内.
急盼高手指教，另有加分
1楼所说的cpu问题，实在是不存在啊，也许你的方法有问题吧？
2楼的代码运行起来也出错，但是ActiveSheet.Pictures.Insert 是关键，就是它起作用。
以下是我调试成功的代码：
Dim i As Integer, mydir As String
mydir = "D:\t"
For i = 1 To 10
Workbooks.Open Filename:=mydir & "\A" & i & ".xls"
Range("E2").Select
ActiveSheet.Pictures.Insert(mydir & "\pic\A" & i & ".jpg").Select
ActiveWorkbook.Save
ActiveWindow.Close
Next i
1。图片存放位置D:\My Documents\图片\，可自行修改（相信你会）
2。必须保证文件夹内有全部图片
3。如果图片名称显示为1,2,3...100，则需要将VBA中的 & ".jpg"去掉。如果显示为1.jpg,2.jpg就按此VBA运行
准备好了就运行吧
Sub abd()
Application.ScreenUpdating = False
Dim a As Worksheet
For Each a In ThisWorkbook.Worksheets
Sheets(a.Name).Activate
[e2].Select
ActiveSheet.Pictures.Insert("D:\My Documents\ͼƬ\" & a.Name & ".jpg").Select
Next
Application.ScreenUpdating = True
End Sub
100多个表格啊，写出来估计你cpu也带不动。
a0 。。。。，算了。折杀你电脑了。
好吧，既然你执意要这么做。（我1G的cpu100%了，才开一个文档），代码如下。
假定D盘下面：1.xls 2.xls 1.gif 2.gif等四个文件。
在1.xls里面右键-》查看代码-》选择左边的thisWorkBook并双击，添加
Private Sub Workbook_Open()
Sheet1.Activate
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "D:\2.xls"
xlApp.Workbooks("2.xls").Sheets("Sheet1").Cells(2, 5) = "