Excel VBA質問箱 IV

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

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


34517 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   ▼Kein さん:
>そんなにたくさんのフィールドがあるなら、ループで追加していく方が
>すっきりすると思います。こんな感じで
>
>Sub T_Mth()
> Dim i As Long  
> Dim dbs As DAO.Database 
> Dim rcs As DAO.Recordset, rcs2 As DAO.Recordset
>
> Set dbs = OpenDatabase("D:\総括表.mdb")
> Set rcs = dbs.OpenRecordset("T_Mth上期")
> Set rcs2 = dbs.OpenRecordset("T_Mth下期")
> With Worksheets("Mth")
>   rcs.AddNew
>   For i = 0 To rcs.Fields.Count - 1
>    rcs(i) = .Cells(i + 2, 7).Value
>   Next i
>   rcs.Update
>   rcs2.AddNew
>   For i = 0 To rcs2.Fields.Count - 1
>    rcs2(i) = .Cells(i + 182, 7).Value
>   Next i
>   rcs2.Update 
> End With
> rcs.Close: rcs2.Close: dbs.Close
> Set rcs = Nothing: Set rcs2 = Nothing: Set dbs = Nothing
>End Sub

早速、ご回答頂きましてありがとうございます。
なるほどです。
すごい行数の記述になってしまっていたのですが、
すばらしくすっきりです(感動)
また、ご報告させていただきます。
3 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 お礼

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