Excel VBA質問箱 IV

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

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


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

19391 / 76738

←次へ　｜　前へ→


	【62780】Re:ExcelからAccessへデータ受け渡し

どらちゃん - 09/9/1(火) 12:34 -


	引用なし

	パスワード

一部修正をしてデータがエクスポートされるようになりました。
が、If myRst(fld).Name = CSht.Cells(7, Col) Thenで一番最初に日付をExportするのですが、そのupdateのときわけのかわらない数字が一気に入ってきてしまいます。といっても、たぶんこの説明だとなんのことやらというかんじだとおもいますが。。。

-----------
'当該日付セル位置ゲット
　　Cr = 8
　　Do Until CSht.Cells(Cr, 17) = ""
　　　　If CSht.Cells(Cr, 17) = dt Then
　　　　　　Ct = Cr
　　　　　　Exit Do
　　　　Else
　　　　　　Cr = Cr + 1
　　　　End If
　　Loop
　　'EXPORT
　　Set myRst = myDb.OpenRecordset(myTbl, dbOpenDynaset)
　　myRst.AddNew
　　For Col = 17 To 31
　　　　For fld = 0 To myRst.Fields.Count - 1
　　　　　　If myRst(fld).Name = CSht.Cells(7, Col) Then
　　　　　　With myRst
　　　　　　　　.Edit
　　　　　　　　.Fields(fld).Value = CSht.Cells(Ct, Col)
　　　　　　　　.Update
　　　　　　End With
　　　　　　End If
　　　　Next
　　Next
　　'CLOSE
　　myDb.Close
　　Set myRst = Nothing
　　Set myDb = Nothing

0 hits

▼

【62775】ExcelからAccessへデータ受け渡し どらちゃん 09/8/31(月) 19:58