How can I link two tables in two Excel-files, in MS Query and result view in
PivotTable?
----------------------------------------------------------------------
I can link two tables in one Excel-file.
ActiveSheet.PivotTableWizard SourceType:=xlExternal, SourceData:=Array( _
"SELECT `TKG_DATA$`.YEAR, `TKG_DATA$`.MONTH, `TKG_DATA$`.DAY,
`TKG_DATA$`.TIME, `TKG_DATA$`.`INC/OUT`, `TKG_DATA$`.`C59/170`,
`TKG_DATA$`.`C46/158`, `TKG_DATA$`.`C356/137`, `TKG_DATA$`.`C355/358`, `TKG" _
, _
"_DATA$`.`C354/357`, `TKG_DATA$`.`C32/142`, `TKG_DATA$`.`C30/116`,
`TKG_DATA$`.`C29/112`, `TKG_DATA$`.`C28/109`, `TKG_DATA$`.C162,
`TKG_CONF$`.Q_CH, `TKG_CONF$`.DIRECTION, `TKG_DATA$`.`JOB IDENTITY`, `" _
, _
"TKG_DATA$`.TKG" & Chr(13) & "" & Chr(10) & "FROM
`Z:\ENGINEER\statistika\2005\" & Book & "\DATA`.`TKG_CONF$` `TKG_CONF$`,
`Z:\ENGINEER\statistika\2005\" & Book & "\DATA`.`TKG_DATA$` `TKG_DATA$`" &
Chr(13) & "" & Chr(10) & "WHERE `TKG_DATA$`.TKG = `TKG_CONF$`.TKGID AND
((`TKG_DATA$`.MONTH=" & MMonth & "))" _
), Connection:=Array(Array( _
"ODBC;DSN=ÔÃ*éëû Excel;DBQ=Z:\ENGINEER\statistika\2005\" & Book &
"\DATA.xls;DefaultDir=Z:\ENGINEER\statistika\2005\ " & Book &
";DriverId=790;MaxBuffe" _
), Array("rSize=2048;PageTimeout=5;"))