На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение
Популярные разделы FAQ:    user posted image Общие вопросы    user posted image Особенности VBA-кода    user posted image Оптимизация VBA-кода    user posted image Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.
Модераторы: Old Bat, MIF
  
> как получить имя текущего открытого файла?
    Уважаемые форумчане, знаю в ВБА функция CurDir возвращает строковый параметр, определяющий текущую директорию файла. А есть ли функция возвращающая просто имя текущего открытого документа? (например, документа с расширением xls)
      ActiveWorkbook.Name
      ActiveDocument.Name
      ...
        2 Old Bat
        Спасибо!

        добавлено
        появилась следующая проблемка -
        допустим требуется проверить - существует ли файл с именем NAME в директории DIRECTORY (NAME и DIRECTORY - переменные)
        грубо говоря - как проверить существует ли в папке c:\ файл с именем test.xml ?
        спасибо
          ExpandedWrap disabled
            Myfle = Dir(DIRECTORY & "\" & NAME & ".xml" ) ' Проверяем наличие файла
            If Myfle = "" Then
            'код если нет
            End If
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0172 ]   [ 16 queries used ]   [ Generated: 25.06.25, 20:46 GMT ]