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

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

1. Подключить заранее все версии.
2. Самые свежие пусть идут выше.
3. При открытии отрубать все ссылки, которые IsBroken.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2004, 18:04:04
    #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:13:11
    #32566059
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перечень доступных ссылок
а ты не используй ссылки на эксел

Dim Excel

варианты
set excel = createobject("Excel.Sheet")
set excel = createobject("Excel.Workbook")
set excel = createobject("Excel.application")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2004, 20:38:55
    #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:39:57
    #32566257
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перечень доступных ссылок
Зачем? Так создается основной, от которого пляшут все остальные. А пляшут они как всегда.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2004, 20:40:47
    #32566259
Лена (mail_second@ua.fm)
Лена (mail_second@ua.fm)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перечень доступных ссылок
Владимир СанычПредлагаю так:

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

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

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

Надо будет попробовать... Merci
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2004, 21:16:02
    #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:38:18
    #32566287
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перечень доступных ссылок
Должно быть вот так:

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

а дальше как было. Я это говорил в посте от 20:39.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.06.2004, 21:48:59
    #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:50:56
    #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, 22:43:57
    #32566327
Лена (mail_second@ua.fm)
Лена (mail_second@ua.fm)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перечень доступных ссылок
Просто замечательно... Таки все работает. Один вопрос. Что делать со всем набором экселевских констант типа xlCenter? Переприсваивать разве что под Акцесом...


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

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

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

или пиши это значение в коде вместо констант
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2004, 12:45:42
    #32568375
Лена (mail_second@ua.fm)
Лена (mail_second@ua.fm)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перечень доступных ссылок
Не, это я таки поняла, спасибо. Цимис в том, что это все придется сделать... :) А так все замечательно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / перечень доступных ссылок / 21 сообщений из 21, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 519ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1673715]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 186ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 74ms
get tp. blocked users:
 2ms
others: 210ms
total:  519ms
x
x
Закрыть


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