Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Функции, используемые для работы с файлами папками
Коль скоро мы заговорили о рабочих книгах – файлах Excel, рассмотрим наиболее часто используемые функции для работы с файлами и папками.
Следующую функцию - функцию Dir рассмотрим подробнее. В зависимости от указанных атрибутов эта функция возвращает файл или папку и обычно используется для проверки их существования. Синтаксис: Dir [ ( pathname [, attributes ] ) ] pathname – определяет полное имя файла или папки attributes – параметры, которые могут принимать следующие значения:
Примеры: 1. Следующий код проверяет наличие файла и выдает соответствующее сообщение: Dim Файл As String Файл = Dir("C:\St\Случайные числа.xls") If Файл <> ”” Then _ MsgBox “Файл Случайные числа.xls существует!” _ Else MsgBox “Файл Случайные числа.xls не найден!” Замечание: В этом примере функция Dir возвращает значение, равное "Случайные числа.xls", если файл существует, и пусто, в противном случае. 2. Следующий код выводит в таблицу список файлов из папки C:\ St: Path = "C:\St" 'определяет папку Файл = Dir(Path) 'возвращает имя первого файла i = 1 While Файл <> “” Cells(i,1).Value = Файл Файл = Dir Wend ОБРАТИТЕ ВНИМАНИЕ: повторное использование функции Dir без аргументов возвращает имя следующего файла из папки, адрес которой был задан до этого (Dir(Path)). 3. Если первую строку предыдущего кода записать в виде:
Path = "C:\St\*.xls" то получим список Excel-файлов. 4. Следующий код проверяет наличие папки и выдает соответствующее сообщение: Path = "C:\St" Папка = Dir(Path, vbDirectory) ‘возвращает имя папки (“St”, _ если она существует, и пусто – в противном случае) If Папка <> ”” Then MsgBox “Папка существует!” _ Else MsgBox “Папка не существует!” Функция MsgBox В наших примерах мы не раз использовали для вывода сообщений функцию MsgBox. Рассмотрим её подробнее. Функция MsgBox выводит на экран диалоговое окно с сообщением и кнопками, а затем возвращает значение типа Integer, указывающее, какую кнопку нажал пользователь. Синтаксис MsgBox (prompt [, buttons ] [, title ] [, helpfile, context ]) Синтаксис функции MsgBox содержит следующие именованные аргументы:
Допустимые значения аргумента buttons:
Первая группа значений (0–5) указывает число и тип кнопок, отображаемых в окне диалога.
Вторая группа (16, 32, 48, 64) задает тип используемого значка. Третья (0, 256, 512) определяет кнопку, которая является основной, а четвертая (0, 4096) модальность окна сообщения. При определении значения аргумента buttons следует суммировать не более одного значения из каждой группы.
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2021-12-15; просмотров: 34; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.144.98.13 (0.006 с.) |