VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의

VBA
작성자
pjc****
작성일
2022-08-12 16:35
조회
186

해석 요청 문의드립니다

Sub AutoUpdateExcel()
Dim sName As String
sName = ActiveWorkbook.Name

Dim sPath As String
sPath = ActiveWorkbook.Path

Dim sDate As String
sDate = Format(Now(), "yyddmm_hhmmss")

Dim FileName As String
Dim FileObject As Object
Dim FileSheet As Worksheet

Dim endRow As Long
endRow = ActiveWorkbook.ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Dim i As Integer
Dim j As Integer

For i = 2 To endRow
FileName = ActiveWorkbook.ActiveSheet.Cells(i, 1).Value
Set FileObject = GetObject(sPath & "\" & FileName)
Set FileSheet = FileObject.ActiveSheet
For j = 1 To 11
Sheets(1).Cells(i, j + 1).Value = FileSheet.Cells(10, j).Value
Next j

Next i

End Sub

스크랩
공유
회원등급 : 3레벨
포인트 : 79 EP
총질문 : 4 개 (마감율 : 75%)
채택답변 : 0 개
전체 2

  • 2022-08-12 17:42
    채택된 답변

    @pjc**** 님 날짜, 구분 까지 불러오도록 추가하였습니다.

    VBA 코드는 별 의미가 없어서 설명할게 없습니다.

    SDATE와 SNAME 변수는 필요 없습니다. 다른데서 쓰던거 붙여넣은거라 남아있는거고 지워도 됩니다.

    SPATH에 취합 파일 경로를 집어넣고,

    A열에 있는 파일이름을 FILENAME 변수에 넣고 그 파일을 열어서 10행에 추가한 값을 불러옵니다.

    각 장비 파일에서 10행값은 LAST ROW 셀에 있는 배열 수식을 통해 C열의 마지막 값이 있는 행번호를 참조해서 작성합니다.

    C열 전체를 참조해서 마지막 값이 있는 행을 찾는 방식이기 때문에 줄 맞춘다고 C열에 배치하면 안됩니다. (순환 참조)

    그 다음은 그냥 열 번호 넣어서 값을 읽습니다.

    거기에 사용한 INDIRECT와 MAX, ROW 함수에 대해서는 검색해보세요

     

    + 같은 양식이라도

    정확하게 읽을(취합할) 셀 값이 모든 파일에서 같은 주소에 위치하고 그 셀은 이동하지 않아야 취합하기 쉽습니다.

    배열수식을 사용하지 못한다면, 날짜역순으로 정렬해서 맨 윗값이 항상 최신 날짜가 되도록 하면 되고

    VBA를 사용하지 못한다면, 외부 데이터 연결로 가져올 수 있습니다

    방법은 생각하기 나름입니다.

    첨부파일 : TEST.zip


    • 2022-08-12 17:55

      @춘식 님 춘식님 정말 감사드립니다~^^

      복받으실 거에용~~^^

      다신한번 감사드리며

      저도 열심히 공부해서  춘식님처럼 오빠두 회원님들께

      도움을 줄수있게 노력하겠습니다.


전체 7,895
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (14)
오빠두엑셀 | 2022.09.28 | 추천 7 | 조회 570
오빠두엑셀 2022.09.28 7 570
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 5 | 조회 1792
오빠두엑셀 2022.08.04 5 1792
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (100)
오빠두엑셀 | 2021.10.28 | 추천 128 | 조회 7582
오빠두엑셀 2021.10.28 128 7582
42873 함수/공식
New 특정 행에 특정 텍스트가 몇개 써있는지 구하는 식 엑셀파일 (2) 답변완료
이주 | 15:41 | 추천 0 | 조회 11
이주 15:41 - 11
42872 문서서식
New 조건부 서식 관련 질문 (1)
아홉열 | 15:32 | 추천 0 | 조회 12
아홉열 15:32 - 12
42869 함수/공식
New 텍스트에 비교연산자 사용시 에러처리
쌈타 | 14:46 | 추천 0 | 조회 13
쌈타 14:46 - 13
42863 기능/도구
New 매번 뭐만 쓰거나 하면 몇십초정도 다운 상태가 됩니다ㅜㅜ (2)
jeongd**** | 13:15 | 추천 0 | 조회 24
jeongd**** 13:15 - 24
42860 VBA
New 입력 범위 코딩했는데 적용이 잘 안되어요 엑셀파일첨부파일
은이랑 | 12:36 | 추천 0 | 조회 17
은이랑 12:36 - 17
42858 함수/공식
New 1~10개의 데이터 중 몇번째 까지 데이터 가져오기가 가능한가요? 첨부파일 (3)
아드키 | 12:33 | 추천 0 | 조회 25
아드키 12:33 - 25
42854 문서서식
New 파일 저장 후 다시 열었을 때 특정 부분 서식이 저절로 바뀌어 있는 문제
보리건빵 | 11:25 | 추천 0 | 조회 16
보리건빵 11:25 - 16
42851 함수/공식
New BOM 관리 (1)
정길이 | 10:38 | 추천 0 | 조회 28
정길이 10:38 - 28
42850 함수/공식
New 성장률(신장률) 해석 및 기본 함수가 이게 맞을까요,,? 첨부파일
NANA77 | 10:19 | 추천 0 | 조회 15
NANA77 10:19 - 15
42849 피벗테이블
New 피벗테이블단축키가안되요. 첨부파일
플립플랩 | 10:09 | 추천 0 | 조회 11
플립플랩 10:09 - 11
42846 파워쿼리/피벗
New 액세스에서 파워쿼리로 데이터 불러올때 자동업데이트 방법 (2)
하모닉스 | 09:50 | 추천 0 | 조회 15
하모닉스 09:50 - 15
42843 함수/공식
New if ifs and 다중 함수좀 알려주세요 첨부파일 (3) 답변완료
동하 | 07:16 | 추천 0 | 조회 26
동하 07:16 - 26
42839 함수/공식
New 상품 가격수준별 분포 구하는 법(+그래프) 엑셀파일 (1)
sue22 | 2022.10.05 | 추천 0 | 조회 27
sue22 2022.10.05 - 27
42838 VBA
New VBA 코딩 중인데.. 어렵네요 엑셀파일첨부파일
실런 | 2022.10.05 | 추천 0 | 조회 38
실런 2022.10.05 - 38
42836 함수/공식
New 엑셀 함수 관련해서 문의 드리고자 합니다. 엑셀파일 (2) 답변완료
dfgkdflglkdf | 2022.10.05 | 추천 0 | 조회 37
dfgkdflglkdf 2022.10.05 - 37
42835 문서서식
New 부등호 ≥ 가 엑셀에 들어가면 줄이 엉망으로 변합니다.. (1)
석준필 | 2022.10.05 | 추천 0 | 조회 26
석준필 2022.10.05 - 26
42834 문서서식
New 엑셀에서 '배경 제거'말고 '배경 채우기'기능도 있나요? (2)
월마리아 | 2022.10.05 | 추천 0 | 조회 24
월마리아 2022.10.05 - 24
42833
New 엑셀VBA 재무제표 크롤링 질문드립니다.
영푸라기 | 2022.10.05 | 추천 0 | 조회 20
영푸라기 2022.10.05 - 20
42832 함수/공식
New 2차원 TABLE 검색 엑셀파일 (5)
대빵 | 2022.10.05 | 추천 0 | 조회 31
대빵 2022.10.05 - 31
42828 함수/공식
New index, match, maxif관련 서식 엑셀파일첨부파일 (2) 답변완료
| 2022.10.05 | 추천 0 | 조회 37
2022.10.05 - 37
42820 VBA
New 외국어공부를 위한 원문사이에 해석을 열에 끼워넣기 (1)
ㅈㄱㄹ | 2022.10.05 | 추천 0 | 조회 37
ㅈㄱㄹ 2022.10.05 - 37
42819 구글시트
New 숨긴 셀 제외 스프레드시트 적용 엑셀파일첨부파일
거꾸로문 | 2022.10.05 | 추천 0 | 조회 32
거꾸로문 2022.10.05 - 32
42816 함수/공식
New 함수 사용 시 특정 셀 텍스트 추출 하는 경우 첨부파일 (6) 답변완료
구찌갱 | 2022.10.05 | 추천 0 | 조회 43
구찌갱 2022.10.05 - 43
42813 구글시트
New SMALL 함수 관련 숨긴 셀 값 제외 엑셀파일첨부파일 (10) 답변완료
거꾸로문 | 2022.10.05 | 추천 0 | 조회 34
거꾸로문 2022.10.05 - 34
42809 함수/공식
New Bar code128 수식을 인식못하네요 엑셀파일첨부파일 (4) 답변완료
어린왕자77 | 2022.10.05 | 추천 0 | 조회 38
어린왕자77 2022.10.05 - 38
42808 VBA
New 특정시트를 참고하여 여러개 시트에 해당값 입력하기 vba 엑셀파일첨부파일
007 | 2022.10.05 | 추천 0 | 조회 39
007 2022.10.05 - 39
42802 VBA
New 안녕하세요. vba 관련 내림차순 자동 채우기 질문드립니다.
Jes | 2022.10.05 | 추천 0 | 조회 27
Jes 2022.10.05 - 27
42800 문서서식
New 셀서식에서 특수기호 넣는방법- 영문자판. (2) 답변완료
kyle2030 | 2022.10.05 | 추천 0 | 조회 32
kyle2030 2022.10.05 - 32
42784 VBA
New 오빠두영상 중 체크박스 만들기 질문드립니다. 첨부파일 (2)
월마리아 | 2022.10.04 | 추천 0 | 조회 38
월마리아 2022.10.04 - 38
42782 함수/공식
New 엑셀사용중 오류때문에 미칠것같습니다... (2)
뉴파 | 2022.10.04 | 추천 0 | 조회 53
뉴파 2022.10.04 - 53