Как найти файл с определенным именем, если последние символы имени могут меняться

13.01.2014, 17:20. **Показов** 1375. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Добрый день, помогите, пожалуйста, написать код для кнопки.

Задача такая: Есть два файла Excel, необходимо перенести данные или одного файла в другой. Как скопировать сам диапазон я знаю, вопрос в том, чтобы бы определить ресурсный файл, из которого нужно перенести данные.

Этот файл всегда открыт, но имя файла может меняться. Первые два слова названия файла остаются неизменными, например, имя файла может быть "Report Result", "Report Result (1)", "Report Result (2)" и т.д. Т.е., искать файл нужно по первым двум словам, мне кажется. Но как это сделать в VBA, я не знаю.

Подскажите, пожалуйста, кто понимает.

@korvindeson · 13.01.2014, 17:37

Например так. Перебираем все файлы в нужной папке. Если первые 13 символов имени файла Report Result тогда открываем файл, делаем что надо, закрываем.

Visual Basic

    Dim oFolder As IWshRuntimeLibrary.Folder
    Dim oSubFolder As IWshRuntimeLibrary.Folder
    Dim oFile As IWshRuntimeLibrary.File
    Dim oFSO As New IWshRuntimeLibrary.FileSystemObject
 
Set oFolder = oFSO.GetFolder("Путь к папке")
 
For Each oFile In oFolder.Files
     if Left(oFile.Name, 13) like "Report Result" then
          Workbooks.Open (oFolder & "\" & oFile.Name)
          'копируем что надо
          Workbooks(oFile.Name).Close
     End If
Next

А если файл всегда открыт на машине, на которой выполняем макрос, то совсем просто. Перебираем открытые книги. Как в прошлый раз находим Report Result, копируем, выходим из цикла

Visual Basic

For Each Workbook In Excel.Workbooks
     if Left(Workbook.Name, 13) like "Report Result" then
          'копируем что надо
          Exit For
     End If
Next

И если этих Report Results несколько, не пишем Exit For

bena
		1
	Как найти файл с определенным именем, если последние символы имени могут меняться 13.01.2014, 17:20. Показов 1375. Ответов 1 Метки нет (Все метки) Добрый день, помогите, пожалуйста, написать код для кнопки. Задача такая: Есть два файла Excel, необходимо перенести данные или одного файла в другой. Как скопировать сам диапазон я знаю, вопрос в том, чтобы бы определить ресурсный файл, из которого нужно перенести данные. Этот файл всегда открыт, но имя файла может меняться. Первые два слова названия файла остаются неизменными, например, имя файла может быть "Report Result", "Report Result (1)", "Report Result (2)" и т.д. Т.е., искать файл нужно по первым двум словам, мне кажется. Но как это сделать в VBA, я не знаю. Подскажите, пожалуйста, кто понимает.

	13.01.2014, 17:37