在用户选择的路径中创建一个文件夹并像我想要的那样命名该文件夹

Question

我没有使用 VBA 的经验，但我试图让用户选择一个文件夹的路径，如果该文件夹不存在则需要创建，然后提取将放入文本文件中的三列 Excel在创建的文件夹中。

在你们的帮助下，我的代码现在可以运行了！！

我应该做什么样的改变？如果你知道一种方法来简化我的代码，那就太好了！

Sub register_formated_data()
'
' register_formated_data Macro
'
Dim order As Object
Dim Folder As Object
Dim Folder_path As String
Dim lastrow As Long

FolderName = "Formated Files"
Filename = "formated" & Right(File_path, InStr(File_path, "\"))

Dim FL As String ' FL is for file location

Sheets(8).Cells(12, 12).Value = ""

With Application.FileDialog(msoFileDialogFolderPicker)   '
    .Title = "Select the folder"                       'Open the file explorer
    .InitialFileName = ThisWorkbook.path & "\"         'for you to select
    .InitialView = msoFileDialogViewDetails            'the file you want
    .AllowMultiSelect = True                           'to format
    .Show                                              '

    On Error GoTo PROC_EXIT
    If Not .SelectedItems(1) = vbNullString Then FL = .SelectedItems(1)

End With

Sheets(8).Cells(12, 12).Value = FL

Folder_path = FL + "\" + FolderName

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(Folder_path & FolderName) Then
fso.CreateFolder(Folder_path).Name = FolderName

End If

PROC_EXIT： 结束子

Answer 1

fso.Name 不是 FSO 的方法或属性。您只需要CreateFolder，但请确保路径以所需的文件夹名称结尾。所以它应该是：

fso.CreateFolder FFolder_Path

还在这里指出您说的是Folder_path 而不是ffolder_path。我会将您的文件夹路径命名为更有意义的名称，以避免将来出现此错误。特别是考虑到它以 2 个重复字符开头。

---

刚刚再次查看您的代码，不知道为什么您有一个从 1 到 1 的 For 循环，除非您希望它在那里以便将来可能循环（尽管如果它循环，它只会不断覆盖 @ 987654329@ 直到集合中的最后一项）：

For lngCount = 1 To 1
            'MsgBox .SelectedItems(lngCount)
            On Error GoTo PROC_EXIT
            If .SelectedItems(lngCount) <> "" Then          'if the file exist, folder_location take the value of the selected file
                FL = .SelectedItems(lngCount)
            Else
                End
            End If
            'MsgBox "Text :" & previous_version_folder
        Next lngCount

我只想说

On Error GoTo PROC_EXIT
If Not .SelectedItems(1) = vbNullString Then FL = .SelectedItems(1)