Note: The other languages of the website are Google-translated. Back to English

Excel에서 여러 통합 문서를 하나의 마스터 통합 문서로 결합하는 방법은 무엇입니까?

Excel에서 여러 통합 문서를 하나의 마스터 통합 문서로 결합해야 할 때 막힌 적이 있습니까? 가장 끔찍한 것은 결합해야하는 통합 문서에 여러 워크 시트가 포함되어 있다는 것입니다. 그리고 여러 통합 문서의 지정된 워크 시트 만 하나의 통합 문서로 결합하는 방법은 무엇입니까? 이 튜토리얼은 단계별로 문제를 해결하는 데 도움이되는 몇 가지 유용한 방법을 보여줍니다.


이동 또는 복사 기능을 사용하여 여러 통합 문서를 하나의 통합 문서로 결합

몇 개의 통합 문서 만 결합해야하는 경우 이동 또는 복사 명령을 사용하여 워크 시트를 원본 통합 문서에서 마스터 통합 문서로 수동으로 이동하거나 복사 할 수 있습니다.

1. 마스터 통합 문서로 병합 할 통합 문서를 엽니 다.

2. 마스터 통합 문서로 이동하거나 복사 할 원본 통합 문서의 워크 시트를 선택합니다.

배송 시 요청 사항:

1). 여러 개의 인접하지 않은 워크 시트를 선택할 수 있습니다. Ctrl 키 키를 누르고 시트 탭을 하나씩 클릭합니다.

2). 인접한 여러 워크 시트를 선택하려면 첫 번째 시트 탭을 클릭하고 변화 키를 누른 다음 마지막 시트 탭을 클릭하여 모두 선택합니다.

삼). 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 모든 시트 선택 상황에 맞는 메뉴에서 통합 문서의 모든 워크 시트를 동시에 선택합니다.

3. 필요한 워크 시트를 선택한 후 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 이동 또는 복사 상황에 맞는 메뉴에서. 스크린 샷보기 :

4. 그런 다음 이동 또는 복사 대화 상자가 나타납니다. 예약하려면 드롭 다운에서 워크 시트를 이동하거나 복사 할 마스터 통합 문서를 선택합니다. 이동을 선택하여 시트 전 상자에서 사본 만들기 상자를 클릭하고 마지막으로 OK 버튼을 클릭합니다.

그런 다음 두 통합 문서의 워크 시트가 하나로 결합 된 것을 볼 수 있습니다. 위의 단계를 반복하여 다른 통합 문서의 워크 시트를 마스터 통합 문서로 이동하십시오.


VBA를 사용하여 여러 통합 문서 또는 지정된 통합 문서 시트를 마스터 통합 문서에 결합

여러 통합 문서를 하나로 병합해야하는 경우 다음 VBA 코드를 적용하여 신속하게 수행 할 수 있습니다. 다음과 같이하십시오.

1. 결합하려는 모든 통합 문서를 동일한 디렉터리 아래에 하나에 넣습니다.

2. Excel 파일을 시작합니다 (이 통합 문서가 마스터 통합 문서가 됨).

3. 누르세요 다른 + F11 키를 눌러 애플리케이션 용 Microsoft Visual Basic 창문. 에서 애플리케이션 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈, 그런 다음 VBA 코드 아래를 모듈 창에 복사하십시오.

VBA 코드 1 : 여러 Excel 통합 문서를 하나로 병합

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

배송 시 요청 사항:

1. 위의 VBA 코드는 병합 후 원본 통합 문서의 시트 이름을 유지합니다.

2. 마스터 통합 문서의 어떤 워크 시트가 병합 후 어디에서 왔는지 구별하려면 아래 VBA 코드 2를 적용하십시오.

3. 통합 문서의 지정된 워크 시트를 마스터 통합 문서로 결합하려는 경우 아래 VBA 코드 3이 도움이 될 수 있습니다.

VBA 코드에서 "C : \ 사용자 \ DT168 \ Desktop \ KTE \”는 폴더 경로입니다. VBA 코드 3에서 "Sheet1, Sheet3"는 마스터 통합 문서로 결합 할 통합 문서의 지정된 워크 시트입니다. 필요에 따라 변경할 수 있습니다.

