2016-02-20 25 views
-1

我在创建自动创建指定文件夹的宏时遇到问题。自动创建并命名文件夹的输入框

我想用按钮创建一个excel文件。其中当你点击按钮, 弹出的问题将出现并要求输入日期(“输入日期”)。

然后它会在单元格B11的目录中创建一个文件夹。 该文件夹的名称是销售+(“输入日期”) 您的帮助是非常感谢。谢谢:)

+0

你尝试过什么等等远?堆栈溢出不是一个免费的代码写入服务......虽然很多人会很乐意*帮助你解决特定的问题,简单地给我们一个需求列表并希望别人来完成这项工作,但是我们对此不以为然。 –

+0

考虑使用'Dir'和'MkDir'函数,或者'FileSystemObject'。 –

回答

0

这仅仅是一个例子:

Sub FolderMaker() 
    Dim s As String 
    s = Application.InputBox(Prompt:="Please enter date in format yyyymmdd", Type:=2) 
    s = Range("B11") & s 
    MsgBox s 

    On Error Resume Next 
     MkDir s 
    On Error GoTo 0 
End Sub 

B11,如:

enter image description here

要定制你会用s = Range("B11") & "sale" & s