运行宏时在 Excel VBA 中指定路径

Question

我拥有并使用此代码（部分）进行从某些文件到某些文件的一些转换/过滤，以及对工作表的一些过滤等等......一切对我来说都很好，但是来自工作也想在他们的 PC * 上使用此代码，并且在开始时出现问题，必须在代码（路径，位置）中对其进行编辑，以便其他人可以使用它 - 我不希望外面的任何人都有轻松访问代码（好吧，他们不熟练，但仍然如此），因此可能会搞砸并使其成为可能。

问题，是否有任何代码行提供类似弹出消息的简单要求定义您想将某些文件从哪里带到哪里？避免进入代码并从那里更改？我希望我足够清楚......

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

Answer 1

是的，您可以要求这样的输入值：

strFolderPath = InputBox("What folder would you like to use?")

一个对用户更友好的解决方案是使用file dialog box，尽管它涉及更多。