[[20221201161116]]　『指定したブックの削除』（はとむぎ）　ページの最後に飛ぶ

『指定したブックの削除』（はとむぎ）

Sub ★シートコピー()

Ａブックを開いた状態から、Ｂブックを開いてシートをＡブックへコピー
その後、Ｂブックを閉じて、Ｃブックを開く・・・を繰り返したいと思っています。

下記で、シートを開く事は出来たのですが、
Workbooks.Open Filename:= _

       Path1 & "\" & m & "*" & ".xlsx", UpdateLinks:=False

ブックを閉じる事が出来ません。
Workbooks(m & "*" & ".xlsx").Close

ご教示頂きたく

Dim シート名 As String, Path1 As String
Dim n As Long, m As String

Application.DisplayAlerts = False
Path1 = ActiveWorkbook.Path

シート名 = ActiveWorkbook.Name

For n = 1 To 10
m = Choose(n, "01", "02", "03", "04", "05", "06", "08", "09", "11", "17")

Workbooks.Open Filename:= _

       Path1 & "\" & m & "*" & ".xlsx", UpdateLinks:=False

ActiveSheet.Copy _

      After:=Workbooks(シート名).Sheets(1)

Workbooks(m & "*" & ".xlsx").Close

Next n

Application.DisplayAlerts = True

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

＞下記で、シートを開く事は出来たのですが、
本当でしょうか？Workbooks.Openでワイルドカード使えなかったような気がしますが。。。。

タイトルと質問内容が一致してませんが、とりあえず想像込みで整理するとこんな感じでしょうか。

    Sub 研究用()
        Dim WB As Workbbok
        Dim buf As Variant
        Dim ブック名 As Variant

        Stop 'ブレークポイントの代わり

        With ActiveWorkbook
            For Each buf In Array("01", "02", "03", "04", "05", "06", "08", "09", "11", "17")

                ブック名 = Dir(.Path & "\" & buf & "*.xlsx")
                Do Until ブック名 = ""
                    Set WB = Workbooks.Open(Filename:=.Path & "\" & ブック名, UpdateLinks:=False)
                    ActiveSheet.Copy After:=.Sheets(1)
                    WB.Close

                    ブック名 = Dir()
                Loop
            Next buf
        End With
    End Sub

（もこな２） 2022/12/01(木) 18:30:47

もなこ2さま

言われてみるとタイトルとやりたい事があっていませんね。すみません。

ご教示頂いたもので、思い通りのものになっています。
ありがとうございました。

（はとむぎ） 2022/12/02(金) 09:22:56

コメント返信：

[ 一覧(最新更新順) ]

[[20221201161116]] 『指定したブックの削除』（はとむぎ） ページの最後に飛ぶ

[[20221201161116]]　『指定したブックの削除』（はとむぎ）　ページの最後に飛ぶ