| |
こんにちは。
c\AAA\にある、文字列Trainingを含むファイルを書き出したいです。
ところが、型が不一致、とでます。
どこがわるいでしょうか。
ご教示ください。
Sub Test2() 'Dir()の方法
Const シート名 As String = "ファイル一覧"
Const 親フォルダへのパス As String = "C:\AAA\"
Const 検索するファイル名 As String = "*Training*" & ".*"
Dim ファイル名 As String
Dim 貼付行 As Long
ファイル名 = Dir(親フォルダへのパス & "\" & 検索するファイル名) '指定された名前含むファイル名を取得
Worksheets("ファイル一覧").Activate
Cells.Clear
貼付行 = 1 '貼付行カウンタ
Do While ファイル名 <> "" '取り出したファイル名が""でなければ
' MsgBox 親フォルダへのパス & "\" & ファイル名
ファイル名 = Dir()
Worksheets("ファイル一覧").Cells("A", 貼付行) = ファイル名'<=ここでErr
貼付行 = 貼付行 + 1
Loop
End Sub
|
|
にしもり
- 11/7/11(月) 12:39 -
