| |
こんにちは、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"
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
