드로우홀릭 더베이직
안녕하세요, 선생님
이전에 액세스 DB에 있는 데이터를 버튼 클릭 시 내보내기 방법을 알려주셨는데요,
버튼 클릭하고, 엑셀파일이 자동으로 열리고 사용자가 저장하고 싶은데요,
어떻게 하면 좋을까요?
액세스 환경은 액세스 2010버젼이고, ADP로 만들고 있습니다.
확인 부탁드립니다.
엑셀 저장 후 엑셀파일 열기
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
버튼 클릭하고 엑셀파일이 자동으로 열리고 사용자가 저장한다는 말이 어떤 의미인지 잘 모르겠습니다.
조금 더 자세하게 알려주세요.
버튼클릭 시
- DB에 있는 데이터 엑셀로 저장
- 저장 완료 후 엑셀파일 열리기
인가요?