|
|
|
|
|
|
엑세스 버전 : 2010
고객테이블에 입력되어 있는 고객레코드수가 2만개 정도 입니다.
고객데이블을 VBA로 엑셀로 내보내려고 하는데
데이타가 많아서 안된다는 메세지가 나옵니다.
엑세스에서 2만개도 처리가 안되나요?
(내보낼 레코드수를 적게 하고 작동시키면 잘 작동됩니다.)
해결책이 있을까요?
아래는 [고객데이타내보내기] 버튼 소스입니다.
Private Sub 고객데이타내보내기_Click()
On Error GoTo Err_고객데이타내보내기_Click
Dim StrPathC As String
'프로그램 실행위치 알아내기
StrPathC = Application.CurrentProject.Path
DoCmd.OutputTo acOutputQuery, "고객데이타내보내기용도쿼리", acFormatXLS, StrPathC & "\xlsGdata\" & Format(Now(), "yyyy-mm-dd-hh-nn") & "분_고객데이타.xls", False
MsgBox "고객데이타 엑셀로 내보내기 성공!" & vbCrLf & vbCr & "저장된 파일위치는 " & StrPathC & "\xlsGdata\" & Format(Now(), "yyyy-mm-dd-hh-nn") & "분_고객데이타.xls 입니다. ", vbInformation, " 안내"
Exit_고객데이타내보내기_Click:
Exit Sub
Err_고객데이타내보내기_Click:
MsgBox Err.Description
Resume Exit_고객데이타내보내기_Click
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2018-07-16(19:09)
최종수정일 : 2018-07-16(19:11) |
|
|
|