Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63874 / 76807

←次へ　｜　前へ→


	【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

≪