|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):2016
* 아래줄에 질문을 작성하세요 >>
쿼리를 엑셀로 내보내기를 했습니다.
지정된 파일에 지정된 Sheet에 데이타가 잘 내보내기가 됩니다.
그러나 내보내기를 할때마다 기존 sheet의 자료를 삭제하고 싶은데
계속 덮어쓰는군요.
내보내기 명령을 누르면 내보내지는 sheet 의 자료를 지우고 쓰는 방법이 없는지요.
해당 명령은 아래와 같습니다.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qry_performance_result", "C:\Users\shshi\Downloads\perform.xlsm"
==============[엑스님 글에 대한 답변입니다]==============
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("C:\Users\shshi\Downloads\perform.xlsm") '파일경로
Set xlSheet = xlBook.Worksheets("qry_performance_result") '워크시트 이름
xlSheet.Cells.Clear '모두지우기
'xlSheet.Cells.ClearContents '내용지우기
'xlSheet.Cells.ClearFormats '서식지우기
xlBook.Close True '저장후 닫기
xlApp.Quit '종료
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qry_performance_result", "C:\Users\shshi\Downloads\perform.xlsm"
|
|