VBA 将最后修改的 csv 文件导入访问答案

【问题标题】：VBA import last modified csv file into accessVBA 将最后修改的 csv 文件导入访问
【发布时间】：2012-08-09 08:49:15
【问题描述】：

我需要有关在访问中打开上次修改的 csv 的帮助。 CSV 文件位于某个文件夹 FF 中。我在下面有一些代码，但错误在于将选择的 csv 文件导入访问谁能想到这条线： DoCmd.TransferText acImportDelim, "", "表名", "可用性", True, ""

Private Sub Import_Click()


Dim myDir As String, fn As String, a(), n As Long, Availability As String
Dim myDate As Date, temp As Date

myDir = "C:\Documents and Settings\FF"
fn = Dir(myDir & "\*.csv")


Do While fn <> ""
    temp = CreateObject("Scripting.FileSystemObject").GetFile(myDir & "\" & fn).DateLastModified
    If myDate = 0 Then
        myDate = temp: Availability = myDir & "\" & fn
    Else
        If myDate < temp Then myDate = temp: Availability = myDir & "\" & fn
    End If
    fn = Dir
Loop
If Len(Availability) Then
      If vbYes = MsgBox("Opening Availability File  Name : " & Availability & vbLf & _
    "Last modified on : " & myDate, vbYesNo) Then

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

【问题讨论】：

标签： ms-access vba opencsv last-modified

【解决方案1】：

您不应该在变量周围加上引号，这会使它们成为字符串：

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

您正在导入最旧的文件，因为您说的是myDate < temp

我会一直使用 FileSystemObject。

【讨论】：