Excel VBA質問箱 IV

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

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


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

36713 / 76737

←次へ　｜　前へ→


	【45202】エクセルからレコード追加

phoo - 06/12/15(金) 11:15 -


	引用なし

	パスワード

エクセルで作成したデータをそのままアクセスのテーブルへレコード追加したいと思い、下記のようなマクロを作成しました。

これを作動させると、「型が違います」というエラーになる場合があります。
場合があるというのは、同じ一連の流れの中でバグるときとそうでないときがあるということなのですが、原因がわかりません。
どなたかご教授いただけませんでしょうか？（当方、VBA超初心者です…）

－－－－－－－－－－－－－－－－
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Cmd As ADODB.Command
－－－－－－－－－－－－－－－－
Sub Macro()

Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\" & SPS.mdb
Rs.Open "DATA", Cn, adOpenDynamic, adLockOptimistic
Rs.AddNew
For i = 0 To Rs.Fields.Count - 1
Rs.Fields(i).Value = Worksheets("UpData").Cells(2, i + 1).Value
Next i

Rs.Update
Set Cmd = Nothing

Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing

End Sub

0 hits

▼

【45202】エクセルからレコード追加 phoo 06/12/15(金) 11:15

≪