- ベストアンサー
別アプリケーションへChDir
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Excelのマクロで開いたアプリの [ファイル]-[開く] で表示される ディレクトリを、指定した任意ものにしたい、ということでしたら、 次のような内容ではいかがでしょうか。 IrfanViewで指定フォルダを開いてみました。 すべて SendKeys で、実際の私のＰＣ環境そのままの内容を記述し てますが、適当に書き直してみてください。 Sub AAA() Dim Fol Fol = "C:\_MyFiles\My Pictures" Shell "C:\Z_Program\Graphic\Viewer\IrfanView\i_view32.exe", 1 AppActivate "IrfanView" SendKeys "%(FO)", True SendKeys Fol, True SendKeys "%O", True End Sub
その他の回答 (1)
- hana-hana3
- ベストアンサー率31% (4940/15541)
ChDir の前に、ChDrive でドライブを指定して下さい。 ChDrive "C\:" ' "C:\test" でも可 ChDir "C:\test" Application.Dialogs(xlDialogOpen).Show
関連するQ&A
- VBAの組み込みダイアログの引数Argについて
エクセルVBAでの質問です。 エクセルとして名前をつけて保存なら Sub aaa() Application.Dialogs(xlDialogSaveAs).Show ARG1:="ABC.xls", ARG2:=1 End Sub テキストファイルとして名前をつけて保存なら Sub bbb() Application.Dialogs(xlDialogSaveAs).Show ARG1:="ABC.txt", ARG2:=3 End Sub CSVファイルとして名前をつけて保存なら Sub ccc() Application.Dialogs(xlDialogSaveAs).Show ARG1:="ABC.csv", ARG2:=6 End Sub でうまくいきます。 今度は、ファイルを開こうとxlDialogOpenに変えました。 Sub aaa2() Application.Dialogs(xlDialogOpen).Show ARG1:="ABC.xls" ', ARG2:=1 End Sub Sub bbb2() Application.Dialogs(xlDialogOpen).Show ARG1:="ABC.txt", ARG2:=3 End Sub 以上二つはファイル名入りのダイアログは出ました。でもダイアログの画面にはフォルダーしか表示されません。 Sub ccc2() Application.Dialogs(xlDialogOpen).Show ARG1:="ABC.csv", ARG2:=6 End Sub これは実行時エラーになりました。 どうも、Application.Dialogs(xlDialogSaveAs)とApplication.Dialogs(xlDialogOpen)では引数ARG2が違うようです。 Application.Dialogs(xlDialogOpen)でのARG2は何の指定なのでしょうか？またその数値の意味はなんでしょうか？
- ベストアンサー
- その他MS Office製品
- EXCEL2000のVBAで、ディレクトリを指定するダイアログボックスを出したい
VBA歴日も間もない者です。仕事上でVBAをいろいろいじくっています。 Excel2000VBAで、ディレクトリの指定をできるダイアログ画面はないのでしょうか？ ユーザーにディレクトリを入力してもらいたいのですが、方法としては、1)直接手で打ってもらうか、2)ダイアログで指定できるようにするかにしたいのですが、あいにく Application.Dialogs(xlDialogOpen).Show Application.GetOpenFilename で「ファイルを開く」でディレクトリを割り出す方法しか分かりませんでした。 できれば、ディレクトリ指定のダイアログ画面をだしたいのですけど、他に方法があれば教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで、Application.Dialogs(xlDialogImportTextFile).Showが不安定？！
Application.Dialogs(xlDialogImportTextFile).Showが不安定？！ エクセル2000です。 Sub TEST() Application.Dialogs(xlDialogImportTextFile).Show End Sub 上記マクロを実行すると、なぜか 「実行時エラー1004 DialogクラスのShowメソッドが失敗しました。」 となることが多いのです。 エラーになったり、ならなかったり不安定で困ります。 どんな理由が考えられるでしょうか？ なお、今回はまだTESTのため、これ以外に他のマクロは記述しておりません。
- ベストアンサー
- その他MS Office製品
- VBAで書き込みパスワードを解除して開く
VBAでの作成経験が浅くわからないので、教えてください。 Excel2010のVBAを作成しております。 VBAで”ファイルを開く”ダイアログを表示し、ユーザが指定したファイルのパスワードの保護をマクロの中で解除してファイルを開きたいと思い作成しました。 myMB = Application.Dialogs(xlDialogOpen).Show(arg6:=myPassword) If myMB = False Then Exit Sub End If ※myPasswordはユーザが開くファイルに使用するパスワード この方法ですと、パスワードを入れるダイアログが表示されてしまいます。 どうしたら、パスワードをユーザが入力することなく、マクロを実行することが できるのでしょうか？
- ベストアンサー
- Excel（エクセル）
- VBAでユーザーに別ファイルのシートを選ばせたい場合
エクセル２０００です。 マクロを記載したBOOKを開いたままで、ユーザーに作業の対象とするファイルを開かせ、その中の対象とするファイルを選ばせたら次のマクロに移りたいのですが、以下のマクロですと開いたらすぐ実行されてしまいます。 開いてからユーザーがシートをアクティブにするまで実行を止めるにはどうしたらよいのでしょうか？ BOOKを開かせて一旦マクロを終了し、マクロを記載したBOOKでまた別のボタンを押させるというのなら思いつくのですが・・・。 Sub test01() MsgBox "対象のエクセルファイルを開いてください。" _ & vbCr & "開いたら該当のシートをアクティブにして下さい。", , " " If Application.Dialogs(xlDialogOpen).Show = False Then MsgBox "キャンセルされました。", , "（￣ロ￣；）！！" Exit Sub End If Call 次のマクロ End Sub
- ベストアンサー
- その他MS Office製品
- ファイル保存時のダイアログ表示フォルダを変更したい
ファイル保存時にネットワーク上のフォルダを表示するダイアログを表示するには どのように記述すればよろしでしょうか。ご教授よろしくお願い致します。 以下、教えていただいたコードですが Const PathName = "\\●●\○○\" Call SetCurrentDirectory(PathName) Application.Dialogs(xlDialogSaveAs).Show このコードでファイルを開くダイアログを記述すると 設定したネットワーク上のフォルダを表示するのですが Application.Dialogs(xlDialogOpen).Show ---ＯＫ ファイル保存のダイアログを記述すると では、デスクトップがダイアログに表示されます。 Application.Dialogs(xlDialogSaveAs).Show ---NG Application.Dialogs(xlDialogSaveAs).Show の場合(保存ダイアログ表示）は どのように記述すれば、ネットワーク上のフォルダを表示できますでしょうか。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- エクセルVBAの「組み込みダイアログボックス」の使用法？
いつもありがとうございます。 組み込みダイアログボックスについて教えてください。 エクセルのシート内容をCSV形式で保存する場合、組み込みダイアログボックスを使い、下記のマクロでうまく行きました。 Sub CSV保存() '～略～ Application.Dialogs(xlDialogSaveAs).Show ARG2:=6 '～略～ End Sub 試した結果、上記の組み込みダイローグのファイルの種類のデフォルトは ARG2:=の次の値が６でcsv、１でエクセルになるようでした。 次に、エクセルを開いた状態でCSVファイルを開こうと思い、同様に組み込みダイアローグを使用するため下記のマクロを作りました。ところがうまくいきません。 Sub CSVdata取得() Application.Dialogs(xlDialogOpen).Show ARG2:=6 End Sub ・・・・と記述するとエラーになります。 この場合、どうも ARG2:=6の６の数字のところが４以上はエラーとなるようです。 ARG2:=の次の値を１～３にするとエラーにはなりませんが、デフォルトはいずれもエクセルでした。 最初からファイルの種類をCSV形式にするにはどう記述したらよいのでしょうか？ どうかお助けください。
- ベストアンサー
- オフィス系ソフト
- エクセルの保存で。
xls形式で保存したあとに、csv形式で保存するVBAを作りました。 csv形式で保存するときは指定したディレクトリ「c」を 表示してくれるのですが、 xls形式のときは実行時のカレントを指定しまいます。 なぜでしょう？？？ Sub filehozon() Dim MyFileA 'As String MyFileA = "c:\test" 'xls形式保存 Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileA, arg2:=1 Sheets(2).Copy Application.DisplayAlerts = False 'csv形式保存 Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileA, arg2:=6 ActiveWindow.Close Application.DisplayAlerts = True End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでマクロなしのブックでマクロを使う方法
タイトルが変ですが、こういうことです。 Sub serch() Application.Dialogs(xlDialogFormulaFind).Show ActiveCell.Value End Sub このコードは検索ダイアログを表示するものですが、これをマクロなしの様々なブックで使いたいのです。 何か方法があるでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルの印刷ダイアログをSendkeysで操作したい。
エクセルのマクロ処理でフォーム上のボタンから 印刷ダイアログを呼び出して、そのダイアログを Sendkeysでもって両面印刷設定にし印刷させると いう処理を行いたいのですが上手くいきません。 印刷ダイアログが表示された段階で止まり（エラーで 止まるわけではなく単に処理が止まる）、その先の Sendkeysによる命令へ進みません。 Private Sub CommandButton1_Click() Application.Dialogs(xlDialogPrint).Show SendKeys "%r", True SendKeys "%k", True SendKeys "^{tab}", True SendKeys "^{tab}", True SendKeys "^{tab}", True SendKeys "%r", True SendKeys "{enter}", True SendKeys "+{tab}", True SendKeys "+{tab}", True SendKeys "+{tab}", True SendKeys "+{tab}", True SendKeys "{enter}", True SendKeys "+{tab}", True SendKeys "+{tab}", True SendKeys "+{tab}", True SendKeys "{enter}", True End Sub よくSendKeysは環境によって誤作動などが起こるので 使わない方がいいと言われますが、一度どのように 動くのか試してみたいと思っています。 ちなみに上のコードは当方のプリンタでの設定手順となります。 SendKeysで印刷ダイアログにキーを送ることは できないのでしょうか？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
まずは、ご回答お礼申し上げます。 SendKeysでキーボード入力以外の内容を送ること、考えては見ましたが記述方法が分からずあきらめていました。ネットで色々調べるうちに 難しいほうへ誘われ、参照設定・CreateObject関数など初心者の私には未知の世界。ＶＢＡの本も買いましたがそれらしき内容は有った物の 求めていた物ではなく・・・。最後の頼みとここへ質問し、目からの鱗の回答に感動すら覚えました。お陰様で半分諦めていた物が本日完成し ました。本当に有り難うございました。