Excel VBA質問箱 IV

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

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


17561 / 76738 ←次へ | 前へ→

【64630】Re:個々のフォルダからファイルを取り出したい。
発言  Jaka  - 10/2/26(金) 17:26 -

引用なし
パスワード
   もう帰るので、ファイル検索だけ。
しかも、2003までにしか使えないFileSearchです。
これで、一旦全ての振るパスファイル名を取得してから、
nmaeプロパティだっけかで、移動してやればいいです。
ファイルの移動は、目安箱に書いてあります。(たぶん書いたような)


Sub 検索LOOKIN改()
  ファイル名 = "*.xls"
  FldNm = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\作業フォルダ"
  With Application.FileSearch
    .LookIn = FldNm
    .SearchSubFolders = True
    .Filename = ファイル名
    If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) > 0 Then
      For i = 1 To .FoundFiles.Count
        Cells(i, 1) = .FoundFiles(i)
      Next i
    Else
      MsgBox ファイル名 & "ファイルはありません。"
    End If
  End With
  End
End Sub

0 hits

【64625】個々のフォルダからファイルを取り出したい。 あや 10/2/26(金) 14:53 質問
【64630】Re:個々のフォルダからファイルを取り出し... Jaka 10/2/26(金) 17:26 発言
【64633】Re:個々のフォルダからファイルを取り出し... neptune 10/2/26(金) 22:04 発言
【64648】Re:個々のフォルダからファイルを取り出し... 超初心者 10/2/28(日) 18:03 発言
【64649】Re:個々のフォルダからファイルを取り出し... あや 10/3/1(月) 10:07 お礼

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