Excel VBA質問箱 IV

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

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


19385 / 76732 ←次へ | 前へ→

【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 質問
【62776】Re:ExcelからAccessへデータ受け渡し neptune 09/8/31(月) 23:02 発言
【62779】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/1(火) 6:13 発言
【62780】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/1(火) 12:34 質問
【62781】Re:ExcelからAccessへデータ受け渡し Yuki 09/9/1(火) 13:59 発言
【62783】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/1(火) 15:30 質問
【62784】Re:ExcelからAccessへデータ受け渡し Yuki 09/9/1(火) 15:44 発言
【62793】Re:ExcelからAccessへデータ受け渡し Yuki 09/9/2(水) 7:20 発言
【62795】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/2(水) 20:30 質問
【62799】Re:ExcelからAccessへデータ受け渡し Yuki 09/9/3(木) 8:52 発言
【62800】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/3(木) 10:01 質問
【62801】Re:ExcelからAccessへデータ受け渡し Yuki 09/9/3(木) 12:23 発言
【62804】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/3(木) 19:21 お礼
【62782】Re:ExcelからAccessへデータ受け渡し neptune 09/9/1(火) 14:42 発言
【62786】Re:ExcelからAccessへデータ受け渡し どらちゃん 09/9/1(火) 21:00 発言
【62789】Re:ExcelからAccessへデータ受け渡し neptune 09/9/1(火) 22:18 発言

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