- 締切済み
エクセルマクロでフォルダを開くウィンドウ
- みんなの回答 (3)
- 専門家の回答
みんなの回答
- zap35
- ベストアンサー率44% (1383/3079)
#02です。 表示されないのが仕様のようです。
- zap35
- ベストアンサー率44% (1383/3079)
エクセルのブックを開くならこんなマクロでしょうか。標準モジュールシートに貼り付けてください。 Sub Macro2() Dim fName fName = Application.GetOpenFilename(filefilter:="*.xls,*.xls", _ MultiSelect:=False) If TypeName(fName) <> "Boolean" Then Workbooks.Open fName End If End Sub エクセル以外のファイルも開きたいなら、Windows Scripting Hostを利用します。こんな感じです Sub Macro3() Dim fName, WSH fName = Application.GetOpenFilename(filefilter:="エクセル,*.xls" & _ ",ワード,*.doc", MultiSelect:=False) If TypeName(fName) <> "Boolean" Then Set WSH = CreateObject("WScript.Shell") WSH.Run fName End If Set WSH = Nothing End Sub
- n-jun
- ベストアンサー率33% (959/2873)
Excelファイルについて参考になると思います。 ファイル選択ダイアログを使う http://www.happy2-island.com/excelsmile/smile03/capter00803.shtml
補足
ありがとうございます。 ただウィンドウが開いてファイルを開けはするのですが、 ファイル名のところにファイル名が表示されず?状態です。
関連するQ&A
- エクセルマクロで同じフォルダ内のテキストファイルをメモ帳で開く方法
「マクロを記述したエクセルファイルと同じフォルダにある、 特定のファイル abc.txt を、メモ帳で開く」ということをしたいのですが、マクロの記述をご教授下さい。 フォルダ名を固定すると、 Shell "notepad C:\--\abc.txt", vbNormalFocus という形でできたのですが、 フォルダの名前は、固定ではなく、変わります。 ですので、フォルダ名が含まれると都合が悪くなってしまうんです。 エクセル2000、WINDOWS XP を利用しています。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロで任意のフォルダのパスを取得する方法
エクセルを使用して、任意のフォルダを指定し、その中に入っているファイル(jpg画像ファイル)の名前を取得、画像をエクセルシート内に貼り付けていくというマクロを作成しています。 今回質問はその前段の部分、使用者が任意のフォルダを指定して、そのフォルダのパスをマクロが取得するというところでてこずっています。 現時点では、画像が入っているフォルダのウィンドウのアドレスバーに入っているパスを、コピぺでフォームに貼り付けさせてます^^; それだと使用者にウインドウにアドレスバーを表示するには…みたいなところから説明しなければならないのでユーザーライクではありません。 そこで、通常良くあるような、フォルダやファイルを指定させるダイアログを出したり、もしくはフォームに任意のフォルダをドラッグ&ドロップしたりすることで、任意のフォルダのパスを取得できたらな、と思っています。 そのような方法(もしくはより良い方法)を実現するマクロの組み方をご存知でしたら、教えてくださいm(__)m 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- Excelマクロでフォルダ一覧作成
ExcelマクロでExcelファイルのA列に30行程、入力されている一覧の文字でフォルダを指定したフォルダ内に作成するソースを考えています。色々、試してはいますがどれもうまくいきません。教えていただけると助かります。
- 締切済み
- Visual Basic
- Excelファイルがマクロを含むか調べるには?
Excell2003で作っていた多量のExcelファイルを、Excel2010で動かす事が必要になってきました。 で、指定フォルダにある複数のExcelファイルが、マクロを含んでいるかどうかを調べたいのです。 加えて、マクロを含んだExcelファイルのファイル名をリストアップしたいのですが、 どの様にしたら良いでしょうか? 適切なマクロなりともご教授いただきたく、よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- エクセルのマクロで困ってます
エクセルのマクロで困ってます エクセル2000や2003上でマクロを使って、シート上に入力してあるハイパーリンク貼り付けしたエクセルファイルやワードファイルを上から順番に開いて、印刷しようとしています。 このとき、エクセルかワードかのファイルによってマクロの内容が違ってくるみたいですが、アクティブファイルがエクセルなのかワードなのかIF文で分岐させたいと思っています。どのようにマクロを書いたらいいのでしょうか。
- ベストアンサー
- Visual Basic
- エクセル:マクロ処理
エクセルファイルにマクロを入れておき、あるボタンを押したらそのマクロが1回だけ実行される。 というようにしたい。 (質問) ボタンは、どう作るか。コマンドで作るのか。 ボタン処理のところのマクロ記述はどんな感じのコードか。 このファイルを開いたときマクロを有効とするかは有効にするでいいんですよね。 (参考) ワークシート ボタン1を表示しておく マクロ ボタン処理 実行処理 マクロend
- ベストアンサー
- オフィス系ソフト
- Excelマクロについて
Excelマクロ(VBA)で複数のExcelファイルを一括で処理するプログラムを作っているのですが、処理対象のExcelファイルにはマクロが記述されていて、Excelを開く毎に記述のマクロが動いてしまいます。 対象のExcelファイルをオープンする時に、マクロを無効にして開くすることは可能でしょうか? 今現在、Excelファイル開く時に使ってる命令は、 Workbooks.Open Filenameです。
- ベストアンサー
- その他(業務ソフトウェア)
- Wordのアドインとマクロ実行について
Wordのアドインとマクロ実行について Word2003を使用しています。 アドイン用のテンプレートファイルを作成し、アドインの追加まではできました。 アドインで記述したマクロを実行させたいのですが、記述方法がわかりませんでした。 Excelですと「ファイル名!関数名」で呼べるようですが、 Wordの場合、どのように記述すればアドインのマクロ処理を呼ぶことができるのでしょうか? (例.Word文書にボタンを追加してボタンがクリックされたら、アドインのマクロ処理が実行される等 処理をコードで記述したい) ご教授よろしくお願いたします。
- ベストアンサー
- その他MS Office製品
補足
回答ありがとうございます。 Sub Macro2() Dim fName fName = Application.GetOpenFilename(filefilter:="*.xls,*.xls", _ MultiSelect:=False) If TypeName(fName) <> "Boolean" Then Workbooks.Open fName End If End Sub を貼り付けた結果、ファイルを開くダイアログは表示され、 ファイルを選択して開くことはできるのですが、 ダイアログのファイル名にファイル名が表示されないのです。 これは記述内容の問題ではなく僕のPCのオフィスなりの環境に問題があるのでしょうかね? 既存のアクセス等であるファイルを開くダイアログ機能の部分では表示されるのですが・・・・