Всем привет, есть макрос, который перебирает файлы и удаляет первые 3 строки, а также удаляет второй лист.
Возникла проблема с добавлением функции с заменой символов, в данной ситуации нужно все "," поменять на "."
Сам скрипт:
Возникла проблема с добавлением функции с заменой символов, в данной ситуации нужно все "," поменять на "."
Сам скрипт:
Код |
---|
Sub del30() Dim objFS, objExcel, objWB, strPath, strExt, strList strPath = "D:\vyborka\r1\r3\r2" Set objFS = CreateObject("Scripting.FileSystemObject") If objFS.FolderExists(strPath) Then Set objExcel = CreateObject("Excel.Application") For Each objItem In objFS.GetFolder(strPath).Files strExt = Left(LCase(objFS.GetExtensionName(objItem)), 3) If strExt = "xls" Or strExt = "xlsx" Or strExt = "xlsm" Then objExcel.Visible = False objExcel.DisplayAlerts = False Set objWB = objExcel.Workbooks.Open(objItem.Path) With objWB .Worksheets(1).Rows("1:3").Delete .Sheets("Условия запроса").Delete .Save .Close End With strList = strList & objItem.Name & vbNewLine End If Next objExcel.Quit: Set objExcel = Nothing If Len(strList) > 0 Then WScript.Echo "Обработанные файлы:" & vbNewLine & strList Else WScript.Echo "Ни одного подходящего файла не найдено." End If Else WScript.Echo "Не найден путь " & UCase(strPath) End If Set objFS = Nothing WScript.Quit 0 End Sub |
Находил скрипты, которые работают отдельно, но добавить их в этот существующий - не получалось никак.
Буду благодарен за помощь