Sharepoint에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 발생하는데, 해결방법에 대해 도움 부탁 드립니다

VBA
작성자
Jas
작성일
2022-07-01 14:20
조회
89
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : Sharepoint에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 발생합니다.
그러나, 동일한 Code를 이용하여 C 드라이브에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 없이 잘 됩니다.

안녕하세요.

첨부 Code처럼 ADODB를 이용하여 데이터파일에 접근하여 데이터를 추출하고자 합니다.

테스트를 해 본 결과,
데이터파일이 로컬 드라이브 (예, C 드라이브)에 있으면 Code는 문제없이 잘 작동됩니다.
그러나, 데이터파일을 Sharepoint로 옮긴 상태에서 Code를 수정하여 실행시키면 데이터파일을 찾지 못하고 에러가 발생합니다.
많은 인터넷을 뒤졌으나, 해결이 안되네요. 고수님들께서 방법을 알려주시면 매우 감사하겠습니다.

참고로, C:에 Synchronizing된 Sharepoint 파일을 이용하여 데이터파일로 부터 자료를 추출할 수 있다고 들었지만,
본 데이터파일은 여러 사용자가 수시로 수정/입력하기 때문에 저는 Sharepoint에 있는 파일을 직접 접근하려고 합니다.
물론 저는 Sharepoint에 있는 파일에 대하여 접근/수정 권한이 있습니다.
그리고 Sharepoint 접근에 관한 문제이기 때문에 파일을 첨부하지 못한 점 죄송합니다.

많은 도움 부탁 드립니다.
감사합니다.

Private Sub TEST()
 
    Dim rs As New ADODB.Recordset
    Dim strFile As String
    Dim strSQL As String, strConn As String
    Dim i As Long, j As Long, lngCntCol As Long, lngCntRow As Long
 
    Rem 데이터 파일을 Sharepoint에 저장한 상태에서 추출하려면 에러 생깁니다. 이것이 문제입니다.
    strFile = "https://xxxx.sharepoint.com/sites/yyyy/Shared Documents/zzzz/Sample.xlsx"         <-- 실행실패
    strFile = "\\xxxx.sharepoint.com\sites\yyyy\Shared%20Documents\zzzz\Sample.xlsx"    <-- 실행실패
 
    Rem 데이터 파일을 Local Disc (예, C:)에 저장한 상태에서 추출하면 잘 됩니다.
    strFile = "C:\Temp\Sample.xlsx"
 
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                  "Data Source=" & strFile & ";" & _
                  "Extended Properties=Excel 12.0;"
    strSQL = "SELECT * FROM [aaaaa$] "
    rs.Open strSQL, strConn
 
    If rs.EOF Then
        MsgBox "조건에 맞는 데이터가 없습니다."
        rs.Close
        Set rs = Nothing
        Exit Sub
    Else
        lngCntCol = rs.Fields.Count
        For j = 1 To lngCntCol
            Sheet1.Cells(1, j) = rs.Fields(j - 1).Name
        Next j
        Sheet1.Range("a2").CopyFromRecordset rs
    End If
 
    rs.Close
    Set rs = Nothing
 
End Sub

 

회원등급 : 10레벨
포인트 : 753 EP
총질문 : 2 개 (마감율 : 50%)
채택답변 : 8 개
전체 3

  • 2022-07-02 11:49

    @원조백수님, 님께서 알려주신 정보를 모두 살펴보았습니다.

    Sharepoint(Onedrive)의 파일을 활용하기 위해서는 동기화되는 로컬디스크 내의 파일을 찾아서 이용하는 방법이더군요.

    저는 Sharepoint에 있는 파일을 직접 활용하려고 하였으나, 동기화된 로컬디스크내 파일을 이용하는 것은 괜찮은 것 같습니다.

    알려주신 정보를 이용하여 테스트 해 보았는데, 매우 유익하였습니다. 감사합니다.


  • 2022-07-01 16:54
    채택된 답변

    @Jas 님 상황이 어떤지 몰라서,,, 이걸 참고해 보세요.

    https://stackoverflow.com/a/72736924


    • 2022-07-02 06:52

      @원조백수 님 도움 감사 드립니다.

      한번 시도해보고 답글 달도록 하겠습니다.


