Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access VBA将上次修改的csv文件导入access_Ms Access_Vba_Opencsv_Last Modified - Fatal编程技术网
Fatal编程技术网
  • ms-access/
  • Ms access VBA将上次修改的csv文件导入access

Ms access VBA将上次修改的csv文件导入access

ms-access vba

Ms access VBA将上次修改的csv文件导入access,ms-access,vba,opencsv,last-modified,Ms Access,Vba,Opencsv,Last Modified,我需要在access中打开上次修改的csv的帮助。Csv文件位于某个文件夹中。 下面我有一些代码，但错误在于将所选csv文件导入access 有谁能想到这句话： DoCmd.TransferText acImportDelim，“，”表名“，”可用性“，”真“，” 私有子导入\u单击（） Dim myDir作为字符串，fn作为字符串，a（），n作为长度，可用性作为字符串 Dim myDate作为日期，temp作为日期 myDir=“C:\Documents and Settings\FF” fn

我需要在access中打开上次修改的csv的帮助。Csv文件位于某个文件夹中。 下面我有一些代码，但错误在于将所选csv文件导入access 有谁能想到这句话： DoCmd.TransferText acImportDelim，“，”表名“，”可用性“，”真“，”

私有子导入\u单击（）
Dim myDir作为字符串，fn作为字符串，a（），n作为长度，可用性作为字符串
Dim myDate作为日期，temp作为日期
myDir=“C:\Documents and Settings\FF”
fn=Dir（myDir&“\*.csv”）
当fn“”时执行
temp=CreateObject（“Scripting.FileSystemObject”）.GetFile（myDir&“\”&fn）.DateLastModified
如果myDate=0，则
myDate=temp:Availability=myDir&“\”&fn
其他的
如果myDate
您不应该在变量周围加引号，这会使变量成为字符串：

DoCmd.TransferText acImportDelim, "", "Tablename", Availability, True, ""
您正在导入最旧的文件，因为您说的是
myDate

我会一直使用FileSystemObject

DoCmd.TransferText acImportDelim, "", "Tablename", Availability, True, ""