Excel VBA質問箱 IV

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

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


58503 / 76732 ←次へ | 前へ→

【22955】Re:違うフォルダのファイル名の一部が同...
回答  IROC  - 05/3/8(火) 17:09 -

引用なし
パスワード
   >一番目の質問に書き忘れたのですが、
>★の部分が2文字と、3文字のファイル名があるのですが、
>その場合はどのように処理をしたらいいのでしょうか?

それはどのように判別すればよいのでしょうか?
実際のファイル名をいくつか挙げていただけませんか?
何らかの法則がないことには、処理できませんので。


>上だと、一つのファイルに対して、上のコードを書かないといけないのですよね?
>でも、各々30個以上のファイル数があり、30個以上

ひとまずフォルダ内のファイル名をセルに抽出するマクロを載せておきます。

Sub ファイル名抽出マクロ()
Dim myFileName As String
Dim myDir As String
  
  myDir = "C:\Data\" 'フォルダの指定

  myFileName = Dir(myDir & "*", vbHidden + vbSystem)

  Do
    Range("A65536").End(xlUp).Offset(1).Value = myDir
    Range("B65536").End(xlUp).Offset(1).Value = myFileName
    myFileName = Dir()
  Loop Until myFileName = vbNullString
  
  Range("A1").Value = "フォルダ名"
  Range("B1").Value = "ファイル名"
  Columns("A:B").AutoFit
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 発言

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