Question

我正在写一个vba脚本一个。复制一个当前excel文件的内容（带格式），湾循环遍历当前文件夹中的所有其他excel文件， C。将新复制的工作表添加到Excel文件

由于某些原因，我的代码无效。任何人都可以请帮助我是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

此处您已复制一次并粘贴多次打开多个文件。在粘贴到另一个文件之前，尝试每次在循环内复制。在循环中 { 打开新文件添加标签激活此工作簿复制转到其他文件糊保存关 }

VBA脚本循环遍历其当前文件夹中的文件并进行编辑

1 个答案: