作者peepeepig (peepeepig)
看板Visual_Basic
標題[VBA ]想將檔名自動存成"當天的日期"+"cd",無奈一直抓不到日期...
時間Wed Jun 9 00:25:43 2010
大家好,小的我最近剛開始寫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
1F：推 LPH66:m0 As Date 改成 m0 As String 如何? 你要的是字串嘛 06/09 03:44
2F：推 sueadolph:m0宣告為字串。另外 m0跟年月日結合時，不需要加上/ 06/09 05:28
3F：推 Marty:filename = Format(Now(),"yyyy/MM/dd") & "cd" 06/09 08:32
4F：→ MOONRAKER:誰會取裡面有 / 的檔名啊… 06/09 10:15
5F：推 jwjeng:檔名取那樣人家才不理你... 06/09 12:31
6F：→ peepeepig:哈哈,對耶!謝謝大家!我改好了!! 06/15 13:23