[VBA ]想將檔名自動存成"當天的日期"+"cd",無奈一直抓不到日期...

大家好,小的我最近剛開始寫VBA, 不過遇到了些瓶頸,希望有高手能不吝給我寶貴的建議! 先謝謝大家了! 目前在寫一個程式是要能在excel中複製某特定範圍的 ... 批踢踢實業坊 › 看板Visual_Basic 關於我們 聯絡資訊 返回看板 作者peepeepig(peepeepig)看板Visual_Basic標題[VBA]想將檔名自動存成"當天的日期"+"cd",無奈一直抓不到日期...時間WedJun900:25:432010 大家好,小的我最近剛開始寫VBA, 不過遇到了些瓶頸,希望有高手能不吝給我寶貴的建議! 先謝謝大家了! 目前在寫一個程式是要能在excel中複製某特定範圍的資料, 之後再將資料另存在一個新的sheet中, 以上都沒什麼問題,接下來問題來了 因為我得要讓這個新的sheet可以自動存成今天的日期後面加上cd 例如:現在是2010/06/09 檔名就要存成20100609cd 可是我是用變數m0來存取日期的資訊,最後再用m0+"cd"的方法來存成我要的檔名 但是新sheet的名字都會變成m0cd之類的東西,跟我要的檔名有段落差 如果用m0&"cd"又會有錯誤, 單用cd來存的話就很正常,是個以cd為名的sheet 所以m0的問題很大,但是我不知道他的問題出在哪 希望大家能給我一些建議了,謝謝!! 以下是我寫的程式碼 Sub複製且另存() ' '複製且另存Macro ' '快速鍵:Ctrl+a Dimm0AsDate y=Year(Now) m=Month(Now) d=Day(Now) m0=y&"/"&m&"/"&d Range("A3:B14").Select Selection.Copy Sheets.AddAfter:=Sheets(Sheets.Count) ActiveSheet.Paste Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name=m0+"cd" EndSub 謝謝大家了!! -- ※發信站:批踢踢實業坊(ptt.cc) ◆From:118.166.218.45 推LPH66:m0AsDate改成m0AsString如何?你要的是字串嘛06/0903:44 推sueadolph:m0宣告為字串。

另外m0跟年月日結合時，不需要加上/06/0905:28 推Marty:filename=Format(Now(),"yyyy/MM/dd")&"cd"06/0908:32 →MOONRAKER:誰會取裡面有/的檔名啊…06/0910:15 推jwjeng:檔名取那樣人家才不理你...06/0912:31 →peepeepig:哈哈,對耶!謝謝大家!我改好了!!06/1513:23