|
初めて質問させていただきます。
よろしくお願いします。
エクセルの列データをアクセスの新規レコードとして追加しようと
VBAで悪戦苦闘しております。
Sub T_Mth()
Dim rno As Excel.Range
Dim rng As Excel.Range
Dim dbs As DAO.Database
Dim rcs, rcs2 As DAO.Recordset
Set dbs = OpenDatabase(Name:="D:\総括表.mdb")
Set rcs = dbs.OpenRecordset(Name:="T_Mth上期")
Set rcs2 = dbs.OpenRecordset(Name:="T_Mth下期")
Worksheets("Mth").Select
rcs.AddNew 'レコード追加データ記入
rcs!1営業現金=Range("G2")
・
・
・
rcs!842店舗数計=Range("G181")
rcs.Update 'レコードデータ保存
'rcs2でG182以降を処理。フィールド数が255を超えるため。
rcs.Close
rcs2.Close
dbs.Close
Set rcs = Nothing
Set rcs2 = Nothing
Set dbs = Nothing
Set rno = Nothing
End Sub
と、やってみましたが、
rcs!1営業現金=Range("G2")
・
・
・
rcs!842店舗数計=Range("G181")
が、赤字でコンパイルエラー、構文エラーが出ます。
このG列のデータは期間で変化します。
どのように設定すればレコードとして追加できますでしょうか?
よろしくご回答いただきますようお願いいたします。
|
|