สอนเขียนแบตไฟด์

[akekorn]

สวัสดีครับคุณคนควน และ สมาชิกผู้ทรงเกียรติทุกท่าน

วันนี้ผมใคร่ขอความรู้จากทุกท่านในการเขียนแบตไฟด์ ตั้งแต่เริ่มเขียน จนถึงการอ้างถึงตัวแปรเพื่อส่งรับค่าเข้าไปในแบตไฟด์
ตัวอย่างคือสมมติมีไฟด์ excel อยู่ที่ drive C: ชื่อtest.xls และ test20120329.xls สิ่งที่ต้องการคือ ต้องการ copy file
test.xls ไปที่ d:\ และลบไฟด์ test20120329.xls และต้องการให้แทนค่าตัวแปร 20120329 เป็น yyyymmdd เพราะต้องลบไฟด์นี้ทุกวัน ไม่ทราบว่าจะเขียนแบตไฟด์อย่างไรครับ

รบกวนด้วยครับ

เอกกร

[snasui]

สามารถเขียน VBA ในการ Delete, Copy พร้อมเปลี่ยนชื่อไฟล์ตอนวางได้ ดูตัวอย่างได้ที่นี่ครับ http://www.snasui.com/viewtopic.php?f=3&t=2347

ผมปรับ Code จาก Link ดังกล่าวมาให้ดูเป็นตัวอย่างด้านล่างครับ

Code: Select all

Sub Del_Copy()
    Dim Source As String
    Dim Destination As String
    Kill "D:\test20120329.xls"
    Source = "C:\test.xls"
    Destination = "D:\test" & Format(Date, "yyyymmdd") & ".xls"
    FileCopy Source, Destination
End Sub