VBA 코드 2 : 통합 문서를 하나로 병합 (각 워크 시트의 이름은 원래 파일 이름의 접두사로 지정됨) :

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

VBA 코드 3 : 통합 문서의 지정된 워크 시트를 마스터 통합 문서로 병합 :

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. 누르세요 F5 코드를 실행하는 키입니다. 그런 다음 특정 폴더에있는 통합 문서의 모든 워크 시트 또는 지정된 워크 시트가 한 번에 마스터 통합 문서로 결합됩니다.


여러 통합 문서 또는 지정된 통합 문서 시트를 하나의 통합 문서로 쉽게 결합

다행히도 결합 통합 문서 유틸리티 Excel 용 Kutools 여러 통합 문서를 하나로 병합하는 것이 훨씬 쉽습니다. 여러 통합 문서를 결합 할 때이 함수가 작동하도록하는 방법을 살펴 보겠습니다.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 새 통합 문서를 만들고 쿠툴즈 플러스 > 결합. 그런 다음 결합 된 모든 통합 문서를 저장해야하며 보호 된 통합 문서에 기능을 적용 할 수 없음을 알리는 대화 상자가 나타납니다. OK 버튼을 클릭합니다.

2. 에서 워크 시트 결합 마법사, 선택 통합 문서의 여러 워크 시트를 하나의 통합 문서로 결합 옵션을 클릭 한 다음 다음 단추. 스크린 샷보기 :

3. 에서 워크 시트 결합-2 단계 중 3 단계 대화 상자에서 추가 > 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 or 폴더 하나로 병합 할 Excel 파일을 추가합니다. Excel 파일을 추가 한 후 마감재 버튼을 클릭하고 마스터 통합 문서를 저장할 폴더를 선택합니다. 스크린 샷보기 :

이제 모든 통합 문서가 하나로 병합됩니다.

위의 두 가지 방법과 비교하면 Excel 용 Kutools 다음과 같은 이점이 있습니다.

  • 1) 모든 통합 문서와 워크 시트가 대화 상자에 나열됩니다.
  • 2) 병합에서 제외하려는 워크 시트의 경우 선택을 취소하십시오.
  • 3) 빈 워크 시트는 자동으로 제외됩니다.
  • 4) 병합 후 원래 파일 이름이 시트 이름에 접두사로 추가됩니다.
  • 이 기능의 더 많은 기능을 보려면 여기를 방문하십시오.

  무료 평가판(30-일) 이 유틸리티의 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


Excel 용 Kutools- 항상 미리 작업을 완료하고 인생을 즐길 수있는 더 많은 시간을 가질 수 있도록 도와줍니다.
자신과 가족을 위해 시간을 할애하지 않고 일을 따라 잡는 자신을 자주 발견하십니까?  Excel 용 Kutools 처리하는 데 도움을 줄 수 있습니다. 80% 엑셀 퍼즐과 80%의 작업 효율성을 향상시켜 가족을 돌보고 삶을 즐길 수 있는 더 많은 시간을 제공합니다.
300가지 작업 시나리오를 위한 1500가지 고급 도구를 사용하면 작업이 그 어느 때보다 쉬워집니다.
더 이상 공식과 VBA 코드를 암기 할 필요가 없습니다. 이제부터 두뇌에 휴식을 취하세요.
복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 ​​있습니다.
매일 수천 건의 키보드 및 마우스 작업을 줄이고 지금 직업병에 작별 인사를하십시오.
3 분 안에 Excel 전문가가되어 빠르게 인정 받고 급여 인상 프로모션을받을 수 있습니다.
110,000 명의 매우 효과적인 사람들과 300 개 이상의 세계적으로 유명한 기업의 선택.
$ 39.0의 가치를 다른 사람의 $ 4000.0보다 더 가치있게 만드십시오.
전체 기능 무료 평가판 30-낮. 이유 없는 60일 환불 보장.

