OFFICE开发
hai167
这个作者很懒,什么都没留下…
展开
-
VBA提取html的table数据
Sub test()Dim oDom As Object: Set oDom = CreateObject("htmlFile")Dim x As Long, y As LongDim oRow As Object, oCell As ObjectDim datay = 1: x = 1With CreateObject("msxml2.xmlhttp")'http://www.bundesbank.de/Navigation/EN/Statistics/Time_series_data转载 2020-09-02 11:40:21 · 1723 阅读 · 0 评论 -
历遍文件夹批量修改文件名
Sub yyy() Dim fso As New FileSystemObject Dim fd As Folder Dim sfd As Folder Dim fl As File原创 2020-08-21 09:17:44 · 142 阅读 · 0 评论 -
VBA 插入图片以及对图片进行裁切及位置移动
VBA 插入图片以及对图片进行裁切及位置移动 Set shp = Sheet1.Shapes.AddPicture("路径", msoFalse, msoCTrue, 0, 0, -1, -1) With shp .PictureFormat.CropTop = mTop '下移裁剪 .PictureFormat.CropLeft = mLeft '右移裁剪 .PictureFormat.Crop原创 2020-08-14 14:22:05 · 5464 阅读 · 0 评论 -
vba 读取图片尺寸
vba 获取图片尺寸Function Get_ImgPixel§Dim WshShell As ObjectDim dpi'1 Inch = 2540 Himetric Const key = "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI"Set WshShell = CreateObject("Wscript.Shell")dpi = WshShell.RegRead(key)Him原创 2020-08-14 14:14:36 · 2759 阅读 · 0 评论