VBAマクロ、パスがありませんでとまります。

Excel2003　VBAのコードを作成して、
実行しましたら
”実行時エラー'76'
パスが見つかりません。"
と表示されて
Open pase ......
の行でとまってしまいます。
なにが原因とかんがえられますか？
すいませんが、ご回答よろしくおねがいいたしますm(_ _)m

Sub Macro1()
Dim strarray() As Variant
Dim counter As Integer
Dim i As Long

pase="C:\Documents and Settings\user\My Documents\"
myname=Dir("C:\Documents and Settings\user\My Documents\",vbNormal)
Do While myname <> ""
If (GetAttr("C:\Documents and Settings\user\My Documents\" &_
myname) And vbNormal) = vbNormal Then
ReDim Preserve strarry(counter+1)
strarray(counter) = myname
counter = counter + 1
End If
myname = Dir
Loop

For i = 1 to counter

Open pase & strarray(i) For Input As #1

Do Until EOF(1)

・
'処理
・
・

Loop

Next i

No.1 ベストアンサー 回答者： nag0720 回答日時： 2012/07/29 06:50

For i = 0 to counter - 1

とするか、
Open pase & strarray(i - 1) For Input As #1
とするかのどちらか。

この回答へのお礼

配列の部分、参考例文をそのままうつして、内容をよく理解していなっくって、
ReDim Preserve......部分で配列の要素まで強制的に
変更されて、配列の頭がstrarray(1)のように思っていました。
その部分でエラーが発生していたんですね。
たいへんたすかりました。
その後マクロプログラムは上手く走りました。
感謝いたします。

お礼日時：2012/07/29 15:32