VBA導入最後修改的csv文件進入訪問

Question

我需要幫助打開最後修改的csv訪問。 Csv文件位於某個文件夾FF中。 下面我有一些代碼，但錯誤是在進口選擇CSV文件導入訪問 可以用這條線的人的想法： DoCmd.TransferText acImportDelim「」，「表名」，「可用性」，真「」

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 

Answer 1

你不應該把周圍變量的報價，這使得他們的字符串：

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

要導入的最舊的文件，因爲你說myDate < temp

我會使用整個FileSystemObject。