Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24921 / 76736

←次へ　｜　前へ→


	【57160】CSVデータをACCESSに移行

satsuki - 08/7/29(火) 18:46 -


	引用なし

	パスワード

こんにちは、Satsukiと申します。
どなたかご教示お願いいたします。

CSVファイルで下記のようなリストがあり、各タイトルごとにテーブルを分けてACCESSに出力しようとしています。

１．店別来店数
Ａ店　　550
Ｂ店　　360
Ｃ店　　480

２．店別製品別売上数
Ａ店
　製品１　15
　製品２　26
Ｂ店
　製品１　28
　製品３　45
Ｃ店
　製品２　35
　製品４　12

３．店別個人別売上数
Ａ店
　製品１　
　　担当Ａ　6
　　担当Ｂ　9
　製品２
　　担当Ｂ　6
　　担当Ｃ 20　
Ｂ店
　製品１　
　　担当Ｄ　9
　　担当Ｅ 15
　　担当Ｆ　4
　製品３
　　担当Ｄ 24
　　担当Ｅ 21
Ｃ店
　製品２
　　担当Ｇ　7
　　担当Ｈ 12
　　担当Ｆ 16
　製品４　
　　担当Ｇ　2
　　担当Ｈ　7
　　担当Ｆ　3
　

Title(0) = "１．店別来店数"
Title(1) = "２．店別製品別売上数"
Title(2) = "３．店別個人別売上数"

TableName(0) = "raiten"
TableName(1) = "seihinbetsu"
TableName(2) = "kojinbetsu

TitleName = Title(0)
InputTable = TableName(0)

For～next文の間で下記のように1行ずつ下へフォーカスをずらし、
　　Cells(j, 1).Activate

下記のように新しいタイトルが出てきたら、それぞれ変数にタイトルとテーブル名を入れるようにしたいのですが、配列変数を他の変数に入れることができないようです。何かよい方法はありますでしょうか？
　
　　If ActiveCell.Value = Title(i + 1) Then
　　　　TitleName = Title(i + 1)
　　　　InputTable = TableName(i + 1)
　　　　i = i + 1
　　End If

テーブル名を可変にするコード　　
　　strSQL = "select * from InputTable"

0 hits

▼

【57160】CSVデータをACCESSに移行 satsuki 08/7/29(火) 18:46

≪