VBA를 마지막으로 수정 한 CSV 파일을 액세스로 변환합니다.

Question

액세스에 마지막으로 수정 한 csv가 열려 있어야합니다. CSV 파일은 일부 폴더 FF에 있습니다. 나는 아래의 몇 가지 코드를 가지고 있지만, 오류가 액세스 로 가져 오기 선택 csv 파일에 수이 라인을 가진 사람의 아이디어 : DoCmd.TransferText acImportDelim, "", "TABLENAME", "가용성"참 ","

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 

당신이 myDate < temp

내가 사용을 할 것이다라고 때문에,

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

당신은 오래된 파일을 가져 오는 :

Answer 1

당신은 변수 따옴표를 넣지한다, 즉 그 문자열을 만든다 전체 FileSystemObject.