实用Excel VBA代码集 本代码集提供了多个实用的Excel VBA代码,涵盖了多表合并、批量导入图片、多工作簿合并、批量删除表内图片等多个方面的功能。下面是对每个代码的详细解释: 代码一:批量合并多个Excel文件 第一个代码使用了一个循环来遍历指定的单元格范围(A1:A130),然后根据每个单元格的值,打开相应的Excel文件,并将其第一张工作表的B2:B16范围内的数据复制到当前工作簿的相应位置。 Dim w As Workbook For Each i In Range("a1:a130") c = i.Address k = i.Value m = Dir(ThisWorkbook.Path & "\" & k & ".xls*") j = j + 1 Set w = GetObject(ThisWorkbook.Path & "\" & m) With w .Sheets(1).Range("b2:b16").Copy ThisWorkbook.Sheets(1).Range("b" & j).PasteSpecial 12, , , True .Close End With Next i 这个代码可以批量合并多个Excel文件,非常实用。 代码二:批量删除表内图片 第二个代码使用了两个循环,第一个循环遍历工作表中的所有形状,然后删除所有不是图片的形状。第二个循环遍历指定的单元格范围(A1:A130),然后根据每个单元格的值,插入相应的图片。 For Each Shap In Sheet1.Shapes If Shap.Type <> 8 Then Shap.Delete Next Shap For Each Rng In Range("a1:a130") On Error Resume Next i = ThisWorkbook.Path & "\" & Rng & "(1).jpg" Set rngs = Cells(Rng.Row, 2) Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height Selection.Placement = xlMoveAndSize Next Rng 这个代码可以批量删除表内的图片,然后批量插入图片。 代码三:图片对齐方式 最后一个代码展示了如何设置图片的对齐方式,可以是移动和调整大小、移动或自由浮动。 Selection.Placement = xlMoveAndSize Selection.Placement = xlMove Selection.Placement = xlFreeFloating 这个代码可以根据需要设置图片的对齐方式。 本代码集提供了多个实用的Excel VBA代码,涵盖了多表合并、批量导入图片、多工作簿合并、批量删除表内图片等多个方面的功能,对于Excel VBA开发者来说非常实用。
Sub 多表合并()
Dim w As Workbook
For Each i In Range("a1:a130")
c = i.Address
k = i.Value
m = Dir(ThisWorkbook.Path & "\" & k & ".xls*")
j = j + 1
Set w = GetObject(ThisWorkbook.Path & "\" & m)
With w
.Sheets(1).Range("b2:b16").Copy
ThisWorkbook.Sheets(1).Range("b" & j).PasteSpecial 12, , , True
.Close
End With
Next
End Sub
----------------------------------------------------------------------------------
For Each Shap In Sheet1.Shapes
If Shap.Type <> 8 Then Shap.Delete
Next Shap
For Each Rng In Range("a1:a130")
On Error Resume Next
i = ThisWorkbook.Path & "\" & Rng & " (1).jpg"
Set rngs = Cells(Rng.Row, 2)
Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height
Selection.Placement = xlMoveAndSize
Next Rng
End Sub
---------------------------------------------------------------------------------------
Selection.Placement = xlMoveAndSize (大小和位置随单元格而变)
Selection.Placement = xlMove (大小固定,位置随单元格而变)
Selection.Placement = xlFreeFloating (大小和位置固定)
-------------------------------------------------------------------------------------------
多工作簿合并(1)
Sub mergeeveryonexls() '将多个工作簿下的工作表依次对应合并到本工作簿下的工作表,即第一张工作表对应合并到第一张,第二张对应合并到第二张……
On Error Resume Next
Dim x As Variant, x1 As Variant, w As Workbook, wsh As Worksheet
剩余5页未读,继续阅读
- 粉丝: 6
- 资源: 1
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- C++标准程序库:权威指南
- Java解惑:奇数判断误区与改进方法
- C++编程必读:20种设计模式详解与实战
- LM3S8962微控制器数据手册
- 51单片机C语言实战教程:从入门到精通
- Spring3.0权威指南:JavaEE6实战
- Win32多线程程序设计详解
- Lucene2.9.1开发全攻略:从环境配置到索引创建
- 内存虚拟硬盘技术:提升电脑速度的秘密武器
- Java操作数据库:保存与显示图片到数据库及页面
- ISO14001:2004环境管理体系要求详解
- ShopExV4.8二次开发详解
- 企业形象与产品推广一站式网站建设技术方案揭秘
- Shopex二次开发:触发器与控制器重定向技术详解
- FPGA开发实战指南:创新设计与进阶技巧
- ShopExV4.8二次开发入门:解决升级问题与功能扩展