為什麼這篇vba今天鄉民發文收入到精華區：因為在vba今天這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者peepeepig (peepeepig)看板Visual_Basic標題[VBA ]想將檔名自...
vba今天 在 斜槓姐姐 Instagram 的最佳解答
2021-07-11 08:50:35
❤️程式交易Part2 如何選擇程式交易語言🤔 🎈姐姐今天要介紹 🤚五種程式語言 兩種👉自建程式交易平台的語言 三種👉程式交易平台 1️⃣Excel VBA-需自建程式交易平台語言 大家熟習的Excel內建的VBA程式語言 🔘優點➡️好入門、不需額外支付費用、軟體容易取得 ✖️缺點➡️吃電腦記...
大家好,小的我最近剛開始寫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
推 LPH66:m0 As Date 改成 m0 As String 如何? 你要的是字串嘛 06/09 03:44
推 sueadolph:m0宣告為字串。另外 m0跟年月日結合時，不需要加上/ 06/09 05:28
推 Marty:filename = Format(Now(),"yyyy/MM/dd") & "cd" 06/09 08:32
→ MOONRAKER:誰會取裡面有 / 的檔名啊… 06/09 10:15
推 jwjeng:檔名取那樣人家才不理你... 06/09 12:31
→ peepeepig:哈哈,對耶!謝謝大家!我改好了!! 06/15 13:23