Page 1 of 1
อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Sat Mar 11, 2017 7:20 pm
by 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 แล้วต้องเข้าไปแก้ตรงจุดไหนคะ
ขอบคุณคะ
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Sat Mar 11, 2017 7:24 pm
by puriwutpokin
ลองเขียนมาเองตามกฏของบอร์ดนี้ และแนบไฟล์ที่เขียน และรูปแบบที่ต้องการมาในไฟล์ด้วยครับ เพื่อนๆสมาชิกจะได้ช่วยแก้ไขให้ครับ
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Sun Mar 12, 2017 6:51 pm
by 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 ไม่ได้ไม่ทราบว่าเป้นเพราะอะไรคะ
ขอบคุณล่วงหน้าคะ
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Sun Mar 12, 2017 9:14 pm
by snasui
การแนบไฟล์อ่านกฎข้อ 5 ด้านบน
จะมี Link แสดงวิธีการแนบไฟล์ครับ
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Mon Mar 13, 2017 7:10 pm
by 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 เป็นวันที่ปัจจุบันคะ กลุ้มใจมากเลยคะ
รบกวนช่วยอธิบายหรือมีวิธีที่ดีกว่านี้ไหมคะ
ขอบคุณคะ
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Mon Mar 13, 2017 7:21 pm
by snasui
ช่วยโพสต์ Code ให้เป็น Code อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
แนบไฟล์ Excel ที่มี Code นี้มาด้วยจะได้ช่วยทดสอบได้
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Tue Mar 14, 2017 8:09 am
by March201711
ตามเอกสารแนบคะ
ขอบคุณคะ
Re: อยาก Save as ไปอยู่ folderตามด้วยวันเดือนปีคะ
Posted: Tue Mar 14, 2017 8:57 am
by puriwutpokin
ปรับเป็น
Code: Select all
...โค้ดอื่น
ActiveWorkbook.SaveAs Filename:= _
"D:\My document\Mywork\Year2017\Mar17\" & "Savework_" & Format$(Date, " ddmmyy") + ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
...โค้ดอื่น