ディレクトリ内のすべてのワークブックにExcelシートをコピー

Question

私はVBAにあまり精通していないので、うまくいけば誰かが私を助けることができます。私は自分のニーズに合わせて編集できるVBAマクロを検索しましたが、どちらもうまくいきませんでした。

ディレクトリ内のすべてのワークブックにワークシートをコピーしようとしています。たとえば、ワークブックの「テンプレート」のワークシートを、「毎日」のシート/カレント・シートと共に、フォルダ内のすべてのブックまたはコード内で選択したフォルダに入れたいとします。このようにして、手作業で何百もの時間を費やすことなく、シートをブックに簡単にコピーできます。

しかし私はどこから始めるべきかわかりません。見てきたものは私にとってはうまくいっていないようです。

Answer 1

、あなたのテンプレートのブックを開きloopFolderへの正しいフォルダの場所を割り当て、その後、この試してください：あなたはこの提案を好まないかもしれませんが、私はPythonのようなサーバー側の言語を学ぶためにこの機会を使用することをお勧めします

Sub copyWorksheet() 

    'this sets your template workbook/worksheet 
    Dim copyWB As Workbook 
    Dim copyWS As Worksheet 

    Set copyWB = Workbooks("Template") 
    Set copyWS = copyWB.Sheets("Daily") 

    'this creates a collection of all filenames to be processed 
    Dim loopFolder As String 
    Dim fileNm As Variant 
    Dim myFiles As New Collection 

    '''don't forget the backslash before the final double-quote below 
    loopFolder = "C:\Documents\desiredFolder\" 
    fileNm = Dir(loopFolder & "*.xlsx") 

    Do While fileNm <> "" 
     myFiles.Add fileNm 
     fileNm = Dir 
    Loop 

    'this loops through all filenames and copies your copyWS to the beginning 
    Dim wb As Workbook 

    For Each fileNm In myFiles 
     Set wb = Workbooks.Open(fileName:=(loopFolder & fileNm)) 
     copyWS.Copy after:=wb.Sheets(1) 
     wb.Save 
     wb.Close 
    Next 

End Sub