อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ

[March201711]

สวัสดีคะ

คือตอนนี้สนใจศึกษาการเขียน code vba แต่ตอนนี้ทำได้แค่ record marco ได้อย่างเดียว แต่ติดปัญหาคะว่าเวลาsave file แล้วต้อง s ave ชื่อ file ใหม่ตามด้วยวันที่และเดือนที่ทำรายงานคะ ทำ recode marco ทำcopy to new worksheet -save as-new report0317 แต่ไม่แก้ไม่ได้สักทีต้อง save as เป้น newreport_ddmmyyแล้วไปเปลี่ยนชื่อเองข้างนอกทุกๆวันคะ แต่ถ้าเริ่มเขียน vba ใหม่จะไป saveตามนี้คะ เช่น c:\name\namereport\2017\report0317 ต้องเขียนcode vba อย่างไรคะ แล้วถ้าทำการrecord Marco แล้วต้องเข้าไปแก้ตรงจุดไหนคะ
ขอบคุณคะ

[puriwutpokin]

ลองเขียนมาเองตามกฏของบอร์ดนี้ และแนบไฟล์ที่เขียน และรูปแบบที่ต้องการมาในไฟล์ด้วยครับ เพื่อนๆสมาชิกจะได้ช่วยแก้ไขให้ครับ

[March201711]

ขั้นตอนการทำงานดังนี้คะ
1.ขั้นแรกใช้บันทึก record Marco เพราะเขียน code vba ไม่เป็น แต่สนใจอยากศึกษาคะ
2.recode marco เสร็จแล้ว ต้องเข้าไป edit module แก้วันเดือนปีทุกครั้งคะ หลังจากทำงานในวันถัดไป
3.การ save file ใหม่จึงต้อง save as namefile_ddmmyyyy
4.อยากให้ Marco copy ไป new file เข้าไป folderปลายทางที่เราต้องการเลย โดยไม่ต้องเข้าไปแก้วันเดือนปีคะ

พอดีแนบfile เป็น excel ไม่ได้ไม่ทราบว่าเป้นเพราะอะไรคะ

ขอบคุณล่วงหน้าคะ

[snasui]

การแนบไฟล์อ่านกฎข้อ 5 ด้านบน จะมี Link แสดงวิธีการแนบไฟล์ครับ

[March201711]

Code vba คะ
Sub Test_run()
'
' Test_run Macro
'

'
Sheets("9Mar").Select
Sheets("9Mar").Copy
ChDir "D:\My document\Mywork\Year2017\Mar17"
ActiveWorkbook.SaveAs Filename:= _
"D:\My document\Mywork\Year2017\Mar17\Savework_ddmmyy.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("9Mar").Select
Sheets("9Mar").Copy After:=Sheets(2)
Sheets("9Mar (2)").Select
Sheets("9Mar (2)").Name = "10Mar"
Range("C1").Select
ActiveCell.FormulaR1C1 = "3/10/2017"
Range("E16").Select
ActiveCell.FormulaR1C1 = "B/F-from 9Mar.17"
Range("E17").Select
Sheets("9Mar").Select
Range("F17").Select
Selection.Copy
Sheets("10Mar").Select
Range("F16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1").Select
End Sub

พอrecord Marco เสร็จ ต้องมานั่งแก้วันที่และต้องมาเปลี่ยนชื่อข้างนอก SaveAs Filename:= _
"D:\My document\Mywork\Year2017\Mar17\Savework_ddmmyy.xlsx"ใน module เป็นวันที่ปัจจุบันคะ กลุ้มใจมากเลยคะ

รบกวนช่วยอธิบายหรือมีวิธีที่ดีกว่านี้ไหมคะ

ขอบคุณคะ

[snasui]

ช่วยโพสต์ Code ให้เป็น Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

แนบไฟล์ Excel ที่มี Code นี้มาด้วยจะได้ช่วยทดสอบได้

[March201711]

ตามเอกสารแนบคะ

ขอบคุณคะ

[puriwutpokin]

ปรับเป็น

Code: Select all

...โค้ดอื่น
    ActiveWorkbook.SaveAs Filename:= _
        "D:\My document\Mywork\Year2017\Mar17\" & "Savework_" & Format$(Date, " ddmmyy") + ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
...โค้ดอื่น