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

여러 통합 문서 파일에서 동시에 매크로를 실행하는 방법은 무엇입니까?

이 기사에서는 여러 통합 문서 파일을 열지 않고 동시에 여러 통합 문서에서 매크로를 실행하는 방법에 대해 설명합니다. 다음 방법은 Excel에서이 작업을 해결하는 데 도움이 될 수 있습니다.

VBA 코드를 사용하여 여러 통합 문서에서 동일한 매크로 실행


VBA 코드를 사용하여 여러 통합 문서에서 동일한 매크로 실행

여러 통합 문서를 열지 않고 매크로를 실행하려면 다음 VBA 코드를 적용하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 매크로를 모듈 창문.

VBA 코드 : 여러 통합 문서에서 동시에 동일한 매크로를 실행합니다.

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

주의 사항: 위의 코드에서 자신의 코드를 복사하여 붙여 넣으십시오. 서브 제목과 최종 하위 사이 바닥 글 Workbooks.Open (xFdItem & xFileName) 사용 스크립트. 스크린 샷보기 :

문서 실행 매크로 여러 파일 1

3. 그런 다음 F5 이 코드를 실행하는 키와 검색 창이 표시되면이 매크로를 모두 적용 할 통합 문서가 포함 된 폴더를 선택하십시오. 스크린 샷을 참조하십시오.

문서 실행 매크로 여러 파일 2

4. 그런 다음 OK 버튼을 클릭하면 원하는 매크로가 한 통합 문서에서 다른 통합 문서로 한 번에 실행됩니다.

 


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단

 

코멘트 (43)
4.5에서 평가 된 5 · 1 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 유용한 매크로이며 잘 작동하지만 해당 폴더에서 매크로를 실행할 파일을 선택할 수 있기를 원합니다. 파일은 별도의 폴더에 자동으로 생성되지 않으며 해당 폴더의 각 파일 세트에 대해 다른 매크로를 실행한 다음 초기 폴더로 다시 이동해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
지침을 따랐지만 "Loop wihtout Do" 컴파일 오류가 발생합니다. 내가 무엇을 놓치고 있습니까? 내 매크로 코드는 지정된 행의 글꼴 크기를 변경하기만 하면 매우 간단합니다. 스스로 작동합니다. 여기 내가 가진 것이 있습니다 ... 도와주세요

하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
xFileName <> "" 동안 수행
Workbooks.Open (xFdItem & xFileName) 사용
'여기에 귀하의 코드
행("2:8").선택
Selection.Font 포함
.Name = "Arial"
크기 = 12
. 취소선 = 거짓
.위 첨자 = 거짓
.아래 첨자 = 거짓
.OutlineFont = 거짓
.그림자 = 거짓
.밑줄 = xlUnderlineStyleNone
.색상 = -11518420
.색조 및 음영 = 0
.ThemeFont = xlThemeFontNone

xFileName = 디렉토리
고리
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 야토
코드 끝에서 "다음으로 끝내기" 스크립트를 놓쳤습니다. 올바른 스크립트는 다음과 같아야 합니다.
하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
xFileName <> "" 동안 수행
Workbooks.Open (xFdItem & xFileName) 사용
'여기에 귀하의 코드
행("2:8").선택
Selection.Font 포함
.Name = "Arial"
크기 = 16
. 취소선 = 거짓
.위 첨자 = 거짓
.아래 첨자 = 거짓
.OutlineFont = 거짓
.그림자 = 거짓
.밑줄 = xlUnderlineStyleNone
.색상 = -11518420
.색조 및 음영 = 0
.ThemeFont = xlThemeFontNone


xFileName = 디렉토리
고리
END IF
최종 하위

