Excel VBA質問箱 IV

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

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


59607 / 76732 ←次へ | 前へ→

【21810】preserve宣言に関して
質問  たま  - 05/1/31(月) 13:24 -

引用なし
パスワード
   最近、VBAを利用することが多く、よく利用させてもらっています。

以下が作成したプログラムなのですが、ReDim Preserve TempD(x - 1, 2)で
エラーが表示されてしまいます。一次元配列にした場合はReDim Preserve TempD(x - 1)問題なく動き、値も取れます。

何が問題なのでしょうか?

Set fsObj = CreateObject("Scripting.FileSystemObject")

For FiloX = 0 To UBound(FSet)
 FName = LiDirPath & "\" & FSet(FiloX)
 Set sOf = fsObj.opentextfile(FName, 1, False)

 '各ライセンスの最終行を取得する
 x = 0 '初期値
 Do While sOf.atEndofLine <> True
  Gets = sOf.ReadLine
  
  If x <> 0 Then
   ReDim Preserve TempD(x - 1, 2)
   Temp = Split(Gets, ",")
   TempD(x - 1, 0) = Temp(0)
   TempD(x - 1, 1) = Temp(1)
   TempD(x - 1, 2) = Temp(2)
  Else
   License_Int(FiloX) = Gets 'License_Int()にLICENSE数格納
  End If
  x = x + 1
 Loop
 
 MsgBox (UBound(TempD) & ";" & TempD(UBound(TempD, 2)))
  
 sOf.Close
 
Next FiloX

1 hits

【21810】preserve宣言に関して たま 05/1/31(月) 13:24 質問
【21811】Re:preserve宣言に関して kazu 05/1/31(月) 13:33 発言
【21812】Re:preserve宣言に関して たま 05/1/31(月) 13:50 お礼
【21814】Re:preserve宣言に関して G-Luck 05/1/31(月) 14:04 発言

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