Здравствуйте!
Я использую макрос, который берет папку с файлами и каждый в ней как-то обрабатывает.
Скрытый текст |
---|
Код |
---|
Option Explicit
Dim objFSO As Object, objFolder As Object, objFile As Object
Sub Обработать_папку_с_КС2()
Dim sFolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
GetSubFolders sFolder
Set objFolder = Nothing
Set objFSO = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub GetSubFolders(sPath)
Dim sPathSeparator As String, sObjName As String
Dim wb As Workbook
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
Set objFolder = objFSO.GetFolder(sPath)
For Each objFile In objFolder.Files
If Replace(objFile.Name, objFSO.GetBaseName(objFile), "") Like ".xls*" Then
'открываем книгу
Set wb = Application.Workbooks.Open(sPath & objFile.Name)
'действия с файлом
'Запишем на первый лист книги в ячейку А1
wb.Sheets(1).Range("A1").Value = "Тест"
wb.Close True
End If
Next
For Each objFolder In objFolder.SubFolders
GetSubFolders objFolder.Path & Application.PathSeparator
Next
End Sub
|
|
Перед закрытием с сохранением каждого файла вылетает это самое сообщение:
Цитата |
---|
Будьте внимательны! в документе могут быть персональные данные, которые невозможно удалить с помощью инспектора документов. |
Из предложенных здесь скриптов подавления сообщения у меня ничего не заработало. Подскажите, пожалуйста, что и куда надо дописать для этого.