Excel のワークシートSheet1に対してSQLのINSERTを実行します。来月の月末日を入れます。
そのためには DAO(※Data Access Object の略)を利用します。ここで紹介す
る方法を実現するには、「Microsoft Office 14.0 Access database engine Object Library」が参照設定されていることが前提になります。
そのためには DAO(※Data Access Object の略)を利用します。ここでは、DAO を使ったデータベース検索方法を紹介します。
① 「Microsoft Office 16.0 Access database engine Object Library」を参照設定します。
② 参照設定したことで、DAOを利用できます。Excel ブックを用意して、標準モジュールに DAO を利用した次のコードを記載します。
Option Explicit
Public Sub Sample_InsertNextLastDayToExcelTable_DAO_01()
' DAO データベース設定用変数
Dim db As DAO.Database
' "C:\Temp\ダミーデータ.xlsx"をデータベースとして開く。
Set db = DBEngine.Workspaces(0).OpenDatabase( _
"C:\Temp\ダミーデータ.xlsx" _
, False _
, False _
, "Excel 12.0;HDR=YES" _
)
' データを挿入する。
Call db.Execute( _
" INSERT INTO [Sheet1$]" _
& " ( " _
& " 名前 " _
& " , 今 " _
& " , 月末 " _
& " ) " _
& " VALUES( " _
& " ""桃太郎"" " _
& " , NOW()" _
& " , DateSerial(YEAR(NOW()), MONTH(NOW())+2, 0) " _
& " ) " _
)
' データベースを閉じる。
db.Close
Set db = Nothing
' 処理の終了を通達する。
MsgBox "データを挿入しました。", vbOKOnly
End Sub
③ Sample_InsertNextLastDayToExcelTable_DAO_01を実行します。
ExcelにデータがINSERTされました。
コメントを残す