[VBA ]想將檔名自動存成"當天的日期"+"cd",無奈一直抓不到日期...
大家好,小的我最近剛開始寫VBA,
不過遇到了些瓶頸,希望有高手能不吝給我寶貴的建議!
先謝謝大家了!
目前在寫一個程式是要能在excel中複製某特定範圍的資料,
之後再將資料另存在一個新的sheet中,
以上都沒什麼問題,接下來問題來了
因為我得要讓這個新的sheet可以自動存成今天的日期後面加上cd
例如:現在是2010/06/09
檔名就要存成20100609cd
可是我是用變數m0來存取日期的資訊,最後再用m0+"cd"的方法來存成我要的檔名
但是新sheet的名字都會變成m0cd之類的東西,跟我要的檔名有段落差
如果用m0 & "cd" 又會有錯誤,
單用cd來存的話就很正常,是個以cd為名的sheet
所以m0的問題很大,但是我不知道他的問題出在哪
希望大家能給我一些建議了,謝謝!!
以下是我寫的程式碼
Sub 複製且另存()
'
' 複製且另存 Macro
'
' 快速鍵: Ctrl+a
Dim m0 As Date
y = Year(Now)
m = Month(Now)
d = Day(Now)
m0 = y & "/" & m & "/" & d
Range("A3:B14").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = m0 + "cd"
End Sub
謝謝大家了!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.166.218.45
推
06/09 03:44, , 1F
06/09 03:44, 1F
推
06/09 05:28, , 2F
06/09 05:28, 2F
推
06/09 08:32, , 3F
06/09 08:32, 3F
→
06/09 10:15, , 4F
06/09 10:15, 4F
推
06/09 12:31, , 5F
06/09 12:31, 5F
→
06/15 13:23, , 6F
06/15 13:23, 6F