코멘트 (146)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Plz는 아래 조건에 대해 저를 도와줍니다. 각각 다른 경로에 5개 이상의 워크시트가 있는 다른 통합 문서가 있습니다. 다른 통합 문서의 모든 워크시트를 단일 통합 문서로 통합해야 합니다. 누구든지 macro.TIA로 해결하는 데 도움을 줄 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용]안녕하세요 Plz이 아래 조건에 저를 도와주세요. 각각 다른 경로에 5개 이상의 워크시트가 있는 다른 통합 문서가 있습니다. 다른 통합 문서의 모든 워크시트를 단일 통합 문서로 통합해야 합니다. 누구든지 macro.TIA로 해결하는 데 도움을 줄 수 있습니까?에이 카티[/인용] Excel용 Kutools를 다운로드하여 설치하십시오. 빠르게 완료할 수 있습니다. 그러나 VBA를 사용하려면 너무 복잡할 수 있습니다. 완료 방법에 대한 자세한 내용은 다음을 방문하십시오.http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
KUTOOLS 멋진 솔루션입니다. 마스터 통합 문서를 만들 때 한 번 더 도움이 필요합니다. 그러면 워크시트의 셀 색상이 원본 워크시트에서 변경됩니다. 원본 워크시트처럼 유지하려면 어떻게 해야 하나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
우리 사무실에는 여러 Excel 원본의 데이터(예: 이름, 주소, 도시, 금액, 서명 날짜)가 중복되어 있으며 데이터를 결합하려는 작업이 진행 중입니다. 이중 작업 및 이중 정보 입력을 제거하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
'런타임 오류 1004'가 표시되고 Sheet.Copy After:=ThisWorkbook.Sheets(1) 행에서 Worksheet 클래스의 메서드 복사가 실패했습니다. Excel 2010을 사용하고 있습니다. 도와주시겠습니까? 고마워, - 수지
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hey Susie, 나는 잠시 동안 이 문제에 대해 작업하고 있었는데 같은 오류가 발생했습니다. 활성 통합 문서 대신 PERSONAL에서 모듈이 생성되었는지 확인하십시오. 올바른 트리 아래에 모듈을 만든 후에는 아래 코드가 제대로 작동했습니다. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 도움이 되기를 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다. 코드가 잘 작동했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] '런타임 오류 1004'가 표시됩니다. Sheet.Copy After:=ThisWorkbook.Sheets(1) 행에서 Worksheet 클래스의 메서드 복사에 실패했습니다. Excel 2010을 사용하고 있습니다. 도와주시겠습니까? 고마워, - 수지수지[/quote] 같은 문제가 있었는데 "PERSONAL"을 보고 숨김 해제하면 작동하지만 마스터가 숨겨진 상태에서 이 매크로에 액세스하는 데 문제가 있는 것 같습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"PERSONAL"을 보고 숨김 해제로 이동하십시오. 마스터가 숨겨져 있는 동안 전체 코드를 실행하는 데 문제가 있는 것 같습니다. 매크로를 해당 통합 문서의 기본 매크로로 만들 수 있지만 사용하고 싶을 때마다 전체를 다시 만들어야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕! 이 파일을 많이 주셔서 감사합니다.............. :roll: 안부 인사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
헤이 좋은 팁. 했다 거의 내가 원했던 모든 것. 결합 워크북에서 워크시트 이름에 원본 워크북의 이름을 포함하는 것이 좋으므로 데이터가 어느 워크북에서 왔는지 알 수 있습니다. 내가 결합하는 데이터는 다른 아카이브에서 가져온 것입니다. 항목을 검색해야 하는데 어느 아카이브에 있는지 모릅니다. 따라서 모든 데이터를 하나의 파일에 결합하면 모든 아카이브를 한 번에 검색할 수 있습니다. 하지만 항목이 있는 아카이브를 알아야 합니다. Henrik
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드가 파일 이름을 통합하려면 이렇게 하십시오. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel Combine\" Filename = Dir(Path & "*.xlsx") Do While Filename "" Workbooks.Open Filename:= 경로 및 파일 이름, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Close Filename = Dir() Loop End Sub 참고 : 첫 번째 시트만 복사하는 것으로 모든 시트를 트위크할 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
더 많은 시트를 통합하는 방법과 모든 시트를 붙여넣기 위해 다른 마스터 파일을 지정하는 방법은 무엇입니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
참으로 훌륭한 솔루션입니다. 감사합니다. 그러나 한 가지 문제는 이 엑셀을 실행하면 닫기 전에 변경 사항을 저장할 것인지 묻고(이름이 변경되었기 때문에) 모든 파일(실행당 약 32개)에 대해 저장하고 싶지 않다는 것입니다. 이를 해결할 방법이 없을까요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
최고입니다 :lol: 많은 도움이 되었습니다....
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고마워 친구, 이 매우 유용한 웹 사이트에서 하루를 보냈습니다... 사실 저도 다른 시트의 동일한 헤더 데이터를 하나의 마스터 워크시트로 결합하고 싶었습니다. KUTOOL for Excel은 많은 도움이 되었습니다.... 다시 한 번 감사합니다. .... :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
소중한 정보 감사합니다. 이것은 정말 효과가 있습니다. 이 문서에 나열된 단계를 통해 작업이 훨씬 쉬워졌습니다. 고마워, Dinesh
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
지식을 공유해 주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
원본 통합 문서에서 변경 사항을 업데이트하려면 어떻게 합니까? 각 지역이 자체 통합 문서에 데이터를 입력한 다음 이로부터 업데이트되는 국가 요약을 갖는 국가 요약을 얻으려고 합니다. 나는 이것을 처음부터 XNUMX년 내내 설정하고 소급하여 작동하지 않기를 원합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하나의 통합 문서에서 워크시트를 결합한 후 어떻게 저장합니까? 저장하지 못했습니다. 이름이 Book1이고 저장 또는 다른 이름으로 저장을 클릭했지만 작동하지 않습니다. 제안 사항이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"VBA를 사용하여 여러 통합 문서를 하나의 통합 문서에 결합"의 단계를 수행하고 "실행"을 클릭했지만 아무 일도 일어나지 않았습니다. 오류를 인지하지 못하고 수정하는 방법을 모릅니다. 도와 줄래? 다음은 새 통합 문서에 입력한 코드입니다. 고맙습니다 하위 GetSheets() 경로 = "p:\download\macro\" 파일 이름 = Dir(경로 & "*.xls") 파일 이름 "" Workbooks.Open 파일 이름:=경로 및 파일 이름, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) 다음 시트 통합 문서(파일 이름).Close 파일 이름 = Dir() Loop End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 각하/부인: "VBA를 사용하여 여러 통합 문서를 하나의 통합 문서로 결합" 단계를 따라 다음 모듈을 설정했지만 아무 일도 일어나지 않았습니다. 문제를 찾는 데 도움을 주시겠습니까? 감사합니다 Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) 다음 Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub의 시트
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
최신 버전의 Excel의 경우 이것을 시도하십시오. 열려 있는 통합 문서를 카탈로그로 저장했으며 모든 파일은 c:\temp에 있습니다. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True for each sheet in ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) 다음 Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
최신 버전의 Excel에서 이것을 시도하십시오. 통합 문서를 카탈로그로 저장했으며 모든 파일은 c:\temp에 있습니다. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True for each sheet in ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) 다음 Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] 최신 버전의 Excel에서 사용해 보세요. 통합 문서를 카탈로그로 저장했으며 모든 파일은 c:\temp에 있습니다. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True for each sheet in ActiveWorkbook. Sheets Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1) 다음 Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub데이브[/인용] 경로와 관련하여 "읽기 전용 속성에 할당할 수 없습니다"라는 메시지가 계속 표시됩니다... 어떤 아이디어라도 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저도 문제가 있습니다. 당신은 그것을 알아 냈습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아직 아무것도... 해결 방법을 찾지 못했거나 수정 제안을 받은 사람이 없습니다. 죄송합니다...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
저도요. 이것은 6 개월 전에 작동했으며 마지막으로 실행해야했습니다. 아직 해결책을 찾은 사람이 있습니까? 이전에 실행했는데 지금은 작동하지 않는다면 Microsoft의 업데이트와 관련이 있을 수 있습니까? 이것은 내 작업에 정말 편리한 도구이며 많은 시간을 절약해 줍니다. Excel에서 갑자기 이 메시지를 표시하기 시작하도록 하는 변경 사항은 무엇입니까? VBA를 처음 접하기 때문에 어디서부터 논리 분석을 시작해야 할지 잘 모르겠습니다. 잘 부탁드립니다, 그렉. 글래스고, 스코틀랜드.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"경로"가 이제 예약된 것 같으므로 다른 이름을 사용하고 "경로"를 교체하십시오(예: "Mypath").
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
ReadOnly:=True를 ReadOnly:=False로 변경해야 할 수도 있습니다. 완료했으며 도움이 되었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는이 라인을 따라 무언가를 찾고 있었지만 의견을 말하고 싶었습니다. Do While 파일 이름 ""은 ""가 아닌 다른 이름이어야 하지 않습니까? 아니면 내가 잘못 읽고 있습니까? 아마도 파일 이름이 아닌 동안 = "" 그냥 생각하십시오 ...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
모든 시트를 제목이 공통적인 하나의 시트로 결합하고 싶습니다... pls help
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 위의 매크로를 사용하여 몇 개의 파일을 대조하려고 시도했지만 불행히도 결과가 없었습니다... 수동으로 파일을 대조하는 데 도움을 줄 수 있는 사람이 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
복사 및 붙여넣기 없이 한 장에 넣고 싶은 112개의 엑셀 시트가 있습니다. 도와주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 약 250 Sheet를 포함하는 통합 문서를 가지고 있습니다. 한 장에 코베인이 필요합니다. 해결책을 주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것을 시도하십시오 ... 다른 사이트에서 이것을 얻었지만 불행히도 그 여성의 이름을 기억할 수 없으므로 그녀에게 언급하지 않은 것에 대해 사과드립니다. 내 나쁜 "Excel에서 여러 WB를 결합하십시오. MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst As Workbook Dim wsSrc As Worksheet Dim MyPath As String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\MyPath\etc\etc..." Set wbDst = Workbooks.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) If Len(strFilename) = 0 다음 Sub Do 종료 strFilename = "" Set wbSrc = Workbooks.Open(Filename:= MyPath & "\" & strFilename) Set wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() 루프 wbDst.Worksheets(1). Application.DisplayAlerts 삭제 = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 모듈에 코드를 추가했습니다. Excel 책의 이름을 Masterfile로 지정했습니다. 코드의 어디에 추가합니까? 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 중 어느 것도 나를 위해 일하지 않았고 마침내 이것을 작동하게 했습니다. 참고로 저는 2010 '설명: 폴더의 모든 파일을 마스터 파일로 결합합니다. Sub MergeFiles() Dim 경로를 문자열로, ThisWB를 문자열로, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Filename As String, Wkb As Workbook Dim CopyRng As Range, Dest As Range Dim RowofCopySheet As Integer RowofCopySheet = 2 ' ThisWB = ActiveWorkbook.Name path = "mypath....." ' 이 Application.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook을 변경하는 것을 잊지 마십시오. .Sheets(1) 파일 이름 = Dir(경로 & "\*.xls", vbNormal) If Len(Filename) = 0 then Exit Sub Do until Filename = vbNullString If Not Filename = ThisWB then Set Wkb = Workbooks.Open(파일 이름: =경로 & "\" & 파일이름) Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() 루프 범위 e("A1").Select Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "완료!" 엔드 서브
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
가져온 데이터가 항상 맨 위 행에서 시작하도록 편집하려면 어떻게 해야 합니까? 이 코드를 두 번 실행하면 이전 데이터(매크로의 첫 번째 실행부터) 끝에 데이터가 추가됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 줄을 변경하십시오. RowofCopySheet = 2에서 RowofCopySheet = 1로
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 비밀번호 보호 기능이 있는 여러 Excel 파일(단일 시트) 폴더가 있습니다. 하루가 끝나면 모든 데이터를 하나의 마스터 파일로 결합하고 싶습니다. 매번 암호를 입력하고 파일을 열고 복사하여 마스터 파일에 붙여넣어야 할 때마다 VBA 코드를 도와주세요.
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호