Excel VBA質問箱 IV

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

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


63799 / 76732 ←次へ | 前へ→

【17524】動的配列の最小添え字について
質問  沙也  - 04/9/1(水) 16:18 -

引用なし
パスワード
   教えてください。

環境:WindowsXP Excel2000

テキストファイルをオープンし、レコードを読み込み、
動的配列に格納しているのですが、
option Base 1 を指定しているにもかかわらず、
デバック文で表示した結果、最小添え字が0からになっています。
なぜ、1からにならないのでしょうか (・・?
動的配列の場合はoption Base 1は無効なのでしょうか?(?_?)
宜しくお願いします。)^o^(

【コード】
Option Base 1

Private Sub CommandButton13_Click()
  Dim Buff   As String
  Dim WK1()  As String
  Dim WK2   As String
  Dim FileNo  As Integer
  Dim Path   As String
  Dim I    As Integer
  Dim Count  As Integer
  
  Path = "D:\A\a.txt"  
  FileNo = FreeFile
  Open Path For Input As FileNo
  Do While Not EOF(FileNo)
    Line Input #FileNo, Buff
    WK1 = Split(Buff, ",")
  Loop
  Close FileNo

  WK2 = Join(WK1, ",")
  'デバック
  Debug.Print WK2
  For I = LBound(WK1) To UBound(WK1) Step 1
    Debug.Print I & "/" & WK1(I)
  Next
End Sub

'デバックで表示した結果、Iのカウンタ(LBound)が0から表示されます。
(入力のテキストは、カンマ区切りで、5項目の5レコードあります。)
0 hits

【17524】動的配列の最小添え字について 沙也 04/9/1(水) 16:18 質問
【17525】Re:動的配列の最小添え字について Asaki 04/9/1(水) 16:41 回答
【17526】Re:動的配列の最小添え字について 沙也 04/9/1(水) 16:51 お礼

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