|
こんにちは、Satsukiと申します。
前回の続きですが、今度は別のところで行き詰まりました。
どなたかご教示お願いいたします。
For〜next文の間で下記のように1行ずつ下へフォーカスをずらして、
新しいタイトルが出てきたら、それぞれ変数にタイトルとテーブル名を入れるようにしたいのですが、
ActiveCell.Value = Title(i + 1)
のところで、iが2以上になると配列の値がなくなるので、
「インデックスが有効範囲にありません」というエラーが出ます。
何かよい方法はありますでしょうか?
Title(0) = "1.店別来店数"
Title(1) = "2.店別製品別売上数"
Title(2) = "3.店別個人別売上数"
TableName(0) = "raiten"
TableName(1) = "seihinbetsu"
TableName(2) = "kojinbetsu
TitleName = Title(0)
InputTable = TableName(0)
Cells(j, 1).Activate
If ActiveCell.Value = Title(i + 1) Then
TitleName = Title(i + 1)
InputTable = TableName(i + 1)
i = i + 1
End If
(補足)↓↓↓↓↓↓↓↓↓↓↓↓↓↓
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
|
|