將工作表重命名為單元格值，同時保持格式

Question

我正在嘗試在VBA中重命名工作表。 我需要將其命名為“ yymmdd”，例如：150212應該是工作表的名稱。 我已經寫了下面提到的代碼，但是當代碼嘗試重命名工作表時，它不會采用'yymmdd'格式的值。 VBA給我一個錯誤，該名稱不能包含/。 我需要一種解決方法，以便工作表的名稱變為“ yymmdd”。

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")