[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『別のデータベース(エクセルファイル)とのデータ保存と呼び出し』(ツール作成初心者)
ツール作成初心者です。
下記の構文の様に、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
以上になります。よろしくご指導お願いいたします。
まずはこちらにの回答者に返事を。
なお、あちらの会議室のポリシーにはこのように書かれています。
>もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。 >そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。 >質問しっぱなし、というのはモラルに反します。 >「解決したからいいや」というのではありません。 (独覚)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.