Здравствуйте. Есть некий файл обработчик, куда уже сейчас грузится xml таблица с другого файла, производит расчёт и выдает некий резальтат в виде рейтинга от 1 до 5.
Задача - необходимо дополнить макрос таким образом, чтобы необходимо было указать папку с файлами(их количество и названия разные, вплоть до отсутствия расширения файла) и он их поочередно всех перелопатил. Как вариант можно без указания папки, чтобы файл был в самой этой папке и обрабатывал все файлы в этой же папке, не принципиально.
Что сейчас работает:
Задача - необходимо дополнить макрос таким образом, чтобы необходимо было указать папку с файлами(их количество и названия разные, вплоть до отсутствия расширения файла) и он их поочередно всех перелопатил. Как вариант можно без указания папки, чтобы файл был в самой этой папке и обрабатывал все файлы в этой же папке, не принципиально.
Что сейчас работает:
| Код |
|---|
Sub ImportF()
Dim strTargetFile As String
Dim wb As Workbook
Dim rng1 As Range
Set rng1 = ThisWorkbook.Worksheets("F").Range("N1:S1")
Application.ScreenUpdating = False
Sheets("F").Visible = True
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
strTargetFile = Application.GetOpenFilename("Все файлы (*.xml*), *.*", , "*** Ввод файла ***")
Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
Application.DisplayAlerts = True
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("F").Range("A1")
wb.Close False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
|
