1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Visual Basic - доработать макрос.

Тема в разделе "Программирование", создана пользователем Pashtet, 24.12.15.

  1. Pashtet

    Pashtet Активный участник

    20.287
    94
    Народ, кто знаком с Visual Basic, в плане написания макросов для Exel - помогите! :)
    Суть - есть екселевский файлик + макрос в нем. Функция макроса, по запуску, формирует фаил с разделителями на основе данных из таблицы. Затем запрашивает, куда сохранить.
    Нужно, что бы после того, как сохранил фаил, автоматом, в той же папке создавал пустой фаил с заранее заданным именем (фаил флаг).
    Чет, вчера пошарил по инету, но так и не нашел команды создания файла без диалогового окна.
    Сам фаил лежит тут
    http://fs.atol.ru/_layouts/15/atol....=5604d961-4c72-4c35-888e-bb700e3f0561&webUrl=

    Текст макроса.
     
  2. gerodoth

    gerodoth Активный участник

    8.184
    42
    очевидно после Close #1
    из строки FileName нужно получить папку
    fso.GetParentFolderName(FileName)
    из него получить желаемое имя флага, что-то типа
    FlagName = fso.GetParentFolderName(FileName) & "Flag.Ext"
    а потом записать файл на диск
    Dim fso, f1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.CreateTextFile(FlagName, True)

    но я на вбс писать не умею