作者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