Excel VBA質問箱 IV

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

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


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

【56884】外部とのデータのやり取り マクロ 08/7/9(水) 16:49 質問[未読]
【56894】Re:外部とのデータのやり取り neptune 08/7/9(水) 21:45 発言[未読]
【56903】Re:外部とのデータのやり取り マクロ 08/7/10(木) 11:16 お礼[未読]

【56884】外部とのデータのやり取り
質問  マクロ  - 08/7/9(水) 16:49 -

引用なし
パスワード
   ツールをkanabunさんはじめ、皆さんのお力添えあって作成できました。
しかし、複数で同時に使用する場合は外部にデータベースを作らなくてはいけない事に気づきました。

下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
また同時にデータを読み込んで上書き保存もしています。
ツールを複数で同時使用する時に別にデータベースを用意しようと考えています。
例:エクセルファイル名データ1のデータシートに飛ばそうと考えています。
また、データを呼び出すには、どの様な構文を追加すれば良いでしょうか・・?
---------------------------------------------------
”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
----------------------------------------------------------
以上になります。よろしくご指導お願いいたします。

【56894】Re:外部とのデータのやり取り
発言  neptune  - 08/7/9(水) 21:45 -

引用なし
パスワード
   ▼マクロ さん:
こんにちは

回答ではありません。
せめて1スレッドではHNを変えないように。出来れば、そのサイト内では同一
のものを使ったほうが良いです。

ネチケットは守った方が皆さん気持ちよく参加できます。

で、質問の方ですが、経緯が判らない者にとっては答え辛いですね。
>しかし、複数で同時に使用する場合は外部にデータベースを作らなくてはいけない事に気づきました。
>
>下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
>また同時にデータを読み込んで上書き保存もしています。
>ツールを複数で同時使用する時に別にデータベースを用意しようと考えています。
複数で同時にExcelにアクセスするんですか?
大事なデータなら止めた方が良いです。機能としてはありますが、
目的外使用に近いものがあるので、Bookとかデータが壊れたら大変です。

【56903】Re:外部とのデータのやり取り
お礼  マクロ  - 08/7/10(木) 11:16 -

引用なし
パスワード
   ▼neptune さん:
>▼マクロ さん:
>こんにちは
>
>回答ではありません。
>せめて1スレッドではHNを変えないように。出来れば、そのサイト内では同一
>のものを使ったほうが良いです。
>
>ネチケットは守った方が皆さん気持ちよく参加できます。
>
>で、質問の方ですが、経緯が判らない者にとっては答え辛いですね。
>>しかし、複数で同時に使用する場合は外部にデータベースを作らなくてはいけない事に気づきました。
>>
>>下記の構文の様に、CommandButton36でWorksheetsの"DATA"にデータを飛ばしています。
>>また同時にデータを読み込んで上書き保存もしています。
>>ツールを複数で同時使用する時に別にデータベースを用意しようと考えています。
>複数で同時にExcelにアクセスするんですか?
>大事なデータなら止めた方が良いです。機能としてはありますが、
>目的外使用に近いものがあるので、Bookとかデータが壊れたら大変です。

申し訳ありませんでした。当方の勘違いで迷惑を掛け済ませんでした。
今後、気をつけますのでよろしくお願いします。

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