VBA Access 첨부파일 다운로드

VBA
작성자
조형진
작성일
2021-06-15 13:21
조회
114

안녕하세요. accdb에 파일을 첨부할 수 있더라구요. 업로드까지 완성했는데

첨부된 파일을 다운로드해서 특정 폴더에 저장하려니 모르겠더라구요..

선생님분들께 도와주시면 감사하겠습니다.

등록코드

Sub upload_file()

    Dim db As DAO.database
    Dim ws As DAO.Workspace
    
    Dim rst As DAO.Recordset
    Dim attachFld As DAO.Recordset
    
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase("DB경로", False, False, "MS Access;PWD=")
        
    Set rst = db.OpenRecordset("SELECT * FROM test;", dbOpenDynaset)
    
    rst.AddNew
    
        'rst.Title = "Title from Exel " & Now()
        
        Set attachFld = rst.Fields("Attachements").Value
        
        attachFld.AddNew
        attachFld.Fields("FileData").LoadFromFile "저장파일경로"
        attachFld.Update
        
    rst.Update
    
    
    rst.Close
        
    db.Close
    ws.Close
    
        
    Set rst = Nothing
    Set attachFld = Nothing
    Set db = Nothing
    Set ws = Nothing
    
End Sub
회원등급 : 새싹등급
포인트 : 91 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 1

  • 2021-06-16 02:20

    안녕하세요.

    Access는 사용한지 오래되어 정확한 구문은 기억나지 않지만.. Attachment 필드는 기본적으로 파일 삽입/저장 다이얼로그를 제공하는 것으로 기억합니다.

    아래 영상을 한번 확인해보시겠어요?


