VBA 自动导入文件夹中的EXCEL表
2013-03-06 16:00
274 查看
Public Sub LOAD() Dim filepath As String, files As String, filename As String filepath = CurrentProject.Path & "\文件夹\*.xls" files = Dir(filepath) 'Debug.Print filepath Do Until files = "" filename = CurrentProject.Path & "\文件夹\" & files DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "表名", filename, True Debug.Print filename files = Dir '下一个文件 Loop End Sub
这个是自动导入ACCEss文件 所在目录中 的“文件夹” 内的execl表。
各位看官,可以的话留个言,让我知道我帮助了人,我心情会很愉快的哦
相关文章推荐
- Unity3d 导入图片 自动修改Texture Type为Sprite (2D and UI) 及设置 Packing Tag为文件夹名
- Eclipse中导入Cococs2d-x源码的Classes文件夹以及代码的自动补全
- bat脚本自动扫描制定文件夹下shp文件,并导入数据库,然后执行空间操作
- iOS masonry自动布局怎么导入呢?导入masonry文件夹够不够呢?为什么我导入时报了很多个错呢?
- 图解SSIS监视文件夹并自动导入数据
- 图解SSIS监视文件夹并自动导入数据
- MyEclipse编译后,classes文件夹下为空2. 3.删除现在的项目,提前设置好编译文件输出路径,重新导入源文件,设置eclipse为保存时编译,然后在保存的时候就可以自动编译了
- 图解SSIS监视文件夹并自动导入数据
- Unity 将导入到Sprites文件夹内的图片自动设置类型为Sprite
- Unity3d 导入图片 自动修改Texture Type为Sprite (2D and UI) 及设置 Packing Tag为文件夹名
- 图解SSIS监视文件夹并自动导入数据
- Unity 将导入到Sprites文件夹内的图片自动设置类型为Sprite
- 从foxmail导入邮件到outlook,并对邮件创建相应的过滤规则自动分配到自定义文件夹中
- vba 自动导入excel报表遇到的问题及解决方法
- iOS masonry自动布局怎么导入呢?导入masonry文件夹够不够呢?为什么我导入时报了很多个错呢?
- Laravel 下增加自定义文件夹,并自动导入
- 图解SSIS监视文件夹并自动导入数据
- 从文件夹目录下导入所有指定文件类型的数据内容到数据库表
- Java_乔晓松_Java SE 加强-静态导入_自动装拆箱_增强for循环_枚举
- linux 根据文件路径自动创建文件夹