在保持格式的同时将工作表重命名为单元格值

Question

我正在尝试在VBA中重命名工作表。我需要把它命名为“yymmdd＆＃39;例如：150212应该是工作表的名称。我已经编写了下面提到的代码，但是当代码尝试重命名工作表时，它没有以“#y; yymmdd＆＃39;”的格式获取值。 VBA给我一个错误，名称不能包含/。我需要一个出路，以便工作表的名称变为“yymmdd＆＃39;”。

Range("G1").Value = Date
Range("G1").NumberFormat = "yymmdd"
Sheets("Fund Flow").Name = Range("G1").Value

Answer 1

简单，请改用.Text！添加正面和背面的删除空格。

Sheets("Fund Flow").Name = Trim(Range("G1").Text)

或者只是

Sheets("Fund Flow").Name = Format(Date,"yymmdd")