質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

解決済

サブフォルダ内の画像をサブフォルダ名のシートごとに貼り付けたい

kkkei
kkkei

総合スコア2

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

1回答

0リアクション

0クリップ

285閲覧

投稿2022/07/26 14:40

編集2022/07/27 02:38

前提

サブフォルダの画像をシートに出力するマクロを組んでいる。
FSOを使った記述の仕方がわからない。

実現したいこと

  • Test配下にあるそれぞれのサブフォルダ内の画像をすべてシートに貼り付けたい。

  • 貼り付けの際はサブフォルダごとの名前(Doubutu,Hito,Tabemono)で新規シートを作成し貼り付けられるようにしたい。

  • 画像が入っているパスは以下の通り。Testの下にDoubutu,Hito,Tabemonoのフォルダがあり、その中に画像ファイルがそれぞれ3枚ずつ入っている。

イメージ説明

・Doubutuフォルダーの中身
イメージ説明

発生している問題・エラーメッセージ

  • FSOを使った記述の仕方がわからない。
  • 調べながら同じように記述するが実行できなくなってしまう。
  • サブフォルダの名前で新規シートを作るという記述の組み込み方がわからない。
  • 再帰的な処理について流れがわからない。

該当のソースコード

vba

Sub PicInsert() Dim FolderPath As String FolderPath = Range("A2").Value   'A2には\Sampleまでのパスが入っている Call FileSearch(FolderPath) End Sub Sub FileSearch(FolderPath As String) Dim FSO As Object, Folder As Variant Dim ws As Worksheet Set FSO = CreateObject("Scripting.FileSystemObject") For Each Folder In FSO.GetFolder(FolderPath).SubFolders Call FileSearch(Folder.Path) Next Folder For Each File In FSO.GetFolder(FolderPath).Files 'Debug.Print File.Path ActiveSheet.Pictures.Insert File.Path Next File '貼り付け方の指定プロシージャ Call Paste End Sub

vba

Sub Paste() Dim Pic As Variant Range("B3").Activate For Each Pic In ActiveSheet.Shapes Pic.Select Pic.LockAspectRatio = msoTrue Selection.ShapeRange.Top = ActiveCell.Top + 1 Selection.ShapeRange.Left = ActiveCell.Left Pic.Height = 430 ActiveCell.Offset(25,0).Activate Next Pic End Sub

試したこと

  • サブフォルダのパスを指定してDebug.Printで出力させることはできた。
  • サブフォルダのパスの指定やコードの記述の仕方については一通り調べた。

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

hatena19

2022/07/27 01:14

Paste()プロシージャのコードも質問に追加してください。
kkkei

2022/07/27 02:39

すみません。 追加いたしました。
hatena19

2022/07/27 02:47

回答を書いている間に質問を編集されたようですが、編集前のコードの方が目的に近いと思います。 サブフォルダーは1階層だけなので再帰は不要です。 とりあえず私の回答のコードの理解するようにしてください。
kkkei

2022/07/27 03:02

ご回答いただきありがとうございました。 セルに入れるパスをSampleまでにして再帰させる、シートを作成することが目的となったため変更しました。これから使っていくときにサブフォルダが何階層あるか不明な場合があると考えたためです。 根本で変更がありすみません。 ご回答いただいたコードをまずは理解できるように努め、その後ほかの疑問に取り組みます。
hatena19

2022/07/27 03:13

質問では、Test内にはサブフォルダーが3つ、それぞれにサブフォルダーには画像ファイルが3枚ということでしたが、サブフォルダーの中にさらにサブフォルダーがありそこに画像がある、というようにサブフォルダーの階層がどんどん深くなっていく可能性があるということですか。 だとしても、それは、まずは1階層だけの処理が完成してから取り組んだ方がいいかと思います。一度にいろいろしようとすると理解が追い付かないように思います。(提示されているコード見た感想ですが)
kkkei

2022/07/27 03:45

そうです。 Sampleから見た画像フォルダのように1階層にはならないフォルダを扱うかもしれないので、応用できるようになりたいということです。 そうですよね、おっしゃる通りだと思います。 取り組んでいて今やりたいことが自分のキャパをオーバーしていると感じています。 再帰しないフォルダパスの取得について取り組み、理解できてから次へ進みたいと思います。 助言いただきありがとうございました。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。