Ｐａｇｅ 29 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼特定の数個のファイルを一度に開く方法 Reiko 02/9/2(月) 15:07 ┗Re:特定の数個のファイルを一度に開く方法 JuJu 02/9/2(月) 15:18 ┗Re:特定の数個のファイルを一度に開く方法 Reiko 02/9/2(月) 21:54 ┗Re:特定の数個のファイルを一度に開く方法（続） Reiko 02/9/3(火) 10:09 ┗Re:特定の数個のファイルを一度に開く方法（続） JuJu 02/9/3(火) 10:21 ┗Re:特定の数個のファイルを一度に開く方法（続） Reiko 02/9/3(火) 10:56 ─────────────────────────────────────── ■題名 ： 特定の数個のファイルを一度に開く方法 ■名前 ： Reiko ■日付 ： 02/9/2(月) 15:07 -------------------------------------------------------------------------
| こんにちわ。 以前V3の過去ログにて 「指定したフォルダ内のファイルを全部（順番に）開く方法」 というのが紹介されていたのを拝見し、参考にさせて頂きました。 上記は指定フォルダ内のファイルを「全部」開くという方法でしたが、 「ある特定のファイル」を開いていくという方法はないものでしょうか？ 例えば、フォルダ内に「会社名＋作成日付」という形で あいうえお株式会社0207.xls あいうえお株式会社0208.xls かきくけこ株式会社0207.xls かきくけこ株式会社0208.xls というファイルがあったとすれば、「あいうえお株式会社」という会社名の つくファイルだけを開くということは出来るのでしょうか？ ちなみに「全部」開く方法の過去ログは以下の通りです。 ーーーーーーーーーーーーーーーーーーーーーーーーーー Sub test() Dim Ifile As String, Ipath As String, CC% Ipath = "C:\Tempo" Ifile = Dir(Ipath & "\*.xls") Do Until Ifile = "" CC% = CC% + 1 Workbooks.Open Ipath & "\" & Ifile Ifile = Dir Loop MsgBox CC% & "File(s) Opend !", vbInformation End Sub ーーーーーーーーーーーーーーーーーーーーーーーーー 当方初心者にて御手間をお掛けしますが、 どなたか宜しくお願い致します。 |
| Reikoさん、こんにちはぁ >というファイルがあったとすれば、「あいうえお株式会社」という会社名の >つくファイルだけを開くということは出来るのでしょうか？ > Ifile = Dir(Ipath & "\*.xls") を Ifile = Dir(Ipath & "\あいうえお株式会社*.xls") に変更してみてね。 または、 > Do Until Ifile = "" > CC% = CC% + 1 > Workbooks.Open Ipath & "\" & Ifile > Ifile = Dir > Loop を、 Do Until Ifile = "" If Ifile Like "あいうえお株式会社*" Then CC% = CC% + 1 Workbooks.Open Ipath & "\" & Ifile End If Ifile = Dir Loop でも良いです。 ではではぁ |
| JuJuさん 早速のお返事どうもありがとうございます！！ これで何とかなりました。 ありがとうございました。 |
| たびたび御邪魔してすみません。 >> Ifile = Dir(Ipath & "\*.xls") >を > Ifile = Dir(Ipath & "\あいうえお株式会社*.xls") >に変更してみてね。 > 上記でうまくいったのですが、あるファイルでは 呼び出されるであろう会社名が結構たくさん入っているので マクロそのものに「あいうえお株式会社」と記述するのではなく、 Userにユーザーフォームのテキストボックスに 「あいうえお株式会社」と入力してもらい、該当する会社名の ファイルを開いてもらおうとしています。 このような場合、 Ifile = Dir(Ipath & "\あいうえお株式会社*.xls") の部分の記述をどのように変えればよいのでしょうか？ |
| Reikoさん、こんにちはぁ >Userにユーザーフォームのテキストボックスに >「あいうえお株式会社」と入力してもらい、該当する会社名の >ファイルを開いてもらおうとしています。 テキストボックス（TextBox1）の場合、 > Ifile = Dir(Ipath & "\あいうえお株式会社*.xls") Ifile = Dir(Ipath & "\" & TextBox1.Text & "*.xls") です。（テキストボックスの入力文字を、&で結合しています） ではではぁ |
| ▼JuJu さん： >>Userにユーザーフォームのテキストボックスに >>「あいうえお株式会社」と入力してもらい、該当する会社名の >>ファイルを開いてもらおうとしています。 > >テキストボックス（TextBox1）の場合、 > >> Ifile = Dir(Ipath & "\あいうえお株式会社*.xls") > Ifile = Dir(Ipath & "\" & TextBox1.Text & "*.xls") > >です。（テキストボックスの入力文字を、&で結合しています） さっそくやってみました。これでPerfect！！ 感謝感激です。どうもありがとうございました。 |