現在のフォルダ内のファイルをループして編集するVBAスクリプト

Question

私は にvbaスクリプトを書いています。現在の1つのExcelファイル（書式付き）の内容をコピーします。 b。現在のフォルダ内の他のすべてのExcelファイルをループします。 c。新しいコピーされたワークシートを追加してファイルを変換する

何らかの理由で私のコードが機能しません。誰もが一度コピーして複数のファイルを開く複数回貼り付けています。ここ 私はVBAスクリプトに新たなんだ

Sub Macro7() 

    Dim wbf As Workbook 
    Dim myPath As String 
    Dim myFile As String 
    Dim currentFile As String 
    Dim mtExtension As String 

    myPath = Application.ActiveWorkbook.Path 
    currentFile = ActiveWorkbook.Name 


    MsgBox (myPath) 
    Dim objFSO As Object 
    Dim objFolder As Object 


    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = objFSO.GetFolder(myPath) 
    Count = 0 


     For Each objFile In objFolder.Files 
      If currentFile <> objFile.Name Then 
       Set wbt = Workbooks.Open(Filename:=myPath & "\" & objFile.Name) 

       MsgBox (objFile.Name) 
       .Sheets("Action Descriptions").Select After:=Workbooks(objFile.Name).Sheets(1) 
       ActiveWorkbook.Save 
       ActiveWindow.Close 

      End If 


' 
     Next 
    ' Loop 

End Sub 

Answer 1

を助けてくださいすることができます。 ループ内で毎回コピーして、もう一方のファイルに貼り付けてください。ループでは { を開き、新しいファイル タブ を追加しますが、他のファイルにこのワークブック コピー Go]を有効に 貼り付け 保存 閉じる }