Excel VBA質問箱 IV

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

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


3701 / 13644 ツリー ←次へ | 前へ→

【60631】リストボックスの列単位での保存について 勉強中です 09/3/5(木) 19:59 質問[未読]

【60631】リストボックスの列単位での保存について
質問  勉強中です  - 09/3/5(木) 19:59 -

引用なし
パスワード
   質問内容は
データの流れは
アクセスDB1→エクセルVBAツール→アクセスDB2です。
(アクセス1のデータをエクセルVBAを介してアクセス2へコピー)

ここでDB1からデータを吸出してエクセルVBAのリストボックスに表示させます。
この段階ではワークシート上でA〜Dに表示させています。
これをワークシートで次のページにコピーして(この段階ではF〜I)
にしてアクセスDB2にほぞんするにはどうすればよいでしょうか・・?
今まではデータを吸い上げる事は出来ます。また、ツール上のテキストボックスを
アクセスDBに保存する事は出来ました。
簡単に言いますとリストボックス上に表示させたデータワークシート上では
列単位で次のページ(ワークシート)にコピーして列単位のデータを保存するには
どうしたらよいでしょうか?よろしくお願いいたします。
分かり図らいかも知れませんがよろしくご指導お願いします。

ちなみに今までのテキストボックス等の保存のプログラムは

Private Sub CommandButton58_Click()

Dim myCon As ADODB.Connection
Dim myRS As ADODB.Recordset
 
Set myCon = New ADODB.Connection
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\dd-FX\アクセスDB2.mdb"


 Set myRS = New ADODB.Recordset
 
 On Error Resume Next 'DB空の処理
  
 myRS.Open "データベース", myCon, adOpenStatic, adLockOptimistic
 
 myRS.MoveFirst
 Do Until myRS.EOF = True
  If Val(myRS![番号]) = Val(TextBox53) Then
  
   myRS![天気] = TextBox60
   myRS![日付] = TextBox52
   myRS![地域] = TextBox58
   myRS![標高] = TextBox59
   myRS![方式] = ComboBox6
   myRS![気象内容] = TextBox69
   myRS![開始時間] = TextBox62
   myRS![終了時間] = TextBox63
   
   myRS.Update
 
  End If
  
  myRS.MoveNext
 Loop

 Set myRS = Nothing

myCon.Close: Set myCon = Nothing
MsgBox "データ保存しました。"
End Sub
に成ります。

このプログラムをどの様に変更すればいいのか困ってます。
ご教授お願いいたします。

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