1)FileSystemeObjectを使って1~4行目を取り除いた新しいCSVファイルを作る。 2)新しいCSVファイルをインポートする DoCmd.TransferText acImportFixed・・・・・・で新しいCSVファイルを指定する。 3)1で作成した使用済みCSVファイルを削除する。 サンプルコードです。既存のイベントに追加修正して下さい。 Dim FSO As Object Dim InFile As Object Dim Outfile As Object Dim CsvPath As String Dim WorkPath As String Dim i As Long Const skipRow = 4''4行読み飛ばしの4 ''元のCSVファイルのフルパスに変更して! CsvPath = "C:\Sample\book.csv" ''新しく作るCSVファイル。こ