드로우홀릭 더베이직

엑셀 내보내기 관련

2015.04.29 10:42:37 조회 수 4482 추천 수 0

안녕하세요, 선생님


이전에 액세스 DB에 있는 데이터를 버튼 클릭 시 내보내기 방법을 알려주셨는데요,

버튼 클릭하고, 엑셀파일이 자동으로 열리고 사용자가 저장하고 싶은데요,

어떻게 하면 좋을까요?

액세스 환경은 액세스 2010버젼이고, ADP로 만들고 있습니다.

확인 부탁드립니다.



profile

윈드님

2015.04.30 09:33:47
*.152.104.143

버튼 클릭하고 엑셀파일이 자동으로 열리고 사용자가 저장한다는 말이 어떤 의미인지 잘 모르겠습니다.

조금 더 자세하게 알려주세요.

버튼클릭 시

 - DB에 있는 데이터 엑셀로 저장

 - 저장 완료 후 엑셀파일 열리기

인가요?

성난파도

2015.04.30 10:30:47
*.241.30.161

네, 선샌님 말씀 하신 대로의 입니다.

 - DB에 있는 데이터 엑셀로 저장

 - 저장 완료 후 엑셀파일 열리기


혹시 더 궁금한게, table이름으로 불러오는 게 아닌 query이름으로 불러오는 방법도 있는지요?

profile

윈드님

2015.04.30 10:55:50
*.152.104.143

엑셀 저장 후 엑셀파일 열기

    Dim objExcel As Object
    Dim objWorkbook As Object


 '데이터를 엑셀로 추출
    DoCmd.TransferSpreadsheet acExport, , [_TableName_], [_FilePath_], True 


 '엑셀 열기
    Set objExcel = CreateObject("Excel.Application")

 If objExcel Is Nothing Then
        '오류처리
    End If
 
 '엑셀 파일 열기
    Set objWorkbook = objExcel.Workbooks.Open([_FilePath_]) 
    If objWorkbook Is Nothing Then
  '오류처리
    End If 
 
 '엑셀 파일 표시
 objExcel.Visible = True

profile

윈드님

2015.04.30 10:57:05
*.152.104.143

쿼리 불러오는 방법은 저번에 설명드렸던 'OutputTo' 쓰시면 됩니다만, 1만줄 제한이 걸려있기때문에 임시테이블에 데이터를 INSERT 시킨 후 그 임시테이블의 데이터를 엑셀로 추출하는것을 추천드립니다.

profile

윈드님

2015.04.30 10:58:31
*.152.104.143

엑셀 여는 방법은 위 방법대로 하면 됩니다만, 저방식은 objExcel.Visible = True 를 하기 전까지는 화면에 보이지 않습니다.

중간에 오류가 나도 화면에는 보이지 않지만 프로세스는 떠 있는 상태입니다.

오류 처리 로직에 objExcel.Visible = True를 해줘서 오류난 채 떠있는 엑셀파일을 사용자가 닫게 하는 방법이 좋겠지요?

List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 FAQ: 어떤 과정을 수강하는 것이 좋을까요? 외 돌직구 2017-08-29 31949
공지 좋은 답변을 이끌어 내는 방법 [1] 돌직구 2017-07-14 28097
공지 액세스 Q/A 게시판 형식을 변경합니다. 돌직구 2014-09-10 23149
380 번호 자동 입력하기 부분관련 질문입니다. file 2 혼돈속으로 2016-02-14 4806
379 로그인후 담당자가 작성한 데이터만 보고싶어요 1 주라기 2017-03-01 4763
378 액세스 질문 드립니다. 1 쿠웨이트azrp 2018-01-18 4752
377 기본키.. 일련번호 관련 질문있습니다.. clicheshim 2015-08-12 4743
376 액세스 추가 쿼리 질문 드립니다. file 2 왓썹초이 2016-04-01 4672
375 담당자 테이블에서 로그인ID의 사용권한 여부 확인 4 청선 2014-09-11 4669
374 SQL에 대한 궁금즘 2 겨루기 2021-02-03 4600
373 오류 나오는데 왜 그런건지... file 1 박형근 2023-01-19 4592
372 안녕하세요 일련번호질문입니다. 1 김병욱 2017-06-28 4575
371 검색어를 입력하여 리스트박스에 검색결과 얻기 1 순둥동이 2016-03-31 4550
370 잘 모르겠어요 벽파2 2013-12-16 4548
369 [쿼리]GROUP BY로 계산한 값을 조건에 따라 처리하는법 file 1 satler 2016-10-12 4519
368 엑세스 너무어렵네요 ㅠㅠ 1 엑세스고수되고파 2015-06-19 4509
» 엑셀 내보내기 관련 5 성난파도 2015-04-29 4482
366 실무 액세스 2 "참조"부분 file 3 키스톤 2020-12-22 4475
365 보고서 엑셀로 내보내기 오류 질문 file 5 허수아비 2019-02-10 4461
364 관계 설정 1 kwon 2016-02-02 4461
363 액세스 2010 무작정 따라하기 예제 1 성이 2019-01-04 4445
362 엑셀자료를 액세스로 업로드 하는 방법 file 1 바다거북이 2019-03-24 4434
361 쿼리 조건 식 1 수달 2018-09-14 4405


  주소  12925 경기도 하남시 미사대로 540, B동 917호 (현대지식산업센터 한강미사2차) ㈜팀데이터이십일  |  고객센터 전화번호  02-467-2998  |  대표이사  염기웅
개인정보관리책임자  염기웅 (ml_privacy@td21.com)  |  사업자등록번호  120-86-79260  |  통신판매업신고번호  제 2021-경기하남-1166 호  [사업자 정보 확인]
  TD21의 사전 서면 동의 없이 TD21 사이트 일체의 정보, 콘텐츠 및 UI 등을 상업적 목적으로 전시, 전송, 스크래핑 등 무단 사용할 수 없습니다.