Импорт CSV-файла из VBA без указания имени таблицы - PullRequest
Новая
       7

Импорт CSV-файла из VBA без указания имени таблицы

0 голосов
/ 09 января 2019

Я пытаюсь импортировать CSV-файл из каталога в базу данных доступа. Я могу импортировать, но всякий раз, когда я импортирую, имя файла изменяется, и я не хочу, чтобы имя файла было изменено. Я хочу, чтобы имя таблицы совпадало с именем файла CSV. Как мне это сделать? Вот мой код: strInitialDirectory = "S: \" 

strPathFile = ahtCommonFileOpenSave(InitialDir:=strInitialDirectory, _
      Filter:=strFilter, OpenFile:=False, _
      DialogTitle:=strBrowseMsg, _
      Flags:=ahtOFN_HIDEREADONLY)

If strPathFile = "" Then
      MsgBox "No file was selected.", vbOK, "No Selection"
      Exit Sub
End If

' Replace tablename with the real name of the table into which
' the data are to be imported
  strTable = strPathFile

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames

End Sub

Если имя файла csv - StudentRecords18 / 19.csv, то имя таблицы также должно быть StudentRecords18 / 19. Я могу установить это в strtable, но я не хочу, так как я буду импортировать разные данные каждый месяц, следовательно, он будет содержать одно и то же имя таблицы с 1 и т. Д. В конце, но разные данные ..

...