Excel: สร้างโฟลเดอร์ VBA script - รับค่าจากเซลล์ที่เลือกหรือไม่

ฉันใช้รหัส VBA เพื่อสร้างโฟลเดอร์ใหม่ในไดเรกทอรี สิ่งที่ฉันต้องการทำคือรับชื่อโฟลเดอร์ใหม่จากเซลล์ที่เลือก ความคิดเห็นใดที่ฉันสามารถทำได้โปรด

นี่คือรหัสที่ฉันมีอยู่

If Target.Column = Range("B1").Column Then
  If Target.Row > 7 Then

'Variable definitions
Dim FolderListRange As Range
Dim FolderRange As Variant
Dim FolderName As String
Dim ParentFolderPath As String

On Error GoTo Handle
    ' Set the Folder where the individual folders should be created
    ParentFolderPath = "\\UKSH000-FILE06\purchasing\New Supplier Set-Ups"

    Set FolderListRange = Range("B" & Target.Row).SpecialCells(xlCellTypeConstants)

    For Each FolderRange In FolderListRange

        FolderName = ParentFolderPath & "\" & FolderRange.Value

        If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then
            FileSystem.MkDir FolderName
        End If

Continue:
    Next

Handle:
  End If
  End If

microsoft-excel vba

— เจมส์สมิ ธ
แหล่งที่มา

ฉันจะลองสิ่งนี้:

Dim folderNameCell As Range
Dim newFolderName As String

Set folderNameCell = Application.Selection
newFolderName = folderNameCell.Value

— RM Pawling
แหล่งที่มา