Excel VBA質問箱 IV

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

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


75911 / 76738 ←次へ | 前へ→

【5258】Re:指定ディレクトリからファイルを探しコ...
回答  ポンタ  - 03/4/30(水) 16:31 -

引用なし
パスワード
   If InStr(1, objFile.Name, "0") > 0 Then

↑の部分で「ファイル名に"0"を含んでいる」という条件を判定し、
条件を満たしていればコピーをしています。

> もってくるファイルの例は、頭が”XXXX”の奴みたいな感じで
> 複数あります。

ということなら、

If Left(objFile.Name, 4) = "XXXX" Then

に書き換えて、
「ファイル名の先頭4文字が"XXXX"に等しい」という条件を
満たしたときにコピーするようにすればよいと思います。
2 hits

【5238】指定ディレクトリからファイルを探しコピー jam 03/4/30(水) 12:01 質問
【5241】「ある条件」って何? こう 03/4/30(水) 12:54 発言
【5245】Re:「ある条件」って何? jam 03/4/30(水) 13:36 回答
【5252】Re:「ある条件」って何? jam 03/4/30(水) 14:54 質問
【5256】Re:指定ディレクトリからファイルを探しコ... ポンタ 03/4/30(水) 16:04 回答
【5257】Re:指定ディレクトリからファイルを探しコ... jam 03/4/30(水) 16:20 質問
【5258】Re:指定ディレクトリからファイルを探しコ... ポンタ 03/4/30(水) 16:31 回答
【5260】Re:指定ディレクトリからファイルを探しコ... jam 03/4/30(水) 16:46 質問
【5262】Re:指定ディレクトリからファイルを探しコ... ポンタ 03/4/30(水) 17:58 回答
【5263】Re:指定ディレクトリからファイルを探しコ... jam 03/4/30(水) 19:15 お礼
【5259】別解 ichinose 03/4/30(水) 16:44 回答
【5264】Re:別解 jam 03/4/30(水) 19:18 お礼

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