powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ссылка на внешний файл
10 сообщений из 10, страница 1 из 1
Ссылка на внешний файл
    #34516795
Фотография БурыйТина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть файл который объединяет данные из кучи файлов для простоты я их называю в соответствии с днем месяца т.е. 1,2,3,4 ...
ячейки ссылаются на данные в этих файлах (области данных)
теперь задача как написать эту ссылку что бы в отдельную ячейку поставить номер файла имя на который надо ссылаться и дальше просто дописывать область на которую надо ссылаться
...
Рейтинг: 0 / 0
Ссылка на внешний файл
    #34516825
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотри, не подходит: Indirect или ДвСсыл
...
Рейтинг: 0 / 0
Ссылка на внешний файл
    #34516858
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А если просто тупо, то вот так :
...
Рейтинг: 0 / 0
Ссылка на внешний файл
    #34516982
Фотография БурыйТина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не совсем то что нужно может если файл приложенный постмортеть понятней будет, а то так что то не могу видимо объяснить что я хочу
...
Рейтинг: 0 / 0
Ссылка на внешний файл
    #34517007
Фотография БурыйТина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
просто беда в том что табличка вся заполняется из внешних файлов
...
Рейтинг: 0 / 0
Ссылка на внешний файл
    #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
Ссылка на внешний файл
    #34517085
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
БурыйТинане совсем то что нужно может если файл приложенный постмортеть понятней будет, а то так что то не могу видимо объяснить что я хочу

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

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

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

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

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

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


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