- 459 名前：デフォルトの名無しさん mailto:sage [2014/04/20(日) 20:06:57.56 ID:FLwMWrjy]
- dir を使って、配列にいれたファイルをチェックするマクロを作りたいのですが、
「インデックスが有効範囲にありません」というエラーがでてしまって困っています。
Sub チェック()
Const Target As String = "C:\Users\user\Desktop\格納\"
Dim tmp() As String
tmp = Split("Scr14", "Scr16")
For i = 1 To 2
If Dir(Target & tmp(i) & ".txt") <> "" Then '←エラーの出る場所（tmp部分）
Else
MsgBox tmp(i) & vbCrLf & "が存在しません"
End If
Next
MsgBox "確認できました"
End Sub
Dirに配列を使ってチェックするのは無理なのでしょうか？ご教授願います。
