การใช้ format ใน vba

[yodpao.b]

การใช้ format ใน vba
ข้อมูลที่นำมาจากภาพด้านล่างที่วงกลม

1.JPG (19.49 KiB) Viewed 28 times

2.JPG (16.33 KiB) Viewed 28 times

เมื่อ code ทำงาน แล้ว
code จะสั่งให้ save ชื่อ เป็น ปี เดือน และชื่อไฟล์
save ออกมาได้ชื่อดังนี้ 2562_10_BP_N.xlsx

code ที่ใช้

Code: Select all

Sub MoveToNewSave()
Dim sh As Worksheet, bkName As String

ActiveSheet.Move
'Move the active sheet to a new Workbook.

Set sh = ActiveSheet
'bkName = sh.Range("M3").Value
bkName = Format(sh.Range("A3").Value, "YYYY_MM_") & sh.Range("M3").Value
'SaveAs Filename ª×èÍã¹à«Å

ChDir "D:\energy_EV\newmonth"
'ActiveWorkbook.SaveAs Filename:="D:\energy_EV\ex_energy_EV\Test" & bkName & ".xls"
ActiveWorkbook.SaveAs Filename:="D:\energy_EV\newmonth\" & bkName & ".xlsx"


End Sub

ต้องการให้เป็น คริสต์ศักราช ครับ

"YYYY_MM_"ลองเปลี่ยนเป็นตัวพิมพ์เล็ก ใช้ไม่ได้ครับผลเหมือนเดิม

[puriwutpokin]

ปรับส่วนนี้ครับ

Code: Select all

bkName = Format(sh.Range("A3") - 198327, "YYYY_MM_") & sh.Range("M3").Value

[yodpao.b]

ขอบคุณครับ
เห็นสูตร Format(sh.Range("A3") - 198327
เลยลองเปลี่ยนมาใช้ .text แทน
ใช้ได้เหมือนกันครับ
ขอบคุณมากครับ