VBA文件写入遍历所有.xlsx、csv文件 |
您所在的位置：网站首页 › vba文件夹下所有文件都没了 › VBA文件写入遍历所有.xlsx、csv文件 |
|
读取所有本文件夹内所有csv文件
Filename = Dir(ThisWorkbook.Path & "\*.csv") '取得本文件夹下首个CSV文件
Do While Filename "" '判断是否存在csv文件
If Filename ThisWorkbook.Name Then '判断文件是否为本工作薄（其实是不用判断了，后缀已经不同）
fn = ThisWorkbook.Path & "\" & Filename '区别一下fn和Filename的区别看看 fn为全路径
Set mywb = GetObject(fn) '将fn代表的工作薄对象赋给变量mywb
Set sht = mywb.Worksheets(1) '第一张工作表对象赋给变量sht
set fn =Dir ‘取下一个文件 【重】
读取单个指定文件，其实只要指定文件名就可以了 fn= Dir(ThisWorkbook.Path & "\test1.csv" ) Set mymy =GetObjece(fn) Dir(ThisWorkbook.Path & "\*.csv")
|
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |