[[20080710100824]] 『別のデータベース(エクセルファイル)とのデータ保』(ツール作成初心者) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『別のデータベース(エクセルファイル)とのデータ保存と呼び出し』(ツール作成初心者)
 ツール作成初心者です。

 下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
 また、データを読み込んで上書き保存もしています。
 ツールを複数で同時使用する時に別にデータベースを用意しなければ出来ない事に気づきました。
 そこで同フォルダ内にエクセルファイル名データ1のデータシートを作成し
 ここに、データ保存と呼び出しを実行したいと考えております。
 どの様な構文を追加すれば良いでしょうか・・?

 ”Worksheetsの"DATA"にデータを飛ばし”
 下記の構文はTextBox3のデータをCommandButton36によって
 Worksheets("DATA")に飛ばしています。

 Private Sub CommandButton36_Click()
 Dim lRow As Long

 Number = TextBox3

 With Worksheets("DATA")

 'フォームからエクセルに出力
 If TextBox3.Value = "" Then

 lRow = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & lRow + 1).Value = lRow

 Else
 lRow = .Range("A" & Rows.Count).End(xlUp).Row
     Worksheets("DATA").Range("A1").Offset(Number, 0).Value = TextBox3.Value
 End If

       

 ”Worksheetsの"DATA"からデータを取得しListboxに表示させています”

 Private Sub CommandButton37_Click()

 Worksheets("DATA").Range("A1").CurrentRegion.Copy Worksheets("WAREA").Range("A1")

 With ListBox1
 .ColumnHeads = True
 .ColumnCount = 10
 .ColumnWidths = "30;80;55;60;60;60;65;45;45;"
 '.Text = "DATA!A2:J100"
 .RowSource = "WAREA!A2:J100"

 End With

 以上になります。よろしくご指導お願いいたします。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=56884;id=excel
 まずはこちらにの回答者に返事を。

 なお、あちらの会議室のポリシーにはこのように書かれています。

 >もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。
 >そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。
 >質問しっぱなし、というのはモラルに反します。
 >「解決したからいいや」というのではありません。
 (独覚)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.