그것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 유용한 매크로이며 훌륭하게 작동하지만 해당 폴더에서 매크로를 실행할 파일을 선택할 수 있기를 원합니다. 예를 들어 다른 Excel 파일이 있는 폴더에 4개의 파일이 있고 해당 4개의 특정 파일에서만 실행되기를 원합니다. 해당 폴더에서 4개의 파일을 선택하도록 매크로를 어떻게 조정할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 조엘
특정 통합 문서에서 동일한 코드를 트리거하려면 아래 코드를 적용해야 합니다.

하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
Dim xFB를 문자열로
Application.FileDialog(msoFileDialogOpen) 사용
.AllowMultiSelect = 참
.필터.지우기
.Filters."excel", "*.xls*" 추가
.보여 주다
.SelectedItems.Count < 1이면 하위 종료
lngCount = 1에서 .SelectedItems.Count까지
xFileName = .SelectedItems(lngCount)
xFileName <> ""인 경우 다음
Workbooks.Open(파일 이름:=xFileName) 사용
'당신의 코드

END IF
다음 lngCount

최종 하위

그것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다, 정말 도움이 되었습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요!

내 코드를 귀하의 코드에 삽입하려고 하면 매크로를 실행할 때 다음 메시지가 표시됩니다. 런타임 오류 '429': ActiveX에서 개체를 만들 수 없습니다. 어떻게 고칠 수 있는지 조언 부탁드립니다. 고맙습니다!

내 코드 :

설정 RInput = 범위("A2:A21")
ROutput 설정 = Range("D2:D22")

Dim A()를 변형으로
ReDim A(1에서 RInput.Rows.Count, 0으로)
A = RInput.Value2

세트 d = CreateObject("Scripsting.Dictionary")

i = 1의 경우 UBound(A)까지
d.Exists(A(i, 1)) 그렇다면
d(A(i, 1)) = d(A(i, 1)) + 1
다른
d. A(i, 1), 1 추가
END IF
다음
i = 1의 경우 UBound(A)까지
A(i, 1) = d(A(i, 1))
다음

R출력 = A
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 먼저 이 매크로에 대해 감사드립니다. 정확히 제가 찾던 것이었습니다. 그러나 한 가지 문제가 있습니다. 완료되면 각 창을 닫고 저장하는 방법이 있습니다. 많은 양의 파일이 있고 실행이 완료되기 전에 RAM이 부족합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예, 같은 이름으로 파일을 저장하려면 다음 코드를 아래에 추가하세요.

'워크북 저장
ActiveWorkbook.Save
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 케이틀린
아래 코드가 도움이 될 수 있습니다. 특정 코드를 실행할 때마다 파일 저장 프롬프트 상자가 나타나 통합 문서를 저장하라는 메시지를 표시합니다.

하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
Dim xWB를 통합 문서로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
오류에 대한 다음 재개
xFileName <> "" 동안 수행
xWB 설정 = Workbooks.Open(xFdItem & xFileName)
xWB와 함께
'여기에 귀하의 코드

xWB.닫기
xFileName = 디렉토리
고리
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요!

내 코드를 귀하의 코드에 삽입하려고 하면 매크로를 실행할 때 다음 메시지가 표시됩니다. 런타임 오류 '429': ActiveX에서 개체를 만들 수 없습니다. 어떻게 고칠 수 있는지 조언 부탁드립니다. 고맙습니다!

내 코드 :

설정 RInput = 범위("A2:A21")
ROutput 설정 = Range("D2:D22")

Dim A()를 변형으로
ReDim A(1에서 RInput.Rows.Count, 0으로)
A = RInput.Value2

세트 d = CreateObject("Scripsting.Dictionary")

i = 1의 경우 UBound(A)까지
d.Exists(A(i, 1)) 그렇다면
d(A(i, 1)) = d(A(i, 1)) + 1
다른
d. A(i, 1), 1 추가
END IF
다음
i = 1의 경우 UBound(A)까지
A(i, 1) = d(A(i, 1))
다음

R출력 = A
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

