- 博客(4)
- 资源 (3)
- 收藏
- 关注
转载 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 1706
原创 历遍文件夹批量修改文件名
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 137
原创 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 5424
原创 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 2735
供商管理的七大指标,有效管理供应商
2010-05-18
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人