|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
24.10.2007, 14:32 | #1 |
Новичок
Джуниор
Регистрация: 24.10.2007
Сообщений: 2
|
Проблемы с экспортом таблицы из Access
Доброго времени суток всем.
Понадобилось экспортировать табличку из 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 не переносятся. Помогите, пожалуйста разобраться |
24.10.2007, 21:23 | #2 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
Если Вы опубликовали именно то, что выдал макрорекордер, то использовать переменные можно следующим образом :
Код:
|
06.11.2007, 20:30 | #3 |
Новичок
Джуниор
Регистрация: 24.10.2007
Сообщений: 2
|
Большое спасибо, в принципе работает ,если предварительно в папке "Мои источники данных" создать файл источника данных (*.odc)
А можно ли это тоже забить в код? Пытался сделать это самостоятельно, не получилось... Еще раз спасибо |
07.11.2007, 21:56 | #4 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
Как только появится возможность, постараюсь покопаться в Вашем "новом" задании.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблемы с отчетом в Access | iid2007 | Microsoft Office Access | 5 | 30.06.2008 14:56 |
Access в Delphi. Как аполнить массив элементами поля таблицы? | VladimirAleks | БД в Delphi | 3 | 12.09.2007 14:28 |
Взять данные из таблицы Access | Inbox | БД в Delphi | 2 | 04.07.2007 13:53 |
В combobox выбирать данные из списка таблицы (Access) | Inbox | БД в Delphi | 1 | 15.06.2007 10:45 |
Как связать таблицы в Access 2003 ? | Nowichok | Microsoft Office Access | 2 | 13.02.2007 16:31 |