나는 이 매크로를 성공적으로 사용하여 30개 팀의 NBA 파일 형식을 각각 고유한 책으로 만들었습니다. 어제 모듈(매크로)을 완료하거나 삭제할 수 없거나 편집(저장)할 수 없다는 오류 메시지를 받았습니다. 내 개인 매크로 통합 문서가 손상되어 Excel을 거의 사용할 수 없게 되었습니다. 파일에서 매크로에 액세스하려고 할 때마다 앱이 충돌합니다. Excel 지원 및 Windows 지원은 문제를 해결할 수 없었습니다. 도울 수 있니?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 스크립트 자체에서 파일 대상을 정의할 수 있는 방법이 있습니까? 특정 폴더를 탐색해야 하는 프로세스 3을 건너뛰고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 코드에 감사드립니다. 한 시트에서 모든 통합 문서를 연 매크로의 결과(각 통합 문서의 결과)를 어떻게 얻을 수 있는지 알려주실 수 있습니까? 각 통합 문서의 이름을 이전 단계의 데이터가 있는 행에 추가하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Hi

1004 런타임 오류가 발생했습니다. Office VBA 확장과 함께 "VBA 코드를 사용하여 여러 통합 문서에서 동시에 매크로 실행"으로 Office VBA 확장인 다음 코드를 실행할 때 구문이 올바르지 않습니다. "모든 명명된 범위 삭제 VBA 코드로" 코드 슬롯 삽입:

하위 LoopThroughFiles()

Dim xFd As FileDialog

Dim xFdItem as Variant

Dim xFileName을 문자열로

xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)

xFd.Show = -1이면

xFdItem = xFd.SelectedItems(1) & Application.PathSeparator

xFileName = Dir(xFdItem & "*.xls*")

xFileName <> "" 동안 수행

Workbooks.Open (xFdItem & xFileName) 사용

' 하위 삭제 이름()

'업데이트 20140314

희미한 xName을 이름으로

Application.ActiveWorkbook.Names의 각 xName에 대해

xName.삭제

다음




xFileName = 디렉토리

고리

END IF

최종 하위

내가 하려는 것은 동일한 폴더에 포함된 XNUMX개의 통합 문서에서 명명된 범위를 삭제하는 매크로를 실행하는 것입니다.

BTW, Extend Office에서 무언가를 사용한 것은 이번이 처음이며 작동하지 않습니다. 이 웹사이트는 저에게 매우 도움이 되었습니다.

제안/의견은 크게 감사하겠습니다.

알디
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, aldc 님,
귀하의 코드는 내 통합 문서에서 잘 작동합니다. 어떤 Excel 버전을 사용하십니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 코드는 너무 좋고 유용합니다. 나는 그것을 많이 사용합니다!

요즘 우리 조직에서는 SharePoint를 사용하여 파일을 저장합니다. 이 코드를 셰어포인트 폴더의 모든 파일에서 작동하게 하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요,이 코드를 주셔서 감사합니다.
하위 폴더도 반복할 수 있는 방법이 있습니까? 하나의 폴더가 있고 폴더 내에 각각 Excel 파일이 포함된 XNUMX개의 폴더가 더 있다고 가정해 보겠습니다.

코드가 모든 하위 폴더를 통해 실행되도록 기본 폴더를 선택하는 방법이 있습니까?

고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, Darko, 하위 폴더가 있는 폴더에서 코드를 실행하려면 다음 코드를 적용하세요. 하위 LoopThroughFiles_Subfolders(문자열로 xStrPath)
희미한 xSFolderName
희미한 xFileName
문자열로 Dim xArrSFPath()
Dim xI를 정수로
xStrPath = ""이면 Sub 종료
xFileName = Dir(xStrPath & "*.xls*")
xFileName <> "" 동안 수행
Workbooks.Open(xStrPath & xFileName) 사용
'여기에 귀하의 코드

