Считывание и проверка названий файлов в директории

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Считывание и проверка названий файлов в директории (Макросы/Sub)

andruha912009

Дата: Четверг, 19.01.2017, 17:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 25

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Всем добрый день!
Коллеги, подскажите или сориентируйте где искать варианты решения следующей задачи:

1. Есть папка с файлами xlsm, наименования которых установлены по определенному шаблону, их названия отличаются только частью FileA,FileB, FileC и т.д
2. Есть отдельный проверочный файл с подерржкой работы макросов, который содержит таблицу с названиями соответствующих частей файлов директории с 1 пункта:

FileName Check
FileA 1
FileB 1
FileC 1
FileD 1
FileE 0
FileF 0
FileG 0
FileH 0
FileI 0
FileJ 0

и нужно при открытии данного файла напротив тех наименований, которые содержаться в присутствующих файлов в директории из 1 пункта проставлять 1, иначе - 0

Во вложении вся необходимая информация.
Заранее благодарен за советы!

К сообщению приложен файл: Source.7z (5.6 Kb)

Ответить

SLAVICK

Дата: Четверг, 19.01.2017, 22:46 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата andruha912009, 19.01.2017 в 17:21, в сообщении № 1 ()

, их названия отличаются только частью FileA,FileB, FileC

Если так тогда вот:
[vba]

Код

Sub d()
    PathName = "d:\temp\"
    With Sheets(1)
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            .Cells(i, 2) = Len(Dir(PathName & "1_" & .Cells(i, 1) & "_Test.xlsm")) > 0
        Next
    End With
End Sub

[/vba]

К сообщению приложен файл: 6782161.xlsm (16.4 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Считывание и проверка названий файлов в директории (Макросы/Sub)

Страница 1 из 1
1