전체 3,513
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 문서서식
New [오빠두엑셀 x 라이브 컨설팅] 총 2분을 선정하여 엑셀 솔루션을 제공해드립니다. (~7.30(금))
오빠두엑셀 | 2021.07.27 | 추천 3 | 조회 80
오빠두엑셀 2021.07.27 3 80
3499 함수/공식
New lookup 관련 찾는 범위가 필드이고 반환 열이 첫번째 인데 반환 값이 여러개, 반환 범위가 가로인 경우 첨부파일
means**** | 15:01 | 추천 1 | 조회 8
means**** 15:01 1 8
3498 파워쿼리/피벗
New 파워쿼리 사용중 닫기및 로드 하는데 오버플로 오류가 포함되어 있다고 뜨는데 해결책이 무엇일까요? 첨부파일
이우용님 | 14:15 | 추천 0 | 조회 7
이우용님 14:15 0 7
3497 함수/공식
New 여러필드출력시트에 관한 질문입니다. 첨부파일 (1)
크레이지 | 14:02 | 추천 0 | 조회 8
크레이지 14:02 0 8
3496 함수/공식
New vlookup 위치참조
윤지은 | 13:30 | 추천 0 | 조회 21
윤지은 13:30 0 21
3495 함수/공식
New 검색어(중복값) 입력시 행과 열에 대한 값 불러오기?? 첨부파일 (1)
o0o0**** | 10:50 | 추천 0 | 조회 19
o0o0**** 10:50 0 19
3494 문서서식
New 조건부서식 색필터시 문제 도와주세요 ㅜㅜ 첨부파일
한방인생 | 2021.07.28 | 추천 0 | 조회 27
한방인생 2021.07.28 0 27
3493 파워쿼리/피벗
New 파워쿼리 새로고침 시 변경된 원본 데이터가 있을 경우 따로 확인하거나 표시할 수 있는 방법이 있을까요?
모아 | 2021.07.28 | 추천 0 | 조회 19
모아 2021.07.28 0 19
3492 VBA
New [VBA] 폴더 내 하위 폴더 작업 (2)
몰라요ㅠㅠ | 2021.07.28 | 추천 0 | 조회 30
몰라요ㅠㅠ 2021.07.28 0 30
3491 기능/도구
New 맥용 엑셀에 DuTool 관련 추가기능을 설치할 수 있나요? (2) 답변완료
크레인 | 2021.07.28 | 추천 0 | 조회 23
크레인 2021.07.28 0 23
3490 함수/공식
New 조건있는 제일 많은값을 알고싶어요 (1)
채연 | 2021.07.28 | 추천 0 | 조회 28
채연 2021.07.28 0 28
3489 VBA
New 워크시트명을 변수로 전달해서 선택하는 방법 (3)
ksm**** | 2021.07.28 | 추천 0 | 조회 31
ksm**** 2021.07.28 0 31
3488 함수/공식
New 엑셀 다중 조건 함수식 첨부파일 (1)
naver_5f055a605ee7d | 2021.07.28 | 추천 0 | 조회 44
naver_5f055a605ee7d 2021.07.28 0 44
3487 기능/도구
New 엑셀 복사후 붙여넣기시 참조범위 (3)
정윤태 | 2021.07.28 | 추천 0 | 조회 26
정윤태 2021.07.28 0 26
3486 문서서식
New 조건부서식 문의 (2)
블링블링 | 2021.07.28 | 추천 0 | 조회 31
블링블링 2021.07.28 0 31
3485 함수/공식
New 조건을 맞춰 그룹 묶는 법 좀 알려주실 수 있으신가요? (1)
대륙의대마왕 | 2021.07.28 | 추천 1 | 조회 31
대륙의대마왕 2021.07.28 1 31
3484 VBA
New 최근올리신 영상(엑셀재고관리툴만들기) 관련 질문올립니다.(2번째)ㅠ (1)
| 2021.07.28 | 추천 0 | 조회 33
2021.07.28 0 33
3483 함수/공식
New 스프레드 시트 다중조건 갯수 합계 산출하는 법 (1)
naver_60fe15011326f | 2021.07.28 | 추천 0 | 조회 26
naver_60fe15011326f 2021.07.28 0 26
3482 피벗테이블
New 피벗테이블 행 값 하위 계층 문제 첨부파일 (2)
soul**** | 2021.07.28 | 추천 0 | 조회 25
soul**** 2021.07.28 0 25
3481 VBA
New 네이버 쇼핑 댓글 가져오기(페이지 넘기기) 첨부파일 (2)
아가늑대 | 2021.07.28 | 추천 0 | 조회 37
아가늑대 2021.07.28 0 37
3480 파워쿼리/피벗
New 엑셀 파워쿼리 응용 질문:2가지 조건을 만족하는 데이터 불러오기 첨부파일
비타민왕자 | 2021.07.27 | 추천 0 | 조회 48
비타민왕자 2021.07.27 0 48
3479 VBA
New VBA 및 양식컨트롤, 함수 문의드려요 ㅠ.ㅠ!!!!! (3)
riwhd | 2021.07.27 | 추천 0 | 조회 34
riwhd 2021.07.27 0 34
3478 VBA
New 폴더 안의 폴더 파일 통합 첨부파일 (3) 답변완료
ArkGie | 2021.07.27 | 추천 0 | 조회 37
ArkGie 2021.07.27 0 37
3477 VBA
New 오빠두님 강의, 재고관리 프로그램 관련 문의사항 첨부파일
H.B | 2021.07.27 | 추천 0 | 조회 38
H.B 2021.07.27 0 38
3476 파워쿼리/피벗
New 엑셀 표 형태를 세로형 데이터베이스로 변경하고 싶습니다. (1)
| 2021.07.27 | 추천 0 | 조회 36
2021.07.27 0 36
3475 피벗테이블
New 피벗테이블 서로다른 항목의 내용을 =@물량&"/"&@단위 이런식으로 나타내어 한칸에 넣고싶어요 첨부파일
김종우 | 2021.07.27 | 추천 0 | 조회 39
김종우 2021.07.27 0 39
3474 문서서식
New 인쇄제목(행 반복인쇄) 관련 질문입니다 첨부파일 (7) 답변완료
젬마 | 2021.07.27 | 추천 0 | 조회 45
젬마 2021.07.27 0 45
3473 차트/그래프
New 1년 작업사항을 흐름도로 나타대고싶을 때 (1)
나도나도엑셀 | 2021.07.27 | 추천 1 | 조회 66
나도나도엑셀 2021.07.27 1 66
3472 함수/공식
New 엑셀 질문 첨부파일 (2)
빅박스 | 2021.07.27 | 추천 0 | 조회 50
빅박스 2021.07.27 0 50
3471 VBA
New VBA 사용하여 특정 엑셀시트들을 한 PDF파일로 저장 (1) 답변완료
아이드림코비 | 2021.07.27 | 추천 0 | 조회 50
아이드림코비 2021.07.27 0 50
3470 함수/공식
New 엑셀 함수 질문 (1)
정윤태 | 2021.07.27 | 추천 0 | 조회 53
정윤태 2021.07.27 0 53