Yuk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Sub GetName()     Dim fPath As String     Dim fName As String     Dim sName As String     Dim cRange As String     Dim aSheet As Worksheet     Dim tSheet As Worksheet           fPath = "C:\temp" 'no last \     fName = "file.xls"     sName = "Sheet1"     cRange = "A1" 'one cell only, no check           Set aSheet = ActiveSheet     Set tSheet = ActiveWorkbook.Worksheets.Add 'temporary sheet           tSheet.Range(cRange).Formula = _         "='" & fPath & "\[" & fName & "]" & _         sName & "'!" & cRange     aSheet.Name = CStr(tSheet.Range(cRange).Value)           Application.DisplayAlerts = False     tSheet.Delete     Application.DisplayAlerts = True     aSheet.Activate End Sub Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 17:57 17-08-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA

ShIvADeSt (23-04-2007 01:59): http://forum.ru-board.com/topic.cgi?forum=33&topic=8273

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование