![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
Zero_fu
这个作者很懒,什么都没留下…
展开
-
Excel VBA 批量操作文件,FileSystemObject 方式,避免文件名中的奇怪字符
之前使用使用Dir批量获取指定文件夹下的excel文件的时候,出现了问题。**,导致打开文件的时候出现无法找到的情况。使用FileSystemObject,解决此问题。出现的问题是:文件名中的。原创 2022-10-21 19:57:41 · 739 阅读 · 0 评论 -
已有一个Excel表格,用VBA批量新建文件夹
已有一组Excel表格数据,使用VBA快速批量建文件夹不知道标题怎么写。已经有了这样一组数据然后需要根据这两组数据新建文件夹,代码如下Sub 建文件夹() Dim i As Integer '用于下方数组 Dim Arr1(), Arr2() '定义一个数组,不能定义大小和类型 Dim Fso, Fld '定义文件路径 Dim rowmax '找到数据的行数 start_time = Timer '计时开始 '数据的行数原创 2020-10-21 14:40:48 · 7201 阅读 · 7 评论 -
Excel VBA获取选择文件的文件名称
Dim File As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim i As Integer File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件对话框 If File <...原创 2020-10-20 10:50:20 · 6982 阅读 · 0 评论 -
VBA两种打开文件窗口的方式
VBA两种打开文件窗口的方式第一种第二种结语第一种获取文件夹路径,返回完整路径 Dim Fso, Fld '定义文件路径 Set Fso = CreateObject("Scripting.FileSystemObject") Set Fld = Fso.getfolder(CreateObject("Shell.Application").BrowseForFolder(0, "请选择路径", 0, "").Self.Path & "")效果如下返回完整路径第二原创 2020-10-20 10:32:33 · 5739 阅读 · 2 评论 -
VBA,程序运行暂停一定时间后继续运行
代码:waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)Application.Wait waitTime来自excelhome网友Zamyi转载 2020-06-06 22:10:56 · 3115 阅读 · 0 评论