Ｐａｇｅ 50 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼GetOpenFilenameについて Reiko 02/9/9(月) 15:06 ┗Re:GetOpenFilenameについて 大那 02/9/9(月) 15:39 ┗Re:GetOpenFilenameについて Reiko 02/9/9(月) 16:15 ─────────────────────────────────────── ■題名 ： GetOpenFilenameについて ■名前 ： Reiko ■日付 ： 02/9/9(月) 15:06 -------------------------------------------------------------------------
| こんにちは。いつもお世話になってます。 コマンドボタンからエクセルの「ファイルを開く」の アプリケーションを開く下記のようなマクロを作っています。 Private Sub CommandButton1_Click() Dim temp As Variant temp = "c:\Company\経営分析" temp = Application.GetOpenFilename("(*.xls),*.xls", , "選択", False) If temp <> False Then Workbooks.Open Filename:=temp End If End Sub ただ、これだと最初に開きたいフォルダが「c:\Company\経営分析」 なのに、なぜかいつも「c:\My Document」が先に開いてしまいます。 わざわざ手動でフォルダを探しにいかなくてもすむ方法はないでしょうか？ 宜しくお願いします。 |
| Reiko さん、こんにちわ。 おそらく下記の変更でいけるとおもいます。 > >Private Sub CommandButton1_Click() >Dim temp As Variant この部分を下記のように変更してみてはいかかでしょうか？ > temp = "c:\Company\経営分析" ChDir "c:\Company\経営分析" ただし、指定したフォルダが存在しないとエラーになるので、 フォルダの存在確認をしていた方がいいでしょう。 くわしくは"ChDir"をヘルプで調べてみてください。（＾＾ > temp = Application.GetOpenFilename("(*.xls),*.xls", , "選択", False) > If temp <> False Then > Workbooks.Open Filename:=temp > End If >End Sub > >ただ、これだと最初に開きたいフォルダが「c:\Company\経営分析」 >なのに、なぜかいつも「c:\My Document」が先に開いてしまいます。 >わざわざ手動でフォルダを探しにいかなくてもすむ方法はないでしょうか？ >宜しくお願いします。 でわ。（＾＾ |
| ▼大那 さん： >Reiko さん、こんにちわ。 >おそらく下記の変更でいけるとおもいます。 >> >>Private Sub CommandButton1_Click() >>Dim temp As Variant > > この部分を下記のように変更してみてはいかかでしょうか？ >> temp = "c:\Company\経営分析" > ChDir "c:\Company\経営分析" > > ただし、指定したフォルダが存在しないとエラーになるので、 > フォルダの存在確認をしていた方がいいでしょう。 > くわしくは"ChDir"をヘルプで調べてみてください。（＾＾ > 上記の変更でうまくいきました。 VBAのヘルプファイルはインストールしていないのですが、 あとは過去ログや手持ちの本を参考に調べてみます。 どうもありがとうございました。 |