VBA를 사용하여 Excel에서 새 시트를 추가하는 방법은 무엇입니까?

Question

VBA 코딩을 처음 사용합니다. 다른 데이터로 Excel 시트를 채우고 싶습니다. 요구 사항은 데이터를 동일한 Excel의 별도 시트로 가져 오는 것입니다. 전체 코드의 무결성을 유지하려면 아래에서 같은 유형의 코드를 사용해야합니다.

outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls" 
DoCmd.OutputTo acOutputQuery, "**MoActiveDirectoryData**", acFormatXLS, outfile, False 

뷰/쿼리 MoActiveDirectoryData에서 데이터를 하나의 시트로 가져올 수 있습니다. 다른보기/쿼리의 데이터를 동일한 Excel의 다른 시트로 가져 오려면 어떻게해야합니까?

Answer 1

DoCmd.TransferSpreadsheet를 사용하는 경우 내보낼 테이블이나 쿼리의 이름이 이미 존재하는 시트와 다른 경우 동일한 파일에 시트가 만들어집니다.

outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls" 
''Sheet is called Query1 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Query1", outfile 
''New sheet called Query2 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Query2", outfile