如何导入指定的CSV文件

123shusheng

请问如果导入指定地点和指定文件名的CSV文件，有没有简洁点的代码，比如导入D:/abc文件夹中，文件名包含“幸福每一天”的CSV文件，谢谢！

roych

DoCmd.TransferText acImportDelim,"规格名称"，"表名","csv完整路径",False
规格名称：如果没有保存过规格，可以忽略。
表名：Access里的表名称。如果没有存在，则会自动创建。如果已有，应该是覆盖旧数据。
csv完整路径：csv的完整路径（需包含csv扩展名），例如：D:/abc/xxx.csv

简单一点的代码，需要使用FSO来遍历文件名，引用Microsoft scripting runtime库
请参考：
http://www.office-cn.net/thread-109240-1-1.html

123shusheng

谢谢您的指点，
DoCmd.TransferText acImportDelim, "", "表名", "D:\abc\'*' & "幸福每一天" & '*'.csv", False

我想导入D:\abc文件夹中，包含"幸福每一天"的CSV文件，文件名前后均需要加入通配符”*“，请问代码如何写，谢谢！

roych

123shusheng 发表于 2016-1-24 16:01
谢谢您的指点，
DoCmd.TransferText acImportDelim, "", "表名", "D:\abc\'*' & "幸福每一天" & '*'.csv", ...

不能用通配符的。
含有通配符的情况应考虑使用FileSystemObject来遍历符合要求的文件。估计你没有打开2L给出的链接并下载附件，或者没理解附件中代码的精要。

123shusheng

roych 发表于 2016-1-26 10:33
不能用通配符的。
含有通配符的情况应考虑使用FileSystemObject来遍历符合要求的文件。估计你没有打开2L ...

非常感谢roych版主的回复，这么多年您一直坚守在这个论坛，默默的帮助大家，真心向您表示由衷的敬意！
我的问题已经写在我的附件里了，请您看看，谢谢！

roych

不说话。看附件

1. Private Sub Command0_Click()
   
2. Dim rst As New ADODB.Recordset
   
3. 
   
4. rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
5. 
   
6. Do Until rst.EOF
   
7. '加上这句，避免不存在表时，无法删除导致出错。
   
8.     On Error Resume Next
   
9.     CurrentDb.TableDefs.Delete rst("文件名")
   
10.     DoCmd.TransferText acImportDelim, "", rst("文件名"), CurrentProject.Path & "\待导入文件" & rst("文件名") & ".CSV", True
    
11.     rst.MoveNext
    
12. Loop
    
13. 
    
14. End Sub
    

复制代码

123shusheng

roych 发表于 2016-1-27 11:09
不说话。看附件

我试了您的代码，好像还有问题，请您看看，谢谢！

roych

实话说，这个帖子我是不打算回复的。不过对于新手，我还是像说两句：

1、如果不能导入，或者导入的格式有问题，那是我的问题；否则就是你的需求不清晰，那是你的问题。
2、如果不是我的问题，我是不会进一步修改的。
3、把文件名写清楚即可导入，跟有没有空格没问题的。不过你新上传的附件里，代码已经被改得乱七八糟了，我表示无语。

根本不存在一个"\待导入文件\20160131\"的路径，怎么可能导入？既然你非要这么改的话，麻烦先按日期创建一个文件夹，然后再继续修改文件名，与“文件”字段的记录一致。否则就按附件来修改：


最后，如果你不理解TransferSpreadsheet，你可以自行百度下，或者在帮助文件里看看这个方法是怎么用的。