xFileName = 디렉토리
고리
xSFolderName = Dir(xStrPath, vbDirectory)
xI = 0
ReDim xArrSFPath(0)
xSFolderName <> "" 동안 수행
xSFolderName <> "." 그리고 xSFolderName <> ".." 그런 다음
If (GetAttr(xStrPath & xSFolderName) And vbDirectory) = vbDirectory 그러면
xI = xI + 1
ReDim 보존 xArrSFPath(xI)
xArrSFPath(xI - 1) = xStrPath & xSFolderName & "\"
END IF
END IF
xSFolderName = 디렉터리
고리
UBound(xArrSFPath) > 0이면
xI = 0의 경우 UBound(xArrSFPath)로
LoopThroughFiles_Subfolders(xArrSFPath(xI))
다음 xI
END IF
최종 하위
하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
LoopThroughFiles_Subfolders(xFdItem)
END IF
End Sub시도해보세요. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위 코드 외에도 내가 원하는 시간순으로 엑셀 파일을 열 수 있나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 매크로 작업에 정말 편리한 매크로에 감사드립니다. 매크로를 통해 원드라이브의 폴더를 새로고침하는 방법이 있는지 궁금합니다. 그렇다면 매크로 스크립트를 사용하여 onedrive의 파일을 새로 고치려면 여기에서 무엇을 할 수 있는지 알려주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 이 스크립트에 대해 대단히 감사합니다. 저는 매우 잘 작동하지만 특별한 요구 사항이 있습니다. 파일 이름 조건과 하위 폴더에서 내 코드를 적용하도록 스크립트를 변경할 수 있는 방법이 있습니까?
설명합니다. 저는 교사이고 학생들의 결과를 저장하고 교사가 상담할 수 있도록 Excel 솔루션을 만들었습니다. 그렇게 하기 위해 학교 서브젯당 파일과 담당 학급용 파일이 모두 수업당 폴더에 있습니다.
그래서 버그나 최적화를 발견하면 모든 하위 폴더에 있는 모든 파일의 변경 사항을 보고해야 합니다.
그러나 모든 파일이 동일하지 않기 때문에(서브젯 조직이 다름) 모든 하위 폴더에 있는 "maths class"라는 이름의 모든 파일에 내 코드 모범을 적용하거나 반대로 내 코드를 모든 파일에 적용하는 방법을 원합니다. "xyz"라는 이름의 모든 파일을 제외한 하위 폴더에 있습니다. 감사합니다!Fabrice
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
주어진 코드가 다음 VBA에서 작동하지 않습니다. helpSub Bundles()

Dim vWS를 워크시트로
희미한 vA, vA2()
Dim vR 길이, vSum 길이, vC 길이
Dim vN As Long, vN2 As Long, vN3 As Long

vWS = ActiveSheet 설정
vWS 사용
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
레딤 프리저브 vA2(1 to vSum, 1 to 4)
vA = .Range("A2:D" & vR)
vN = 1 vR - 1의 경우
vN2 = 1 ~ vA(vN, 4)
vC = vC + 1
vN3의 경우 = 1 ~ 4
vA2(vC, vN3) = vA(vN, vN3)
다음 vN3
다음 vN2
다음 vN

VC = 1
vN = 1의 경우 vSum - 2
vA2(vN, 4) = vC
vA2(vN + 1, 2) = vA2(vN, 2)이면
vC = vC + 1
vA2(vN + 1, 4) = vC
다른
vA2(vN + 1, 4) = 1
VC = 1
END IF
다음 vN
Application.ScreenUpdating = False
Sheets.add
액티브 시트 포함
vWS.Range("A1:D1").복사 .Range("A1:D1")
.Cells(2, 1).크기 조정(vSum, 4) = vA2

Application.ScreenUpdating = True

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 VBA를 한 번에 폴더의 여러 시트로 실행하고 싶습니다. helpSub Bundles()

Dim vWS를 워크시트로
희미한 vA, vA2()
Dim vR 길이, vSum 길이, vC 길이
Dim vN As Long, vN2 As Long, vN3 As Long

