>

vba 스크립트를 작성하고 있습니다 에이. 하나의 현재 엑셀 파일의 내용을 복사 (포맷) 비. 현재 폴더의 다른 모든 Excel 파일을 반복 기음. 복사 한 새 워크 시트를 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

  • 답변 # 1

    여기에서 한 번 복사하여 여러 파일을 여러 번 붙여 넣었습니다. 루프 내에서 매번 다른 파일에 붙여 넣기 직전에 복사 해보십시오. 루프 { 새 파일 열기 탭 추가 이 통합 문서를 활성화 부 다른 파일로 이동 풀 구하다 닫기 }

관련 자료

  • 이전 serial port - 파이썬 장치 (변위 ​​측정)에서 RS232를 통해 데이터를 읽고
  • 다음 android - 프로그래밍 방식으로 대화 중력을 설정하는 방법은 무엇입니까?