VBA脚本循环浏览当前文件夹中的文件并编辑

我在写一个vba脚本到 a。复制一个当前excel文件的内容（带格式）， b。循环浏览当前文件夹中的所有其他excel文件， c。将新复制的工作表添加到excel文件中VBA脚本循环浏览当前文件夹中的文件并编辑

由于某种原因，我的代码无法正常工作。任何人都可以请帮我在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

来源

2017-05-26 Ohi James

你忘了问题吗？ – Max

这里是新，你已经复制一次和粘贴多次打开多个文件。尝试在粘贴到其他文件之前每次在循环中进行复制。在循环 { 打开新文件添加标签激活该工作簿复制去其他文件粘贴保存关闭 }

来源

2017-05-26 14:48:46 MrC

VBA脚本循环浏览当前文件夹中的文件并编辑

回答

相关问题