Excel VBA質問箱 IV

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

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


24909 / 76732 ←次へ | 前へ→

【57168】CSVデータをACCESSに移行2.
質問  satsuki  - 08/7/30(水) 16:13 -

引用なし
パスワード
   こんにちは、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

0 hits

【57168】CSVデータをACCESSに移行2. satsuki 08/7/30(水) 16:13 質問
【57183】Re:CSVデータをACCESSに移行2. neptune 08/7/30(水) 22:31 発言
【57188】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 0:47 質問
【57189】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 0:56 発言
【57194】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:23 質問
【57196】Re:CSVデータをACCESSに移行2. かみちゃん 08/7/31(木) 12:47 発言
【57201】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 14:26 質問
【57207】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 21:52 回答
【57208】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:08 発言
【57192】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 10:25 発言
【57193】Re:CSVデータをACCESSに移行2. satsuki 08/7/31(木) 11:13 発言
【57198】Re:CSVデータをACCESSに移行2. neptune 08/7/31(木) 13:33 発言
【57209】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 1:14 発言
【57210】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 7:14 発言
【57222】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:37 質問
【57220】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 16:18 発言
【57221】Re:CSVデータをACCESSに移行2. satsuki 08/8/1(金) 19:31 質問
【57225】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/1(金) 21:28 発言
【57230】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 1:14 お礼
【57231】Re:CSVデータをACCESSに移行2. かみちゃん 08/8/2(土) 9:56 発言
【57232】Re:CSVデータをACCESSに移行2. neptune 08/8/2(土) 11:08 発言
【57227】Re:CSVデータをACCESSに移行2. neptune 08/8/1(金) 22:20 発言
【57244】Re:CSVデータをACCESSに移行2. satsuki 08/8/2(土) 18:12 お礼

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