- 博客(3)
- 收藏
- 关注
RSS订阅
原创 VBA查找指定文件夹下的所有文件（包括子文件夹）
Sub 所有文件夹()Dim fs As New FileSystemObject, arr(), i, j, kDim fd, subfd As FolderDim files As file'Range(“A:A”).ClearSet fp = Application.FileDialog(msoFileDialogFolderPicker)fp.ShowSet paths = fp.SelectedItemsReDim arr(1)arr(0) = paths(1) ‘文件夹路径赋给
2020-12-18 18:28:46
11992
1
原创 通过数组将excel所有表格内容复制到txt中，节省大量读取excel单元格时间
Sub test()Dim ws As WorksheetDim arri()Dim i, jDim myrng As RangeOpen "C:\Users\Administrator\Desktop\000.txt" For Output As #1'在工作簿"000.xlsm"中循环所有的工作表For Each ws In Workbooks("000.xlsm").Worksheets Set myrng = ws.UsedRange '将工作簿已使用的内容赋给数组
2020-12-29 15:50:51
404
原创 遍历文件夹下的所有xls文件，并使用Vlookup查找料号
Sub 查找PN号()Dim wbk As WorkbookDim sht As WorksheetDim path As StringFor i = 2 To 150path = “C:\Users\Administrator\Desktop\Task\1-产品”File = Dir(path & “.xls”)Do While File <> “”Set wbk = GetObject(path & File)Worksheets(“PN”).Select
2020-12-18 18:39:22
624
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人