|
こんにちは、Satsukiと申します。
どなたかご教示お願いいたします。
CSVファイルで下記のようなリストがあり、各タイトルごとにテーブルを分けてACCESSに出力しようとしています。
1.店別来店数
A店 550
B店 360
C店 480
2.店別製品別売上数
A店
製品1 15
製品2 26
B店
製品1 28
製品3 45
C店
製品2 35
製品4 12
3.店別個人別売上数
A店
製品1
担当A 6
担当B 9
製品2
担当B 6
担当C 20
B店
製品1
担当D 9
担当E 15
担当F 4
製品3
担当D 24
担当E 21
C店
製品2
担当G 7
担当H 12
担当F 16
製品4
担当G 2
担当H 7
担当F 3
Title(0) = "1.店別来店数"
Title(1) = "2.店別製品別売上数"
Title(2) = "3.店別個人別売上数"
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"
|
|