我可以将csv导入到mdb中吗？

Question

代码首先将dbf文件更改为csv。

Sub FindFiles()
    Dim strDocPath As String
    Dim strCurrntFile As String
    Dim Fname As String

strDocPath = "Y:\Eilat\Shapes\"
'strCurrentFile = Dir(strDocPath & "*.*")
strCurrentFile = Dir(strDocPath & "111.dbf")

    Workbooks.Open FileName:=strDocPath & strCurrentFile
    Fname = Left$(strCurrentFile, Len(strCurrentFile) - 4) & ".csv"
    ActiveWorkbook.SaveAs FileName:=strDocPath & Fname, FileFormat:=xlCSVMSDOS, CreateBackup:=False
    ActiveWorkbook.Close (True)


Dim filepath As String
Dim sqlinsert As String
Dim sqlvalue As String
Dim sqlquery As String
Dim sqlwhere As String

'Set db = CurrentDb
directory = "Y:\Eilat\Shapes\"
FileName = "111.csv" 
Set rs = CreateObject("ADODB.Recordset")
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & directory & ";" _
& "Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
'strSQL = "SELECT * FROM " & FileName
'rs.Open strSQL, strcon
'rs.MoveFirst
Dim strTextLine As String
Dim aryMyData() As String


Open directory & FileName For Input As #1
Do While Not EOF(1)             ' Loop until end of file.
    Line Input #1, strTextLine   ' Read line into variable.
    aryMyData = Split(strTextLine, ",") 'Split text into array by comma

'（例如，csv长度更改，这是csv中的列，但可以更长。EHANDLE，UseCode，UseCode2，Descriptio，Gush，Helka，Owner，OwnerID，Holder，HolderID，Floor，PhysicalNo，Date，Area，注释，地址，街道名称，房屋编号，电话，传真，电子邮件，管理器，业务，序列号，MeasuredBy，高度，块编号，Mapkey，User1，User2，user3是csv中的列，但可以更长。

strSQL =“ ??（需要什么sql语句??）]

（（不知道如何导入到mdb“ Y：\ Eilat \ Arnona \ Eilat.mdb”）

Debug.Print strSQL
DoCmd.RunSQL strSQL

Loop
Close
End Sub

代码首先将dbf文件更改为csv。 Sub FindFiles（）以字符串形式Dim strDocPath以字符串形式Dim strCurrntFile以字符串Dim Fname形式以字符串strDocPath =“ Y：\ Eilat \ Shapes \”'strCurrentFile = ...

Answer 1

基于假设：