VBA 在目录名称中格式化显示的日期答案

【问题标题】：VBA to format the displayed date within a directory nameVBA 在目录名称中格式化显示的日期
【发布时间】：2016-03-13 14:23:25
【问题描述】：

我已经准备了一个代码，可以读取各种单元格以确定目录中的文件名，在该目录中可以找到源代码。然后打开的文件取决于活动工作表的单元格 S2 中指定的日期，其格式为“mm.dd.yy”。

该代码似乎可以很好地读取大多数单元格，但是当涉及到日期时，它会将其还原为“dd\mm\yyyy”，我不知道我哪里出错了。

我所做的研究表明，清楚地区分单元格内容和显示格式非常重要，我认为这就是我对 NumberFormat 所做的，但它似乎没有奏效。

这是我正在使用的代码；

Dim ws1 As Excel.Worksheet
Set ws1 = ActiveSheet
ws1.Range("S2").NumberFormat = ("mm.dd.yy")

Workbooks.Open Filename:= _
    "Q:\Accounts Department\DF Period End ADI\Security Plus Reconciliation\Historical Data\2015 - 2016\P" & ws1.Range("S3").Value & "\Securiy Plus Data\W" & ws1.Range("S4").Value & "\FileName " & ws1.Range("S2") & ".xls"

一如既往，我们非常感谢任何帮助。

【问题讨论】：

标签： vba excel date

【解决方案1】：

尝试将ws1.Range("S2") 更改为Format(ws1.Range("S2"), "mm.dd.yy")

【讨论】：

也发现了，没想到会这样。这仍然是一个学习曲线！感谢您的帮助。

【解决方案2】：

使用.Text：

Dim ws1 As Excel.Worksheet
Set ws1 = ActiveSheet
ws1.Range("S2").NumberFormat = ("mm.dd.yy")

Workbooks.Open Filename:= _
    "Q:\Accounts Department\DF Period End ADI\Security Plus Reconciliation\Historical Data\2015 - 2016\P" & ws1.Range("S3").Value & "\Securiy Plus Data\W" & ws1.Range("S4").Value & "\GO NORTH EAST " & ws1.Range("S2").Text & ".xls"

【讨论】：