Ｐａｇｅ 762 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼他のapplication fileを開く方法 日高久雄 03/2/13(木) 13:04 ┗Re:他のapplication fileを開く方法 JuJu 03/2/13(木) 18:06 ┗Re:他のapplication fileを開く方法 日高久雄 03/2/18(火) 12:48 ─────────────────────────────────────── ■題名 ： 他のapplication fileを開く方法 ■名前 ： 日高久雄 <hisao_hidaka@hotmail.com> ■日付 ： 03/2/13(木) 13:04 -------------------------------------------------------------------------
| 他のapplicationで作られたファイルをエクセルで開きたいのです。 例えば エクセル A列 に notepadのファイル名を1行目から5行目まで記入します。 notepadのファイル1〜5を一挙に開きたいのですが 次のような構文だと マクロ実行を終わった時点で5行目のファイルしか開いていません。 中間時点では 次々ファイルが開いているようですが activeでなくても 1〜5 全てのファイルを開くには どうすれば宜しいでしょうか。 Sub test() A& = Shell("notepad.exe", 1) m = 2 Do Until Range("A" & m).Value = " " n = Range("A" & m).Value SendKeys "%F" + "O" + "%n" + "C:\" & n & ".txt" + "{ENTER}" m = m + 1 Loop End Sub |
| 日高久雄さん、こんにちはぁ >他のapplicationで作られたファイルをエクセルで開きたいのです。 >例えば エクセル A列 に notepadのファイル名を1行目から5行目まで記入します。 >notepadのファイル1〜5を一挙に開きたいのですが 次のような構文だと >マクロ実行を終わった時点で5行目のファイルしか開いていません。 このままの方法での対処法もあるんですけど、 A& = Shell("notepad.exe """ & Range("A" & m).Value & """", 1) という方法も ではではぁ |
| ▼JuJu さん： 有難う御座いました。色々試していてお礼が遅れました。すみません。 大体うまく行きました。方法があるものなのですね。 >日高久雄さん、こんにちはぁ > >>他のapplicationで作られたファイルをエクセルで開きたいのです。 >>例えば エクセル A列 に notepadのファイル名を1行目から5行目まで記入します。 >>notepadのファイル1〜5を一挙に開きたいのですが 次のような構文だと >>マクロ実行を終わった時点で5行目のファイルしか開いていません。 > >このままの方法での対処法もあるんですけど、 > >A& = Shell("notepad.exe """ & Range("A" & m).Value & """", 1) > >という方法も > >ではではぁ |