Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54128 / 76738 ←次へ | 前へ→

【27411】ファイルの場所の特定方法について
質問  ひな  - 05/8/8(月) 18:05 -

引用なし
パスワード
   ファイルの場所の特定方法について教えて下さい。

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

******************************

どうしたらよいでしょうか?
上記方法でなくても、他にやり方があれば教えて下さい。
宜しくお願いします。

0 hits

【27411】ファイルの場所の特定方法について ひな 05/8/8(月) 18:05 質問
【27420】Re:ファイルの場所の特定方法について Hirofumi 05/8/8(月) 21:08 回答

54128 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free