I tried replacing this line:
withVB Code:
(Connection:= _ "FINDER;C:\test\Query from MS Access Database.dqy" _ , Destination:=Range("A1"))
VB Code:
(Connection:= _ "FINDER;C:\test\Query from MS Access Database.dqy" _ , Destination:=ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row)
That did not work. And I would guess it has to do with my lack of programming knowledge as to why it did not work. Do I need some other function to use this?




Reply With Quote