ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перечень доступных ссылок
21 сообщений из 21, страница 1 из 1
перечень доступных ссылок
    #32565586
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
Может быть, кто-то подскажет, как программно получить перечень всех доступных ссылок на библиотеки, аналог диалогового окна в Акцесе при выборе ссылок? Заранее спасибо.
...
Рейтинг: 0 / 0
17.06.2004, 15:23:24
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32565655
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
подключенных или именно доступных на машине ?
...
Рейтинг: 0 / 0
17.06.2004, 15:46:52
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32565800
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
Таки именно доступных, а не подключенных.
...
Рейтинг: 0 / 0
17.06.2004, 16:42:45
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32565806
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Лена (mail_second@ua.fm)Таки именно доступных, а не подключенных.

Только API (ИМХО) - и то не уверен :(
...
Рейтинг: 0 / 0
17.06.2004, 16:44:09
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32565891
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
зачем?
...
Рейтинг: 0 / 0
17.06.2004, 17:10:59
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566020
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
ищзачем?
Вот зачем.
Проект используется на нескольких машинах. Системы, типы офиса и набор библиотек соответственно на каждой из них несколько отличается. Особенно это касается библиотеки MS Excel. На одной машине версия 9.0, на другой 8.0, на третьей 10.0. Если библиотека соответствующей версии не найдена, возникает ошибка компиляции проекта, которая прерывает всю культурную работу програмы. Хочелось мне на открытие основной рабочей формы сделать проверку всех ссылок и при необходимости происк аналогичных, но других версий. Может есть путь проще, пока не соображу...
...
Рейтинг: 0 / 0
17.06.2004, 18:00:02
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566026
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Предлагаю так:

1. Подключить заранее все версии.
2. Самые свежие пусть идут выше.
3. При открытии отрубать все ссылки, которые IsBroken.
...
Рейтинг: 0 / 0
17.06.2004, 18:02:08
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566031
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Есть путь проще :)

Определяешь битые ссылки
Если находишь, то пытаешься их переподключить с номером версии 0
Акс сам подхватит, ту что есть :)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function ReConnectDLL() As Boolean
Dim r As Reference
Dim strGUID As String
    For Each r In References
        If r.IsBroken Then
            strGUID = r.Guid
            Call References.Remove(r)
            Set r = References.AddFromGuid(strGUID,  0 ,  0 )
        End If
    Next
    ReConnectDLL = True
End Function
...
Рейтинг: 0 / 0
17.06.2004, 18:04:04
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566059
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
а ты не используй ссылки на эксел

Dim Excel

варианты
set excel = createobject("Excel.Sheet")
set excel = createobject("Excel.Workbook")
set excel = createobject("Excel.application")
...
Рейтинг: 0 / 0
17.06.2004, 18:13:11
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566255
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
АлексейКа ты не используй ссылки на эксел

Dim Excel

варианты
set excel = createobject("Excel.Sheet")
set excel = createobject("Excel.Workbook")
set excel = createobject("Excel.application")

Мне нужно обращаться к разного рода .cells, .columns, .range и т.д. Это создавать все эти объекты через так?
...
Рейтинг: 0 / 0
17.06.2004, 20:38:55
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566257
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Зачем? Так создается основной, от которого пляшут все остальные. А пляшут они как всегда.
...
Рейтинг: 0 / 0
17.06.2004, 20:39:57
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566259
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
Владимир СанычПредлагаю так:

1. Подключить заранее все версии.
2. Самые свежие пусть идут выше.
3. При открытии отрубать все ссылки, которые IsBroken.

Возникает конфликт версий - первое, а потом как же ж я их соберу, конфигурации библиотек на разных машинах очень разные...
...
Рейтинг: 0 / 0
17.06.2004, 20:40:47
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566260
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Не-не. Этот вариант не надо пробовать. Люди предложили лучшие вещи.
...
Рейтинг: 0 / 0
17.06.2004, 20:41:35
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566262
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
[quot paparome]Есть путь проще :)

Определяешь битые ссылки
Если находишь, то пытаешься их переподключить с номером версии 0

Надо будет попробовать... Merci
...
Рейтинг: 0 / 0
17.06.2004, 20:43:37
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566276
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
АлексейКа ты не используй ссылки на эксел

Dim Excel

варианты
set excel = createobject("Excel.Sheet")
set excel = createobject("Excel.Workbook")
set excel = createobject("Excel.application")

Есть проблемы:

БЫЛО ТАК:

dim XL as object, WB as Excel.Workbook, WS as Excel.Worksheet
Set XL = CreateObject("excel.application")
XL.SheetsInNewWorkbook = 1
Set WB = XL.Workbooks.Add
Set WS = WB.Worksheets(1)
WS.Cells(1, 1).Value="111"

СТАЛО ТАК:

dim XL as object, WB as object, WS as object
Set XL = CreateObject("excel.application")
XL.SheetsInNewWorkbook = 1
Set WB = CreateObject("Excel.Workbook")
Set WS = CreateObject("Excel.WorkSheet")
WS.Cells(1, 1).Value="111"

И работать отказывается, жалуясь в Set WB = CreateObject("Excel.Workbook") ошибкой 429 - что невозможно создать объект из ActiveX компонента...
...
Рейтинг: 0 / 0
17.06.2004, 21:16:02
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566287
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Должно быть вот так:

dim XL as object, WB as object, WS as object

а дальше как было. Я это говорил в посте от 20:39.
...
Рейтинг: 0 / 0
17.06.2004, 21:38:18
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566297
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
Владимир СанычДолжно быть вот так:

dim XL as object, WB as object, WS as object

а дальше как было. Я это говорил в посте от 20:39.

Что ты имеешь в виду под как было?
Как было у кого?
...
Рейтинг: 0 / 0
17.06.2004, 21:48:59
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566301
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
У тебя написано:

БЫЛО ТАК:
СТАЛО ТАК:

Вот я и говорю, что первая строка должна быть как в СТАЛО:

dim XL as object, WB as object, WS as object

а дальше как в БЫЛО:

Set XL = CreateObject("excel.application")
XL.SheetsInNewWorkbook = 1
Set WB = XL.Workbooks.Add
Set WS = WB.Worksheets(1)
WS.Cells(1, 1).Value="111"
...
Рейтинг: 0 / 0
17.06.2004, 21:50:56
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566327
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
Просто замечательно... Таки все работает. Один вопрос. Что делать со всем набором экселевских констант типа xlCenter? Переприсваивать разве что под Акцесом...


Всем большое спасибо за советы.
...
Рейтинг: 0 / 0
17.06.2004, 22:43:57
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32566544
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
пока у тебя библиотека подключена кликай правой мыши на xlCenter и выбирай декларэйшен покажется обект - вьювер и покажет тебе константу и ее значение

дальше на выбор либо задай константы

const xlCenter = 1 (это для примера я не знаю значения)

или пиши это значение в коде вместо констант
...
Рейтинг: 0 / 0
18.06.2004, 09:36:36
| Ответить | Цитировать | Написать  
перечень доступных ссылок
    #32568375
Лена (mail_second@ua.fm)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лена (mail_second@ua.fm)
Гость
Не, это я таки поняла, спасибо. Цимис в том, что это все придется сделать... :) А так все замечательно
...
Рейтинг: 0 / 0
19.06.2004, 12:45:42
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перечень доступных ссылок
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1608&tid=1673715]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 70ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 195ms
total:  364ms
созд. / загр.: 364ms
x
x
Закрыть


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