전체 7,312
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 7 | 조회 894
오빠두엑셀 2022.07.31 7 894
공지사항 함수/공식
New [신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 3 | 조회 64
오빠두엑셀 2022.08.04 3 64
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 116 | 조회 5978
오빠두엑셀 2021.10.28 116 5978
41024 VBA
New 무엇을 공부해야 만들 수 있을까요?? 첨부파일
뚝이 | 18:47 | 추천 0 | 조회 9
뚝이 18:47 - 9
41023 함수/공식
New 엑셀 반입 반출 list를 만들고 싶습니다. 근데 어떻게 해야할지 감이 안옵니다. 엑셀파일첨부파일
| 17:46 | 추천 1 | 조회 11
17:46 1 11
41017 함수/공식
New 카운트 관련 추가질의 드립니다. 엑셀파일 (1)
Thekey_guy | 16:31 | 추천 0 | 조회 21
Thekey_guy 16:31 - 21
41013 VBA
New 특정 셀에서 데이터 찾아내어 다른시트로 복사
itaci | 15:17 | 추천 -2 | 조회 21
itaci 15:17 -2 21
41010 문서서식
New 사용자 서식 지정 된 셀을 보이는 값 그대로 입력값을 바꾸고 싶어요/ 또는 중간 숫자를 셀서식없이 바꾸고 싶어요 첨부파일 (6)
바람개비 | 14:40 | 추천 0 | 조회 22
바람개비 14:40 - 22
41007 VBA
New 체크박스를 이용한 PDF파일 저장 문제관련 엑셀파일
qkznl**** | 14:17 | 추천 0 | 조회 22
qkznl**** 14:17 - 22
41003 함수/공식
New 다른 셀값 복사된 셀에 내용을 추가 입력하는 방법 첨부파일 (3)
마운틴 | 13:34 | 추천 0 | 조회 20
마운틴 13:34 - 20
41002 함수/공식
New 월별 제품 판매 수량과 제품별 사용 부품을 통한 월별 부품 사용 수량 구하기 엑셀파일 (2)
SELIA | 13:04 | 추천 0 | 조회 20
SELIA 13:04 - 20
40995 함수/공식
New 해당 요일이 주말일 경우 평일로 날짜를 출력하는 방법 첨부파일 (2)
juyoun**** | 10:49 | 추천 0 | 조회 34
juyoun**** 10:49 - 34
40994 함수/공식
New 다른 시트의 품목을 불러와 그 값을 비교하는 방법 (6) 답변완료
콕콕이 | 09:30 | 추천 1 | 조회 40
콕콕이 09:30 1 40
40993 함수/공식
New 다른시트 데이터 가져오기 엑셀파일 (1)
포에버하윤둥이 | 09:17 | 추천 0 | 조회 42
포에버하윤둥이 09:17 - 42
40987 VBA
New 선택한 셀 근처에 차트 나타내기 엑셀파일첨부파일 (1)
eexcell | 2022.08.08 | 추천 0 | 조회 26
eexcell 2022.08.08 - 26
40982 VBA
New 입력 수량에 따른 버튼 또는 레이블 생성 첨부파일 (1)
늙은베짱이 | 2022.08.08 | 추천 -2 | 조회 32
늙은베짱이 2022.08.08 -2 32
40974 함수/공식
New 사과를 치면 옆 셀에 과일로, 배추를 치면 옆 셀에 야채로 넣는 방법 첨부파일 (6) 답변완료
곡식창고 | 2022.08.08 | 추천 0 | 조회 52
곡식창고 2022.08.08 - 52
40971 기능/도구
New 이름 정의 범위 선택시 에러 발생 엑셀파일첨부파일 (2)
라운드티 | 2022.08.08 | 추천 0 | 조회 39
라운드티 2022.08.08 - 39
40966 함수/공식
New TEXTJOIN함수에서 대싱 셀값이 0일때 JOIN안되게 하는 방법 (8) 답변완료
마운틴 | 2022.08.08 | 추천 0 | 조회 47
마운틴 2022.08.08 - 47
40963 함수/공식
New 특정문자가 포함된 여러 셀값을 특정문자 별로 정리하고 싶습니다. 엑셀파일 (1)
rin**** | 2022.08.08 | 추천 0 | 조회 37
rin**** 2022.08.08 - 37
40961 기능/도구
New G메일로 받은 내용 중 회신시간이 늦은 메일들을 엑셀로 관리할 수 있는 방법이 있을까요 ? (1)
최사무엘 | 2022.08.08 | 추천 0 | 조회 38
최사무엘 2022.08.08 - 38
40960 기능/도구
New 보안경고 안뜨게 설정하려면 어떻게 옵션을 설정해야 하나요? 첨부파일 (2) 답변완료
니가가라 하와이 | 2022.08.08 | 추천 0 | 조회 22
니가가라 하와이 2022.08.08 - 22
40958 차트/그래프
New 그래프 가로 축 레이블 설정 부분 첨부파일 (1)
성호 | 2022.08.08 | 추천 0 | 조회 30
성호 2022.08.08 - 30
40955 함수/공식
New 선택 셀의 좌측 셀값을 가져오는 수식이 필요합니다. 엑셀파일 (3)
낮은자 | 2022.08.08 | 추천 0 | 조회 49
낮은자 2022.08.08 - 49
40953 함수/공식
New 특정 조건에 맞추어 월 별 주차 계산을 하고 싶습니다 엑셀파일첨부파일 (2)
행주 | 2022.08.07 | 추천 0 | 조회 36
행주 2022.08.07 - 36
40952 문서서식
New 데이터 유효성 검사 - 드롭다운 표시 항상 보이게? 첨부파일 (1)
두리둥 | 2022.08.07 | 추천 0 | 조회 30
두리둥 2022.08.07 - 30
40945 VBA
New 엑셀 파일 엑셀 다른이름 자동 저장이 가능할까요? 노가다 살려주세요 ㅠㅠ (2)
듀링e | 2022.08.07 | 추천 0 | 조회 61
듀링e 2022.08.07 - 61
40937 파워쿼리/피벗
New 시트별로 열이 다른 경우 시트를 통합하는 방법 첨부파일 (1)
곰도리 | 2022.08.07 | 추천 0 | 조회 37
곰도리 2022.08.07 - 37
40936 VBA
New 달력 유저폼 실행위치관련 질문 엑셀파일첨부파일 (7) 답변완료
033cola | 2022.08.07 | 추천 1 | 조회 50
033cola 2022.08.07 1 50
40921 함수/공식
New 값이 있는 경우에만 DATE 함수가 적용되도록 하고 싶습니다. 첨부파일 (2) 답변완료
지용 | 2022.08.06 | 추천 0 | 조회 50
지용 2022.08.06 - 50
40916 문서서식
New 이동옵션에서 상수와 수식 첨부파일 (1)
황혼고래 | 2022.08.06 | 추천 0 | 조회 52
황혼고래 2022.08.06 - 52
40915 문서서식
New 셀 서식 중 "월", 월 차이 (2)
보라색양털 | 2022.08.06 | 추천 1 | 조회 50
보라색양털 2022.08.06 1 50
40912 함수/공식
New IF 조건문이 잘 되지 않습니다. 첨부파일 (5) 답변완료
비트리 | 2022.08.06 | 추천 0 | 조회 53
비트리 2022.08.06 - 53