Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна помощь в VB / 6 сообщений из 6, страница 1 из 1
28.03.2013, 11:54
    #38201946
Kyle21
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в VB
Подключение к БД Access из макроса Excel
' FullPathMDB - полный путь к БД с именем файла ("C:\Temp\mydb.mdb")
Set DatConct = CreateObject("ADODB.Connection")
DatConct.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FullPathMDB

' RptSheet - название листа Excel

Как в переменную FullPathMDB подставить значение ячейки "B1" из листа RptSheet?
...
Рейтинг: 0 / 0
28.03.2013, 11:59
    #38201959
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в VB
Kyle21,

Код: vbnet
1.
ThisWorkbook.Sheets("RptSheet").Range("B1").Value
...
Рейтинг: 0 / 0
28.03.2013, 12:01
    #38201963
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в VB
Код: vbnet
1.
FullPathMDB=WorkSheets("RptSheet").Range("B1").Value



ЗЫ:
Kyle21' RptSheet - название листа Excel
это название листа или переменная, в которой хранится название листа? во втором случае так:
Код: vbnet
1.
FullPathMDB=WorkSheets(RptSheet).Range("B1").Value
...
Рейтинг: 0 / 0
28.03.2013, 12:16
    #38202004
Kyle21
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в VB
RptSheet название
...
Рейтинг: 0 / 0
28.03.2013, 12:19
    #38202012
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в VB
Kyle21RptSheet названиесравни:Kyle21FullPathMDB - полный путь к БД
RptSheet - название листа Excelвишь как, фразы одинаковые, а суть вкладываешь разную ))
...
Рейтинг: 0 / 0
28.03.2013, 12:28
    #38202031
Kyle21
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в VB
понял, спасибо!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна помощь в VB / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]