Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34518 / 76734

←次へ　｜　前へ→


	【47425】Re:エクセルの列データをアクセスにレコードとしてテーブルに追加したい

Kein - 07/3/9(金) 16:34 -


	引用なし

	パスワード

そんなにたくさんのフィールドがあるなら、ループで追加していく方が
すっきりすると思います。こんな感じで

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

2 hits

▼

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