Excel VBA 指定フォルダーのExcelファイルを全て開いてシートをコピー

Question

Excel VBA で指定フォルダーのExcelファイルを全て開いてシートをコピーさせようとしています
以下のコードですが、シートをコピーさせる「Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)」で、つまづいています
エラーは修飾子が不正との事ですが、どのように直せば良いでしょうか？
回答よろしくお願い致します

Sub 指定フォルダーのExcelファイルを全て開いてシートをコピー()

  Const DIR_PATH = "C:\Users\user\Desktop"
  Dim fl_name As String
  
  fl_name = Dir(DIR_PATH & "*.xls*")
  
  If fl_name = "" Then
    MsgBox "Excelファイルがありません。"
    Exit Sub
  End If

  Do
    
    Workbooks.Open Filename:=DIR_PATH & "\" & fl_name
    Workbooks("SSS-0036_R13_文書類表紙.xls").Activate
    Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)
    fl_name = Dir
    
  Loop Until fl_name = ""
  
End Sub

Answer 1

Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)・・・・を
Sheets("SSS-0036-R12").Copy Before:=Workbooks(fl_name).Sheets(1)
にしてください。

openしたファイルをクローズしていませんが、それは今回は置いときます。

Comments

[mkdsk]

丁寧な回答ありがとうございます
無事、解決しました

なお、ファイルは開いた後、個別に編集したい事があるので良いのです

Answer 2

Sheets("SSS-0036-R12").Copy Before:=flname.Sheets(1)

flname はString型なので単なる文字列です。文字列がSheetを持つはずがありません。

Sheets("SSS-0036-R12").Copy Before:=WorkBooks(fl_name).Sheets(1)

Comments

[mkdsk]

回答ありがとうございます

Answer 3

Sheets("SSS-0036-R12").Copy Before:=fl_name.Sheets(1)

fl_name は文字列です。

操作するSheetのWorkbookを明示すればいいのではないでしょうか。
（コピー元もコピー先も）

Comments

[mkdsk]

回答ありがとうございます

Answer 4

シートを末尾にコピーする構文は
Worksheets("Sheet1").Copy After := Worksheets(Worksheets.Count)です。

Comments

[mkdsk]

ご指摘ありがとうございます
AfterをBeforeに変えました
ただ、求めている回答はそこではないです

[nanami12]

構文が違うのではと言ってます。

[nanami12]

Sheets　ではなく　Worksheets

[mkdsk]

このサイトを参考にしています
https://whiteleia.com/%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB-vba-%E5%88%A5%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB-%E3%82%B7%E3%83%BC%E3%83%88-%E3%82%B3%E3%83%94%E3%83%BC/