文本框输入字符串并重新使用

Question

我希望能够在一个文件夹中获取 x 个文件并将它们全部放在同一个工作簿的不同工作表上。

我发现这段代码有效；

Public Sub consolWB()
    Dim FSO As Object
    Dim folder As Object, subfolder As Object
    Dim wb As Object



    Set FSO = CreateObject("Scripting.FileSystemObject")
    folderPath = "C:\Users\patrickw\Desktop\exceltest"
    Set folder = FSO.GetFolder(folderPath)

    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
        .AskToUpdateLinks = False
    End With

    For Each wb In folder.Files
        If Right(wb.Name, 3) = "xls" Or Right(wb.Name, 4) = "xlsx" Or Right(wb.Name, 4) = "xlsm" Then
            Set openWB = Workbooks.Open(wb)
            For Each ws In openWB.Worksheets
                ws.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)


            Next ws
            openWB.Close
        End If
    Next wb

    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
        .EnableEvents = True
        .AskToUpdateLinks = True
    End With


End Sub

但是，这只是因为我已经设置了目标文件路径供它查看。

我想创建一个按钮，提示用户输入文件路径，然后使用该文件路径来引入文件。

我想我必须把输入变成一个字符串，然后在上面的代码中使用这个变量。

这可能吗？

在上面的示例中，新工作表只是称为“sheet1...”，是否可以自己命名这些工作表？

谢谢

Answer 1

在 button_click 事件中包含以下内容，然后在其他代码中使用路径变量。

Dim path As String
path = InputBox("Enter a file path")

如果您需要访问表单外的变量，则可以将path 声明为模块级Public 字段：

Public path As String

Private Sub CommandButton1_Click()

 path = InputBox("Enter a file path")

End Sub

Private Sub CommandButton2_Click()
 Debug.Print path
End Sub

或者更好的是，如果 path 不应该从表单外部分配，则用属性封装它：

Private path As String

Public Property Get SelectedPath() As String
    SelectedPath = path
End Property

Private Sub CommandButton1_Click()
    path = InputBox("Enter a file path")
End Sub

这样，表单外的代码可以读取SelectedPath，但不能写入到私有字段或修改属性的值。

也就是说，考虑 using a FileDialog instead 和 InputBox，以获得更好的用户体验和更轻松的输入验证。

Answer 2

这样，用户只需要点击，点击，再点击。您不必检查输入文件夹路径是否正确。

Sub GetFolder()
    Dim FD As Office.FileDialog
    Dim FolderPath as string
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    FD.Show

    FolderPath = FD.SelectedItems(1)
    Msgbox FolderPath
End Sub