- ベストアンサー
エクセル
教えて下さい。 今、あるフォルダ 例：c:\my photo にある写真ファイルを自動的に読み込んで貼りつけるマクロを組んであります。 このマクロでは、必ず貼りつけたい写真ファイルが c:\my phoyo の中にある必要があります。そこで このマクロを、エクセルマクロファイルがあるフォルダと同じフォルダの中にある写真を必ず貼り付けるにはどうしたらよいでしょうか？ ちなみに写真ファイル名はどのフォルダの中に入っても、かわりません。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
その他の回答 (1)
- merlionXX
- ベストアンサー率48% (1930/4007)
マクロでは取り込み先のフォルダーを、c:\my photoと指定してあるのですか？ それなら、その代わりに、ThisWorkbook.Pathとすればエクセルマクロファイルがあるフォルダ名を自動取得しますよ。
お礼
ありがとうございました。早速試してみます。
関連するQ&A
- エクセルマクロでご教示ください
エクセルで作られたデータファイルに対し、ある操作を施して上書き保存するというマクロを作りました。 そのマクロを走らせるとファイル名を聞いてきまして、そこでファイル名を入力してやれば、ある操作を施したあと 自動的に上書き保存までしてくれるのですが、対象ファイルが複数個あると、ひとつ実行したあとまたひとつ ファイル名を入れて、またそれが終ったら次のファイル名を・・・というように、ひとつひとつ実行しなければならない というのが現状です。 これを次のように改良したいのですが、どうすればいいのでしょうか？ １．マクロを立ち上げる。 ２．処理する複数のファイルが入っている「フォルダ」を選ぶ。 （一覧表示のウィンドウが出てきて、その中で「フォルダ」を選ぶ） ３．そのフォルダの中に入っているエクセルファイル全てに対し、既に作成済みのマクロを順次実行する。 というものです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル：マクロを使ったリネーム
お世話になります。 下記の内容をエクセルのマクロでできるでしょうか？ あるフォルダ（ここでは例としてＡフォルダとする）のなかに複数のフォルダがはいっています。これらのフォルダ名は実際はかなり長いのですが、必ず5桁の数字＋アンダーバーではじまります。 （例：00123_●●●） この各フォルダにはいくつかのファイルが入っていて、拡張子がxmlのファイルが必ず１つ入っています。この拡張子がxmlのファイル名の先頭にフォルダの5桁の数字＋アンダーバーをつけた名前にリネームしたいのです。 例：abcde.xml でフォルダ名が00123_●●●の場合 → 00123_abcde.xml にする。 そしてリネームしたxmlファイルをＡフォルダ直下に移動させたい。 事情がありリネームソフト等は使えません。 マクロを記述したエクセルファイルをＡフォルダ直下に入れて動作させるものとします。 エクセル2003です。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル AppData￥Roaming
お世話になります。単純にｍｙドキュメントに保存しておけばよかっただけなのですが・・・・。 ついうっかりなのか、それもよく分りませんが、エクセルの新ファイルが、 （c:￥ユーザー￥sakuraikoichi￥AppData￥Roaming￥Microsoft￥EXCELSTART）に保存されてしまいました。その結果、 1.マクロも保存されているため、エクセルを立ち上げるたびに、Personalと間違えて保存されたファイルが必ず立ち上がってしまいます。 2.おまけに、他のエクセルファイルを開き、マクロを実行しようとすると、前のマクロ名に、 間違って保存されたファイル名もマクロ名に混ざり、驚きました。マクロも実行できず、途中でエラーになってしまいます。 今までマクロも作成して、使ってきたのですがこのようなケースが初めてで、どうやって このいらないファイルを削除すればいいのかが、分りません。 AppData￥Roaming￥Microsoft￥EXCELSTARTにたどりついて、1つのファイルを削除するには どこから入って（フォルダツリーのイメージ）いけば安全でしょうか？ 初歩的なことで誠に申し訳ないのですが、お力をお貸し頂ければと思います。 よろしくお願い致します。
- ベストアンサー
- Windows系OS
- OutlookからExcelをひらく
いつもお世話になっております。 OutlookのマクロからExcelファイル(ファイル名="sample")を開くために以下のようなマクロを組みましが、 "実行時エラー'424'; オブジェクトが必要です。" というメッセージが出てエラーになってしまいます。 Workbooks.Open FileName:="C:\Documents and Settings\My Documents\sample.xls" ヘルプを見たのですがよくわかりませんでした。 Outlookのマクロを実行してExcelファイルを開くにはどのようにすればよいのでしょうか。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- ExcelのマクロでExcelファイルを抽出して開きたい
あるフォルダ内にある複数のExcelファイルの中から、希望のExcelファイルを開くマクロをつくりたいと思っています。 フォルダ名は任意の数字、ファイル名は任意の数字（フォルダ名と同一）+版数データです。 例) C:\excelsheets\1234567890_1\1234567890_1_0_2_Sheet.xls 「_整数」の部分が版数データ。 動作としては、マクロを実行したら、任意の番号を入力してExcelファイルを開くという流れを考えています。 ちなみに、開くファイルは、 希望A 指定した番号の最新のファイルだけを開く。 希望B 指定した番号のファイルを、版数に関係なく全て開く。 を考えています。（AがダメならB） マクロの自動保存で出来たマクロに手を加えて出来たのが下記です。 Sub test() Dim Select1 As Double Select1 = Application.InputBox("Noを入力してください", "No. Select") ChDir "C:\excelsheets\" & Select1 & "_1" Workbooks.Open Filename:= _ "C:\excelsheets\" & Select1 & "_1\" & Select1 & "_1_0_2_Sheet.xls" End Sub ただし、これだと版数の変化についていけないので、試しに、 "C:\excelsheets\" & Select1 & "_1\*.xls" と、ワイルドカードが使えるか試したらエラーになりました。 初歩的な事かもしれませんが、マクロの勉強を始めたばかりで試行錯誤しながらやってます。ご助言、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル起動時、自動的にマクロを実行する
エクセルファイルを開いたとき、自動的にマクロを 組み込む方法で、「XLSTARTフォルダ」にマクロファイル を置くという方法を最近知りました。 任意のエクセルファイルを開いたときのみ XLSTARTフォルダのマクロファイルを実行する 方法はないのでしょうか？ 普通にエクセルを使いたいときでも、マクロが組み込まれて しまい、とても困っています。 例えば、指定のフォルダの中にあるエクセルファイルであれば XLSTARTフォルダのマクロファイルを実行する という、操作ができたりすれば、とてもよいのですが。 何か良い方法があれば、教えていただきたいです。
- 締切済み
- Visual Basic
- Excelファイルがマクロを含むか調べるには？
Excell2003で作っていた多量のExcelファイルを、Excel2010で動かす事が必要になってきました。 で、指定フォルダにある複数のExcelファイルが、マクロを含んでいるかどうかを調べたいのです。 加えて、マクロを含んだExcelファイルのファイル名をリストアップしたいのですが、 どの様にしたら良いでしょうか？ 適切なマクロなりともご教授いただきたく、よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- 特定のフォルダー内のエクセルファイルを開くＶＢＡ
たとえば C:\My Documents\データ というフォルダーには２０～３０のエクセルファイルが入っています ファイルの名前は「えくせる なんばー１０１」などという名前になっています 「えくせる なんばー」までは共通で「１０１」の部分はそれぞれランダムな数字が入っています ランダムなファイル名なのでファイルを捜して開くのが大変です インプットボックスなどで 「１０１」の部分を入力すれば該当ファイルが開くような マクロを作りたいのですが （続きナンバーにして フォルダの整列をすれば捜しやすいのですが ネットワーク上の共有フォルダなので勝手にファイル名を変えることが出来ないのです） ＶＢＡ初心者なのでよろしくお願いします
- 締切済み
- オフィス系ソフト
お礼
ありがとうございました。早速試してみます。