Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34519 / 76734 ←次へ | 前へ→

【47424】エクセルの列データをアクセスにレコードとしてテーブルに追加したい
質問  うななんこ  - 07/3/9(金) 16:14 -

引用なし
パスワード
   初めて質問させていただきます。
よろしくお願いします。

エクセルの列データをアクセスの新規レコードとして追加しようと
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列のデータは期間で変化します。
どのように設定すればレコードとして追加できますでしょうか?
よろしくご回答いただきますようお願いいたします。
2 hits

【47424】エクセルの列データをアクセスにレコードとしてテーブルに追加したい うななんこ 07/3/9(金) 16:14 質問
【47425】Re:エクセルの列データをアクセスにレコー... Kein 07/3/9(金) 16:34 回答
【47426】Re:エクセルの列データをアクセスにレコー... うななんこ 07/3/9(金) 16:39 お礼
【47491】Re:エクセルの列データをアクセスにレコー... うななんこ 07/3/12(月) 12:59 お礼

34519 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free