
フォルダに入っている複数のブックを別ブックに転記するという処理をしたいのですが、
シートが複数ありまたシート名が毎回異なる為、ある特定の文字を含んだシート名が入っていた場合処理を適用する、ということをしたいです。しかしFor ~ の構文を使ってもうまくいきません。。。
どなたか下記★部分のマクロのコードを教えていただけないでしょうか。
Dim fpath As String, fname As String
Dim wb As Workbook
Dim sh As Worksheet
Dim no As Variant
Dim no2 As Variant
Application.ScreenUpdating = False
With Worksheets("メニュー")
fpath = .Range("コピー元フォルダ指定パス").Value & "\"
Set sh = Worksheets(.Range("コピー先指定シート名").Value)
Do Until fname = ""
Set wb = Workbooks.Open(fpath & fname)
★コピー元ブック内のシート名に"A"が含まれているシートがある場合以降の処理をする、無かった場合は処理をせず、次のブックへ。。。という事がしたいです。
★ Aが含まれているシートがあった場合、下記のnoとno2に指定したシートのセルの情報を入れますが指定シートの名前が毎回異なります。仮でSheet1,2とそれぞれしていますが、
noはシート名に"B"という文字が含まれている場合セルA2、no2はシート名に"C"という文字が含まれている場合セルB2の情報を入れるという事をしたいです。
no = wb.Worksheets("Sheet1").Range("A2").Value
no2 = wb.Worksheets("Sheet2").Range("B2").Value
★ Withステートメントでコピー元シートを指定して転記処理をしたいのですが、
シート名がブック毎に異なります。この場合はどのように指示をすれば良いでしょうか。
With wb.Worksheets("sheet3")
以下転記処理(ここは省略させていただきます)
End With
wb.Close
fname = Dir()
Loop
Application.ScreenUpdating = True
End Sub
わかりづらく申し訳ありませが、何卒よろしくお願いします・・・。
No.1ベストアンサー
- 回答日時:
こんにちは
>ある特定の文字を含んだシート名が入っていた場合処理を適用する
シート名をチェックするのには、一旦当該ブックを開く(=Open)必要があります。
ブック内のシートを順にチェックして、「特定文字」を含んでいるか調べれば良いですね。
ご提示のコードでは変数 wb がチェック対象のブックであると解釈しました。
以下のようなループで調べれば宜しいかと。
For Each sourceSh In wb.Worksheets
If sourceSh.Name Like "*特定文字*" Then
' 当該シートに対する処理を記述する
End If
Next sourceSh
※ 1ブック内に対象は1シートのみなどと決まっていれば、発見した後は、残りのシートを調べる必要はなくなると思われます。
お礼が大変遅くなり申し訳ありません。。。教えていただいたコードを試してみてやりたいことが無事できました。大変助かりました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
【VBA】シート名に特定文字が入っていたらマクロを実行したいです。
Visual Basic(VBA)
-
Excel VBAである特定文字列を含むシート名例えば「りんご(1)」
Excel(エクセル)
-
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
-
4
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
5
エクセルマクロでシート名を条件にする方法
Excel(エクセル)
-
6
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBA シート名が一致した場合の転記内容について
Visual Basic(VBA)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
11
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
12
指定文字が含まれるシートを削除したいです
Visual Basic(VBA)
-
13
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
14
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
15
ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします
Visual Basic(VBA)
-
16
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
17
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
18
エクセルVBA Ifでシート名が合致したら別ファイルから転記する場合のElse IfとForの書き方
Visual Basic(VBA)
-
19
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
20
マクロを複数シートに実行するには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
特定の文字を含むシートだけマ...
-
【VBA】シート名に特定文字が入...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
別のシートから値を取得するとき
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
実行時エラー1004「Select メソ...
-
IFステートの中にWithステート...
-
userFormに貼り付けたLabelを変...
-
Worksheet_Changeの内容を標準...
-
エクセルVBA Ifでシート名が合...
-
C#でExcelのシートを選択する方法
-
ブック名、シート名を他のモジ...
-
エクセルで通し番号を入れてチ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
【ExcelVBA】全シートのセルの...
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
ブック名、シート名を他のモジ...
-
【VBA】シート名に特定文字が入...
-
シートが保護されている状態で...
-
VBAで指定シート以外の選択
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
IFステートの中にWithステート...
-
実行時エラー'1004': WorkSheet...
-
Excel VBA リンク先をシート...
-
エクセルVBA Ifでシート名が合...
-
ExcelVBA:複数の特定のグラフ...
-
ExcelのVBAのマクロで他のシー...
-
実行時エラー1004「Select メソ...
おすすめ情報