| |
ファイルの場所の特定方法について教えて下さい。
1つのフォルダの中にある「test」で始まる全ファイルの特定の
セル範囲を別ブックにコピーしたいのですが・・・
今、以下のように書いてみたのですがエラーになってしまいます。
(ファイル名を選択するよう促されます。)
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'パス名定義
path_name = "C:〜"
'上記フォルダに保存されている
'"test*.xls"ファイルを検索しファイル名を取得
Set fs = Application.FileSearch
With fs
.LookIn = path_name
.Filename = "test*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
file_name = .FoundFiles(i)
If file_name Like "*test_a*" Then
file_a = Dir(file_name)
ElseIf file_name Like "*test_b*" Then
file_b = Dir(file_name)
ElseIf file_name Like "*test_c*" Then
file_c = Dir(file_name)
End If
Next i
End If
End With
'フルパス設定
full_path = path_name & "\" & "[" & file_audio & "]"
'上記ファイルの"sheet1"のA列を別ブックのA2以降にコピー
'With ThisWorkbook.Worksheets("sheet1").Range("A2:A65536")
.Formula = "=if(" & _
"'full_path!sheet1'!A1=" & _
""""",""""," & _
"'full_path!sheet1'!A1)"
.Value = .Value
End With
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
どうしたらよいでしょうか？
上記方法でなくても、他にやり方があれば教えて下さい。
宜しくお願いします。
|
|
ひな
- 05/8/8(月) 18:05 -
