파워쿼리 파워피벗으로

파워쿼리/피벗
작성자
이호일
작성일
2022-08-19 22:28
조회
136
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : 100만개 넘는 파워쿼리를 가공후 파워피벗으로

안녕하세요 강사님

100만개 넘는 csv를 파워피벗에서 하나로 합친 뒤 파워피벗으로 다른 데이터와 관계형 데이터를 만든뒤

피벗테이블로 구현하려고 하는데요,

파워쿼리에서 가공이 끝난 뒤 엑셀로 닫기 및 로드가 안되네요...

이전까진 엑셀 시트로 닫기 및 로드 한 뒤 파워피벗 '데이터모델에 추가'로 파워피벗을 사용했는데요,

이번엔 아예 엑셀 시트로 로드가 안되니,,, 파워 피벗에 어떻게 추가해야할지 모르겠습니다.

파워 피벗내에 홈-기존연결도 사용해보려 했는데,

'열려고 시도 중인 연결은 쿼리로 만들어졌습니다. 이 연결을 변경하려면 쿼리를 변경하세요.' 라고 나옵니다..

해결법 문의드립니다 ! 항상 감사해요.

 

파일은 용량이 커서 첨부가 안되네요ㅜ

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

  • 2022-08-19 22:34

  • 2022-08-20 13:18

    @이호일 님 사용하는 Reocord가 Excel 한계인 1,048,576 이상이라면, CSV파일 자체를 ADODB로 연결하여 Query로 필요한 내용을 간추려 로딩하는 것이 어떤가요,,,

    아래는 전국의 주택공시가격 자료에서 특정 자료만 추출할 때 사용했던 샘플입니다.

    Public Sub get_PNV_Has_501()
        '// CSV파일을 ADODB로 연결할 때 주의 사항   ///////////////
        '// Database는 Folder명이고, file은 Table임 ///////////////
        Dim Conn As Object: Set Conn = CreateObject("ADODB.Connection")
        Dim RecSet As Object: Set RecSet = CreateObject("ADODB.Recordset")
        Dim vData As Variant, sQuery As String
        Dim DirPath As String, fileName As String, vName As Variant
        Dim x As Long, fld As Variant
    
        Application.ScreenUpdating = False
        
        '// 자료 CSV파일 선택
        With Application.FileDialog(msoFileDialogFilePicker)
           .Filters.Clear
           .Filters.Add "CSV Files", "*.csv", 1
           .Title = "Choose a Pubic Notice of Values File to use"
           .AllowMultiSelect = False
           .InitialFileName = DirPath
            If .Show = -1 Then                  'OK 선택
                fileName = .SelectedItems(1)
            Else
                Debug.Print "Canceled selecting file"
                Exit Sub
            End If
        End With
        vName = Split(fileName, "\")
        fileName = vName(UBound(vName))
        vName(UBound(vName)) = vbNullString
        DirPath = Join(vName, "\")
        Debug.Print Format(Now(), "hh:mm:ss")
        
        '// Data 연결
        With Conn
           .Provider = "Microsoft.ACE.OLEDB.16.0"
           .ConnectionString = "Data Source=" & DirPath & ";Extended Properties='text;HDR=YES;FMT=Delimited'"
        End With
        
        '// Query문 설정
        sQuery = sQuery & " SELECT * "
        sQuery = sQuery & " FROM " & fileName
        sQuery = sQuery & " WHERE 호명 = '501' "
        
        '// Query실행
        Conn.Open: RecSet.Open sQuery, Conn
        
        '// 첫번째 행에 필드명 입력
        For Each fld In RecSet.Fields
             x = x + 1
             Cells(1, x) = fld.Name
        Next
        
        '// Query 결과를 A2부터 입력
        If Not RecSet.BOF And Not RecSet.EOF Then
            If RecSet.RecordCount > 1048575 Then
                Debug.Print RecSet.RecordCount
                MsgBox "Exceed Excel Rows Limit!!"
                Exit Sub
            End If
            ActiveSheet.Range("A2").CopyFromRecordset RecSet
        End If
    
        '// 마무리
        Conn.Close: Set RecSet = Nothing: Set Conn = Nothing
        Application.ScreenUpdating = True
        Debug.Print Format(Now(), "hh:mm:ss")
        MsgBox "Success !!"
        
    End Sub

     


전체 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