「Excel VBA ディレクトリのファイルを繰り返し処理」の版間の差分

2020年2月15日 (土) 08:35時点における版

Dim d  As String
Dim f  As String

d = "c:\"
f = d & "*"

f = Dir$(f, vbNormal)
Do While (Trim$(f) <> "")
    Debug.Print f
    f = Dir$
Loop

@@ 1行目: / 1行目: @@
 ==Excel VBA ディレクトリのファイルを繰り返し処理==
-[[Excel VBA]]{{category VBAソース片}}
+[[Excel VBA]] | {{category VBAソース片}}
   Dim d  As String