VBA导入CSV进行访问

Question

我正在创建一个代码，将csv的列表导入到各种表中。该代码循环遍历csv和表以导入每个表并创建一个表。该代码工作正常，但仅当我打开csv时才有效。为什么必须打开csv？以及如何修复代码，而不必打开每个csv？ 代码是：

Sub ImportData()

Dim filepath(3) As String
Dim tablename(3) As String

filepath(1) = "N:\CompanyA\Model\2018-09-01\Inputs\Tomato.csv"
filepath(2) = "N:\CompanyA\Model\2018-09-01\Inputs\Apple.csv"
filepath(3) = "N:\CompanyA\Model\2018-09-01\Inputs\Pear.csv"

tablename(1) = "8594_Tomato"
tablename(2) = "15692_Apple"
tablename(3) = "10567_Pear"

For i = 1 To 3
    DoCmd.TransferSpreadsheet acImport, , tablename(i), filepath(i), True
Next i

End Sub

谢谢：）