Excel VBA和文件夹-1.3创建当天日期命名的文件夹

Excel VBA和文件夹-1.3创建当天日期命名的文件夹

前景提要

之前我们分享了如何通过VBA来创建文件夹，以及在创建文件夹的过程中，可能出现的坑和避坑的方法，今天我们来分享一个实例，这个例子，其实我们在之前就已经使用了，就是1.1的那个例子，今天我们再拿出来看一下，分享下其中的几个知识点

上代码

Sub test()

  Dim FileName As String    

  FileName = Application.InputBox("请输入文件夹名称", "文件夹名称", Format(Date, "yyyy-mm-dd"))

  MkDir "d:\" & FileName

  end sub

语法说明

如果你有复习我们前面分享过的内容的话，那么上面的代码你一定是非常的熟悉了，就是简单的 Application.InputBox+MkDir这两个函数，之前已经详细的介绍过了这两个方法了，今天就不再重复了。

今天我们要说的是另外一个知识点，我们注意到在创建文件夹名字的时候，我们使用了一个format函数，以及还有一个Date函数，那么他们有什么用处呢？

• format
  

  主要是用来设定格式的，它能够延伸出来很多的格式，是比较常用的函数，比方说他可以将日期转化为中文版的星期，英文版的星期等，后面我们会单独针对这个函数来说下，本例中它主要是用来设定date的格式的，格式是什么样的呢？ "yyyy-mm-dd"，代表的就是年月日的格式，中间用横线连接，比方说今天是2019-03-06，这样子的。

• date
  

  大家都是文化人，看见这个英文单词的就知道是日期的意思了，没错，在VBA中，如果想要表达今天的日期的时候，就可以直接使用date这个函数，注意这里展示的只有年月日，其他的不会展示出来的，如下图

  
  1.png

我们也可以看出来格式并不是我们想要的，因为之前我们说过了，在命名文件夹的过程中，不能有特殊符号的，而"/"就是特殊符号，所以我们需要使用format来格式化一下这个date，转化成为"yyyy-mm-dd"的样子，即

2.png