Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

多文件选择后,如何将文件路径写入到表中

花熊2000  发表于:2009-02-24 20:17:15  
复制

目的:本人做一小程序,涉及到要使用“DoCmd.TransferText”进行数据导入。如果是导入单个文件还好说,通过网上下载的Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean代码,选择文件,获得到文件的绝对路径,按照语法导入即可。可现在问题是需要导入的文件是多个文件,我就不会操作了,虽然从网上找到都文件选择的代码,但是选择之后如何操作还是一窍不通,希望有人能给与指点。

我的要求很简单,就是首先能实现多文件选择,然后获得已选择文件的绝对路径,再依次使用TransferText进行导入,实现一个类似“庖丁解牛”的过程

 

 

附例子程序

 

点击下载此附件

 

Top
ACMAIN.CHM 发表于:2009-02-24 20:41:09

你已经找到解决问题的真谛了。所有的问题其实都是这种解决方法,大事化小,小事化了。

以下摘自 Microsoft Access 2003 Help  

 

实现多文件选择
 
FileDialog 对象
提供文件对话框,功能与 Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似。利用这些对话框,解决方案的用户可以简便地指定解决方案中应该使用的文件和文件夹。
 
使用 FileDialog 对象
使用 FileDialog 属性返回一个 FileDialog 对象。FileDialog 属性位于每个单独 Office 应用程序的 Application 对象中。该属性使用一个参数 DialogType 确定该属性返回的 FileDialog 对象类型。FileDialog 对象有四种类型:
“打开”对话框:让用户选择一个或多个可以在主机应用程序中使用 Execute 方法打开的文件。
“另存为”对话框:让用户选择一个可以使用 Execute 方法保存当前文件的文件。
“文件选取器”对话框:让用户选择一个或多个文件。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合。
“文件夹选取器”对话框:让用户选择一个路径。用户选择的文件路径将捕获到 FileDialogSelectedItems 集合。

每个主机应用程序只能实现一个 FileDialog 对象实例。因此,在创建多个 FileDialog 对象时将延续 FileDialog 对象的很多属性。所以,在显示对话框之前请确保已经针对用途正确设置了所有属性。
要使用 FileDialog 对象显示一个对话框,必须使用 Show 方法。对话框显示后,在用户消除对话框之前将不执行任何代码。本示例创建并显示“文件选取器”对话框,并在消息框中显示每个选定的文件。
 
FileDialog.AllowMultiSelect 属性
如果允许用户从文件对话框中选择多个文件,则返回 True。Boolean 类型,可读写。

获得已选择文件的绝对路径
FileDialog.SelectedItems 属性
FileDialogSelectedItems 集合
String 类型值的集合,对应于通过 FileDialog 对象显示的文件对话框中用户所选文件或文件夹路径。
 



花熊2000 发表于:2009-02-24 20:48:28
谢谢回复,大体意思看懂了,能不能具体给出代码,我VBA只懂皮毛,具体操作不精通。这个是给单位编的程序,近期上面催的很紧,实在没办法才上来麻烦大家帮忙解决

竹笛 发表于:2009-02-24 20:56:42
江羽 发表于:2009-02-26 11:29:01
我无法下载你的附件,你可以加我QQ交流,QQ号:308938181

总记录:4篇  页次:1/1 9 1 :