Excel VBA質問箱 IV

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

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


58473 / 76738 ←次へ | 前へ→

【22993】Re:違うフォルダのファイル名の一部が同...
発言  G-Luck  - 05/3/9(水) 16:53 -

引用なし
パスワード
   MIKA さん IROC さん こんにちは、

Sheet1 の A列にフォルダAのファイル名、B列に対応するフォルダBのファイル名が出力されるように作ってみました。
AにあってBに無いものはB列は空白
Aになくて、Bにあるものは出力されません。

FileDialog は Office XP 以降が必要です。
そうでない場合は、別の手段でフォルダ名を設定してください。

'以下コード
Option Explicit

Sub ファイル名抽出マクロ()
  
  Const myFileNameA As String = "*200501.xls"
  Const myFileNameB As String = "ABC*.xls"
  Dim myFolderA  As String
  Dim myFolderB  As String
  Dim FnA     As String
  Dim FnB     As String
  Dim KENMEI   As String
  Dim myShell   As Variant
  Dim ret     As Variant
  Dim iFn     As Variant
  Dim rgOut    As Range
  Dim buf(1 To 1, 1 To 2) As Variant
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "フォルダA"
    .ButtonName = "選択"
    ret = .Show
    If ret = 0 Then Exit Sub
    myFolderA = .SelectedItems(1)
  End With
  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "フォルダB"
    .ButtonName = "選択"
    ret = .Show
    If ret = 0 Then Exit Sub
    myFolderB = .SelectedItems(1)
  End With
  
'  myFolderA = "フォルダAのパス"
'  myFolderB = "フォルダBのパス"

  With Application.FileSearch
    .LookIn = myFolderA
    .SearchSubFolders = False
    .Filename = myFileNameA
    .Execute
  End With
  
  Set rgOut = ThisWorkbook.Worksheets("Sheet1").Range("A1:B1")
  
  For Each iFn In Application.FileSearch.FoundFiles
    FnA = Dir(iFn)
    KENMEI = Left(FnA, Len(FnA) - 10)
    FnB = WorksheetFunction.Substitute(myFileNameB, "*", KENMEI)
    FnB = Dir(myFolderB & Application.PathSeparator & FnB)
    buf(1, 1) = FnA
    buf(1, 2) = FnB
    rgOut = buf
    Set rgOut = rgOut.Offset(1, 0)
    
    'ここで、FnA,FnBを利用して、処理を記入する。
    
  Next iFn
End Sub
0 hits

【22947】違うフォルダのファイル名の一部が同じファイルを選ぶ MIKA 05/3/8(火) 14:43 質問
【22948】Re:違うフォルダのファイル名の一部が同じ... IROC 05/3/8(火) 15:13 回答
【22951】Re:違うフォルダのファイル名の一部が同じ... MIKA 05/3/8(火) 15:29 質問
【22955】Re:違うフォルダのファイル名の一部が同... IROC 05/3/8(火) 17:09 回答
【22993】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/9(水) 16:53 発言
【23002】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/9(水) 18:00 質問
【23005】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/9(水) 19:43 発言
【23051】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/11(金) 13:18 質問
【23052】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/11(金) 14:16 発言
【23053】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/11(金) 14:20 質問
【23056】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/11(金) 16:21 回答
【23060】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/11(金) 17:16 お礼
【23115】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/14(月) 10:27 質問
【23128】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/14(月) 14:26 発言
【23166】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/15(火) 13:50 質問
【23170】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/15(火) 14:56 発言
【23172】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/15(火) 15:22 お礼
【23173】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/15(火) 15:28 発言
【23174】Re:違うフォルダのファイル名の一部が同... MIKA 05/3/15(火) 15:32 発言
【23176】Re:違うフォルダのファイル名の一部が同... G-Luck 05/3/15(火) 15:58 発言

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