Как импортировать csv в ms-access без установки столбцов таблицы?
Мне уже удавалось импортировать csv-файл в таблицу ms access, но это было сделано путем предварительного указания столбцов таблицы в соответствии с csv. Я планирую заняться большим csv - файлом и задавался вопросом, Можно ли ввести столбцы таблицы программно.
Private Sub Import_Click() 'import excel file 'delete current table data With CurrentDb CurrentDb.Execute "DeleteTableData" End With 'import Dim f As Variant Set f = Application.FileDialog(3) 'set dialog title With f .Title = "Choose File" f.AllowMultiSelect = False 'Use the Show method to display the File Picker dialog box and return the user's action. 'The user pressed the action button. If .Show = -1 Then For Each f In .SelectedItems 'import into table DoCmd.TransferText acImportDelim, , "[Table1]", f, True Next f MsgBox "File Imported" Else 'Show if Canceled is selected in a message box f = "No File Selected to Import." MsgBox f End If End With DoCmd.SetWarnings True DoCmd.Hourglass False End Sub
Что я уже пробовал:
Мне интересно, нужно ли мне сначала прочитать первую строку, а затем установить ее в качестве столбца таблицы или, может быть, что-то в этом роде, но я не совсем уверен, как это сделать. Пользователь может выбрать любой csv-файл, который он хочет, и onclick it импортирует его и введет данные в таблицу.