Microsoft Access의 여러 테이블을 Excel 통합 문서의 단일 워크 시트에 전송

Question

방법을 찾지 않고 마지막 몇 시간 동안 그물을 닦아 보냈습니다.

기본적으로 한 개의 워크 시트에서 Excel 통합 문서로 전송하려는 액세스 테이블에는 3 개의 작은 테이블이 있습니다.

나는 다음과 같은 코딩을 사용하여 별도의 워크 시트 위에이 테이블을 삽입 할 현재는 수 있어요 : 나는 D1에서 시작, "데이터"워크 시트에 1을 2 개 이상의 테이블을 전송하려는

DoCmd.TransferSpreadsheet transfertype:=acExport, _ 
spreadsheettype:=acSpreadsheetTypeExcel12, _ 
TableName:=DTable, FileName:=strWorksheetPathTable, _ 
hasfieldnames:=True, _ 
Range:="Data" 

을 (표는있다 단일 열) 및 다른 하나는 G1이다.

푸시로 누구나 나를 도와 줄 수 있다면 그게 다정 할 것입니다.

건배, 덴마크 I

Answer 1

1. microsoft.activex 데이터는

는 다음과 같은 스프레드 시트를 만들고, 참고로 마이크로 소프트 오피스 개체 라이브러리를 추가하려면 참조 2.8 개체를 추가

dim xl as object: set xl = createobject("Excel.Application") 
XL.Visible = False 
XL.DisplayAlerts = False 
dim wb as object: set wb = xl.Workbooks.Add 
dim ws as object: set ws = wb.Worksheets(1) 

dim rst as new adodb.recordset 
dim r as long, c as long 'row and column 
r = 1 
c = 1 

rst.open "SELECT * FROM Table1", currentproject.connection, adOpenKeyset, adLockReadOnly 

if not rst.eof then 
    ws.range(WS.Cells(r, c).Address).CopyFromRecordSet rst 
end if 

rst.close 
rst.open "SELECT Count(*) FROM Table1", currentproject.connection etc 

r = r + rst.fields(1) + 2 

rst.Close 

rst.open "SELECT * FROM Table2", etc 

and so on. 

wb.SaveAs FileName:=xlname 
xl.Quit 

set ws = nothing 
set wb = nothing 
set xl = nothing 

이렇게하면 eac 사이에 한 줄 또는 두 줄과 함께 원하는 것을 얻을 수 있습니다. h 표. 또한 원하는 경우 스프레드 시트의 형식을 지정하는 코드를 프로세스에 추가 할 수도 있습니다.

rst.open "SELECT * FROM Table1", currentproject.connection, adOpenKeyset, adLockReadOnly 
dim ii as long 
for ii = 0 to rst.fields.count - 1 
    ws.cells(r, ii + 1) = rst.fields(ii) 'you can offset using c if you want 
next 
if not rst.eof then 
    ws.range(WS.Cells(r, c).Address).CopyFromRecordSet rst 
end if