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

Спасибо:)