| |
質問内容は
ﾃﾞｰﾀの流れは
アクセス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
に成ります。
このプログラムをどの様に変更すればいいのか困ってます。
ご教授お願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
