Я использую и использую этот код для (части) для некоторых преобразований / фильтрации из определенных файлов в определенные файлы, а также для некоторой фильтрации по листам и т. Д. У меня все работает хорошо, но коллеги изЯ хочу также использовать этот код на своих ПК * s, и при запуске возникает проблема, он должен быть отредактирован в коде (путь, местоположение), чтобы кто-то другой мог его использовать - и я не хочу, чтобы кто-то извне имелдоступ к коду легко (хорошо, они не очень квалифицированы, но все же), так что это может испортить его и заставить его испортить то, что возможно.
Вопрос, есть ли строка кода, которая выдает как всплывающее сообщение, просто спрашивающееопределить, откуда вы хотите взять определенные файлы, куда?чтобы не заходить в код и не менять его оттуда?Я надеюсь, что я достаточно ясно ...
Dim FileSystem As Object
Dim HostFolder As String
' *** Folder with systems to define (path) ***
HostFolder = "Q:\Objekt\Kundenerklärung\OSRAM\Converter"
' *** If folder is empty/full message ***``
Dim fs, strFolderPath, oFolder
Set fs = CreateObject("Scripting.FileSystemObject")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
strFolderPath = "Q:\Objekt\Kundenerklärung\OSRAM\Converter\" ' *** This is
your folder to define ***
Set oFolder = fs.GetFolder(strFolderPath)
If (oFolder.SubFolders.Count = 0) Then
' * Folder is Empty *
MsgBox "Folder is empty!"
Else
' * Folder isn't empty *
MsgBox "Folder not empty. Subfolders count: " & oFolder.SubFolders.Count
End If
Set fs = Nothing
Set FileSystem = CreateObject("Scripting.FileSystemObject")
DoFolder FileSystem.GetFolder(HostFolder)
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic