Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ссылка на внешний файл / 10 сообщений из 10, страница 1 из 1
10.05.2007, 16:07:46
    #34516795
БурыйТина
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
есть файл который объединяет данные из кучи файлов для простоты я их называю в соответствии с днем месяца т.е. 1,2,3,4 ...
ячейки ссылаются на данные в этих файлах (области данных)
теперь задача как написать эту ссылку что бы в отдельную ячейку поставить номер файла имя на который надо ссылаться и дальше просто дописывать область на которую надо ссылаться
...
Рейтинг: 0 / 0
10.05.2007, 16:16:41
    #34516825
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
посмотри, не подходит: Indirect или ДвСсыл
...
Рейтинг: 0 / 0
10.05.2007, 16:25:59
    #34516858
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
А если просто тупо, то вот так :
...
Рейтинг: 0 / 0
10.05.2007, 16:52:50
    #34516982
БурыйТина
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
не совсем то что нужно может если файл приложенный постмортеть понятней будет, а то так что то не могу видимо объяснить что я хочу
...
Рейтинг: 0 / 0
10.05.2007, 16:57:47
    #34517007
БурыйТина
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
просто беда в том что табличка вся заполняется из внешних файлов
...
Рейтинг: 0 / 0
10.05.2007, 17:07:40
    #34517061
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A2") Then
    Range("B2:G7").Select
    Selection.Replace What:="1.xls", Replacement:=Range("A2").Text & ".xls", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End If
 Range("A2").Select
End Sub
...
Рейтинг: 0 / 0
10.05.2007, 17:15:11
    #34517085
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
БурыйТинане совсем то что нужно может если файл приложенный постмортеть понятней будет, а то так что то не могу видимо объяснить что я хочу

Таблицу заполняй следующими формулами

=ДВССЫЛ("'C:\путь\["&$A$2&".xls]Лист1'!$A$1"), где $A$2 - ссылка на ячейку с номером книги
...
Рейтинг: 0 / 0
11.05.2007, 10:22:28
    #34518173
БурыйТина
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
Deggasad БурыйТинане совсем то что нужно может если файл приложенный постмортеть понятней будет, а то так что то не могу видимо объяснить что я хочу

Таблицу заполняй следующими формулами

=ДВССЫЛ("'C:\путь\["&$A$2&".xls]Лист1'!$A$1"), где $A$2 - ссылка на ячейку с номером книгивот это подошло
спасибо
...
Рейтинг: 0 / 0
11.05.2007, 10:26:16
    #34518188
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
Прикольно... надо запомнить...
...
Рейтинг: 0 / 0
29.05.2007, 16:19:52
    #34558501
БурыйТина
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ссылка на внешний файл
БурыйТина Deggasad БурыйТинане совсем то что нужно может если файл приложенный постмортеть понятней будет, а то так что то не могу видимо объяснить что я хочу

Таблицу заполняй следующими формулами

=ДВССЫЛ("'C:\путь\["&$A$2&".xls]Лист1'!$A$1"), где $A$2 - ссылка на ячейку с номером книгивот это подошло
спасибоА есть нечто подобное, но чтобы работало с закрытым файлом. Т.к. для ДВССЫЛ книга должна быть открыта, но это не удобно, приходиться держать открытыми 30 книг
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ссылка на внешний файл / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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