vWS = ActiveSheet 설정
vWS 사용
vR = .Cells(Rows.Count, 4).End(xlUp).Row
vSum = Application.Sum(.Range("D2:D" & vR))
레딤 프리저브 vA2(1 to vSum, 1 to 4)
vA = .Range("A2:D" & vR)
vN = 1 vR - 1의 경우
vN2 = 1 ~ vA(vN, 4)
vC = vC + 1
vN3의 경우 = 1 ~ 4
vA2(vC, vN3) = vA(vN, vN3)
다음 vN3
다음 vN2
다음 vN

VC = 1
vN = 1의 경우 vSum - 2
vA2(vN, 4) = vC
vA2(vN + 1, 2) = vA2(vN, 2)이면
vC = vC + 1
vA2(vN + 1, 4) = vC
다른
vA2(vN + 1, 4) = 1
VC = 1
END IF
다음 vN
Application.ScreenUpdating = False
Sheets.add
액티브 시트 포함
vWS.Range("A1:D1").복사 .Range("A1:D1")
.Cells(2, 1).크기 조정(vSum, 4) = vA2

Application.ScreenUpdating = True

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드를 실행하려고 했지만 "With Workbooks.Open(xFdItem & xFileName)" 줄에 "424: Object Required" 오류가 나타납니다. 자세히 살펴보면 해당 폴더에 저장된 Excel 통합 문서가 표시/존재하지 않는 것으로 나타납니다(코드 표시로 창이 열렸을 때 폴더를 열려고 하고 선택하지 않으려면 비어 있음). 어때요?
하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
xFileName <> "" 동안 수행
Workbooks.Open (xFdItem & xFileName) 사용
Sheets.Add 뒤에:=ActiveSheet
Sheets("Sheet2").선택
Sheets("Sheet2").Name = "마스터"
시트("마스터").선택
Sheets("Master").앞으로 이동:=Sheets(1)

xFileName = 디렉토리
고리
END IF
최종 하위


이 문제를 해결하는 데 도움을 주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 가장 명확한 지침이 있는 내가 가장 좋아하는 웹사이트이며(YouTube 비디오보다 더 많음) 계속해서 이 웹사이트를 방문합니다. 이 튜토리얼에 대해 대단히 감사합니다. 당신은 슬픈 대학원생의 생명의 은인입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
xFileName <> "" 동안 수행
Workbooks.Open (xFdItem & xFileName) 사용
' ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Shift 삽입:=xlToRight
ActiveCell.Select

xFileName = 디렉토리
고리
END IF
End Sub, 도와주세요. BTW, 내 Excel 파일 확장자는 (.csv - "쉼표로 구분") 입니다. 그리고 각 행 평균이 약 500개의 행 수인 폴더에 500000개의 Excel 파일이 있습니다. 도와주세요. 각 통합 문서에 열을 삽입하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
질문에 대한 답을 얻은 적이 있습니까? 3700개가 넘는 csv 파일에 대해 동일한 작업을 수행하려고 합니다. 1열(A)만 추가하면 됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 가난한 Carly, 문제를 해결하기 위해 여러 CSV 파일에 대한 코드를 실행하려면 아래 코드와 같이 .xls 파일 확장자를 .csv로 변경하면 됩니다. 하위 LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem as Variant
Dim xFileName을 문자열로
xFd = Application.FileDialog 설정(msoFileDialogFolderPicker)
xFd.Show = -1이면
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.csv*")
xFileName <> "" 동안 수행
Workbooks.Open (xFdItem & xFileName) 사용
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Shift 삽입:=xlToRight
ActiveCell.Select

xFileName = 디렉토리
고리
END IF
End Sub시도해보세요. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 특정 이름을 가진 다른 통합 문서의 시트에서만 매크로를 실행할 수 있습니까? 감사!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 사라
죄송합니다. 제기하신 문제에 대한 좋은 해결책이 없습니다.
감사합니다!
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

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