Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: в EXCEL ...

Тема: в EXCEL из Access

15.06.2007 21:04:54

Игорь11

1 сообщения

Тема: в EXCEL из Access

Импортирую данные из базы ACCESS в EXCEL
на лите создал кнопку и привяза такой код

Sub Кнопка3_Щелкнуть()
Dim string_Path As String
Dim string_sql As String
string_Path = Worksheets("Планы").Range("G1").Value
string_sql = "select * from DictAgent"

Workbooks.OpenDatabase Filename:=string_Path + "RGSDATA.MDB", _
CommandText:=string_sql, _
CommandType:=xlCmdSql

End Sub
все работает кроме одной малости :(
создаваемая выборка уходит в новую книгу,
а хочется на тот-же лист где и кнопка запуска

P.S. Связанные таблицы Excel
Автор: Игорь от 29.12.2003 15:50:37 Источник ...

15.06.2007 21:04:54

All

4316 сообщения

RE: в EXCEL из Access

Непонятно, почему работает код в Excel, т.к. для объекта Workbooks нет функции OpenDatabase (возможно это другая версия базы). С другой стороны, если требуется на текущую страницу вставить запрос из Access, используя кнопку, то это можно сделать с помощью мастеров (они и подскажут какой лист выбрать). Примерный порядок действий.
1. Открываете меню: "Сервис-Макрос-Начать запись"
2. Далее используете меню "Данные - Внешние данные - Создать запрос". Выполняете нужные действия по запросу и сохраняете макрос.
3. Создаете кнопку и привязываете к ней макрос предварительно отредактировав его. Пример такого макроса, который вставляет таблицу курсов валют на текущий лист Excel, указан ниже.
Sub Макрос5()
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=База данных MS Access;DBQ=E:\data\ServerData.mdb;DefaultDir=E:\data;DriverId=" _
), Array("25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:= _
ActiveCell)
.CommandText = Array( _
"SELECT `ВАЛЮТА описание`.Валюта, `ВАЛЮТА описание`.Код" & Chr(13) & "" & Chr(10) & "FROM `ВАЛЮТА описание` `ВАЛЮТА описание`" _
)
.Name = "Запрос из База данных MS Access"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

P.S. Связанные таблицы Excel
Автор: Виктор от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: в EXCEL ...

Поиск

Список форумов

Начало | Forums