複数のCSVファイルから複数のCSVファイルをvba /マクロを使用してAccess 2013にインポートする

Question

同じ列数（約616）と異なる行数で複数のcsvファイル（セミコロン区切り）を使用しています。私はすべてのファイルをAccessの異なるテーブルにインポートしたい。私はmacro/vbaに全く新しいです。 私は2つの問題に直面している：フォーラムから[私はこのコードを使用しhttps://superuser.com/questions/1131994/ms-access-2016-import-multiple-csv-files][1]を

1. を、それが正常に動作しますが、それは分離セミコロンで1列に1つのテーブルに1 CSVファイルをインポートしていますが（CSVファイルから616個の列が表示されていることセミコロンで区切ってアクセスすると1つのクーランになります）。データは表の別々の列に表示する必要があります。データを別々の列に表示したい。インポート後、私はcsvファイルと同じアクセス権でデータを見ています。 csvファイルの列見出しにもテキストと数字（1〜600）があります。
2. 次に、CSVファイルから特定の列をインポートしたいとします。誰かがこのコードを編集し、csvファイルから特定の列をAccessにインポートする方法をいくつか追加してください。

私はうまく説明したいと思います。

Answer 1

600+列のファイルをAccessにインポートする方法はありません。 SQL Serverを試すことができます。または、必要な特定のフィールドをインポートすることもできます。私は真剣にあなたのデータセットに600以上のフィールドが必要であると疑う。

とにかく、特定のフィールドをExcelからAccessにエクスポートできます。

Sub DAOFromExcelToAccess() 
' exports data from the active worksheet to a table in an Access database 
' this procedure must be edited before use 
Dim db As Database, rs As Recordset, r As Long 
    Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb") 
    ' open the database 
    Set rs = db.OpenRecordset("TableName", dbOpenTable) 
    ' get all records in a table 
    r = 3 ' the start row in the worksheet 
    Do While Len(Range("A" & r).Formula) > 0 
    ' repeat until first empty cell in column A 
     With rs 
      .AddNew ' create a new record 
      ' add values to each field in the record 
      .Fields("FieldName1") = Range("A" & r).Value 
      .Fields("FieldName2") = Range("B" & r).Value 
      .Fields("FieldNameN") = Range("C" & r).Value 
      ' add more fields if necessary... 
      .Update ' stores the new record 
     End With 
     r = r + 1 ' next row 
    Loop 
    rs.Close 
    Set rs = Nothing 
    db.Close 
    Set db = Nothing 
End Sub