AccessVBA 標準モジュール⑥外部ファイルを操作

AccessVBA開発

Option Compare Database

Sub XLSExport(TableName, FilePath)
‘************************************************
‘エクセルファイルをエクスポートする
‘  TableName: エクスポート元のソースのテーブル
‘ FilePath :エクスポート先のエクセルファイルのパス+ファイル名

‘************************************************

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, TableName, FilePath
End Sub
Sub XLSInport(TableName, FilePath)
‘************************************************
‘エクセルファイルをインポートする
‘  TableName :インポート先のテーブル
‘ FilePath :インポート元のエクセルファイルのパス+ファイル名(先頭のワークシートを読み込む)
‘ True   :1行目をフィールド名とする
‘************************************************
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, TableName, FilePath, True
End Sub

タイトルとURLをコピーしました