Проблемы с экспортом таблицы из Access

[d0_0b]

Доброго времени суток всем.
Понадобилось экспортировать табличку из Access
Макрос, записанный рекордером работает,данные из таблицы переноссятся на лист Excel, вопросов нет:
...
Workbooks.Add
Worksheets(2).Activate

With ActiveSheet.QueryTables.Add(Connect ion:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=D:\ТермохроныИзмерения\tit1\FinnPow er_Programs.mdb;DefaultDir=D:\ТермохроныИзмерения\tit1;DriverId=2" _
), Array("5;FIL=MS Access;MaxBufferSize=2048;PageTimeo ut=5;")), Destination:= _
Range("A1"))
.CommandText = Array( _
"SELECT * FROM `D:\ТермохроныИзмерения\tit1\FinnPow er_Programs`.`Programs`")
.Name = "FinnPower_Programs Programs"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"D:\ТермохроныИзмерения\tit1\FinnPow er_Programs Programs.odc"
.Refresh BackgroundQuery:=False
End With
...
однако баз много, и они лежат в разных местах, поэтому хотелось бы вместо строк использовать строковые переменные.
Попробовал, данные из таблицы на лист Excel не переносятся.
Помогите, пожалуйста разобраться

[pashulka]

Если Вы опубликовали именно то, что выдал макрорекордер, то использовать переменные можно следующим образом :

X = "D:\ТермохроныИзмерения\tit1\FinnPower_Programs.mdb"
Y = "D:\ТермохроныИзмерения\tit1"
Z = "D:\ТермохроныИзмерения\tit1\FinnPower_Programs"
 
With Workbooks.Add(xlWBATWorksheet).Worksheets(1)
     With .QueryTables.Add(Connection:= _
          Array(Array("ODBC;DSN=MS Access Database;DBQ=" & _
          X & ";DefaultDir=" & Y & ";DriverId=2"), _
          Array("5;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
          Destination:=.Range("A1"))
     
          .CommandText = Array("SELECT * FROM `" & Z & "`.`Programs`")
          '...
          '...
          '...
     End With
     '.Parent.Close saveChanges:=True, Filename:="C:\Import_Acc.xls"
     'имя файла может отличаться от представленного и может быть переменным
End With

[d0_0b]

Большое спасибо, в принципе работает ,если предварительно в папке "Мои источники данных" создать файл источника данных (*.odc)
А можно ли это тоже забить в код?
Пытался сделать это самостоятельно, не получилось...
Еще раз спасибо

[pashulka]

Как только появится возможность, постараюсь покопаться в Вашем "новом" задании.