AccessVBA CSVファイルをエクスポートしヘッダー行を削除する
スポンサーリンク
EXCELにエクスポートする場合の補足です。
CSVでエクスポートして、ヘッダー行(フィールド名)を削除する仕様です。
↓EXCELへのエクスポート方法はこちら
上記で tranferspreadsheet とあるのを
CSVエクスポートの場合は、
DoCmd.TransferText acExportDelim, , "TableName", filename, 1
になります。
以下、コード記述
'---------------------------------------------------------------------------------------
Private Sub removeHeaderName
Dim xlsApp As Object
Dim xlsbook As Object
Dim xlsSheet As Object
Dim filename AS String
filename = ¥aaaaa '操作するファイルのフルパス
Set xlsApp = CreateObject("Excel.Application")
xlsApp.DisplayAlerts = False 'CSV保存の場合のメッセージを非表示に
Set xlsbook = xlsApp.Workbooks.Open(filename)
Set xlsSheet = xlsbook.worksheets(1)
With xlsSheet
'行を削除
.Rows(1).Delete
End With
'保存
xlsbook.Save
xlsApp.Application.Quit
Set xlsSheet = Nothing
Set xlsbook = Nothing
Set xlsApp = Nothing
End Sub
’-------------------------------------------------------------------------
以上、コード記述終わり