☰

如何使用 VBA 制作一个按钮来创建一个文件夹，并根据包含日期的 2 个单元格的内容命名该文件夹

tag-icon • tag-icon microsoft-excel vba
如何使用 VBA 制作一个按钮来创建一个文件夹，并根据包含日期的 2 个单元格的内容命名该文件夹

我是 VBA 新手。如何在 Excel 中使用 VBA 制作一个按钮来创建一个文件夹，并根据包含日期内容的 2 个单元格的内容命名该文件夹。这似乎不可能！！

答案1

您可以使用此 VBA 代码，创建新文件夹并使用文件夹名称添加当前日期和时间。

Private Sub CommandButton1_Click()

    Dim startPath As String
    Dim myName1 As String


    startPath = "Your File Path here\"
    myName1 = ActiveSheet.Range("A1").Text


    Dim folderPathWithName As String
    folderPathWithName = startPath & Application.PathSeparator & myName1 & " " & Format$(Date, "dd-mm-yyyy") & " " & Format$(Time, "hh-mm-ss")

    If Dir(folderPathWithName, vbDirectory) = vbNullString Then
        MkDir folderPathWithName
    Else
       MsgBox "Folder already exists"
       Exit Sub
    End If
End Sub

怎么运行的：

  • 从德点击开发者 TAB德然后设计模式我插入。
  • 在下面AactiveX 控件单击C命令按钮图标并在 Sheet 上绘制按钮。
  • 德双击按钮打开 VB 编辑器。
  • 然后C奥皮＆磷保留代码行之间，

磷rivate Sub 命令按钮1_Click()

埃nd Sub.

  • 年代复制代码并返回工作表，点击德退出设计模式。
  • 最后点击C命令按钮R联合国米杂技。

注意：

  • 在此myName1 = ActiveSheet.Range("A1").Text，单元格引用A1是可编辑的。

  • 对于变量，用您想要创建新文件夹的路径startPath =替换文本，例如它应该是这样的，， 。Your File Path here\"startPath = "C:\Users\User\Desktop\"

相关内容