ใช้คำสั่งมาโครให้บันทึกแฟ้มและแสดงหน้าตัวอย่างก่อนพิมพ์

[spuangchang]

เรียน ท่านอาจารย์ที่เคารพ
อยากจะเรียนสอบถามเกี่ยวกับการเขียนคำสั่ง vba โดยให้บันทึกแฟ้มและแสดงหน้าตัวอย่างก่อนพิมพ์ ดังนี้ครับ
1.ต้องการ save fileในโฟลเดอร์ student ไว้ที่หน้าจอของคอมพิวเตอร์เครื่องอื่นๆได้ทุกเครื่อง ในโฟลเดอร์ student บันทึกไฟล์ น้ำหนัก ส่วนสูง หลายหนในครั้งเดียวกันเนื่องจากต้องเปลี่ยนข้อมูลแต่ละชั้น เช่น ให้บันทึกไฟล์ครั้งแรกเป็น sheet 01 กดบันทึกใหม่ให้บันทึกเป็น sheet 02 ,sheet 03 .....เพื่อไม่ให้บันทึกซ้ำไฟล์เดิม โดยให้ตั้งชื่อไฟล์อัตโนมัติ

2. ต้องการให้แสดงหน้าตัวอย่างก่อนพิมพ์ แบบเลือกหน้าได้ เช่น แสดงตัวอย่างก่อนพิมพ์หน้า 1 ตามไฟล์แนบครับ

[snasui]

ตัวอย่าง Code การ Save เป็นชื่อไฟล์ให้ Run No ต่อจากไฟล์เดิมที่มีการ Run Number 2 หลักไว้ในตอนท้ายของชื่อไฟล์ตามด้านล่างครับ

Code: Select all

Sub Macro1()
    Dim MyFolder As String
    Dim MyFile As String
    Dim j As Integer
    Dim a() As Variant
    Dim i As Integer
    MyFolder = "C:\USERS\SCHOOL\Desktop"
    MyFile = Dir(MyFolder & "\" & "*.xls")
    Do While MyFile <> ""
        If Mid(MyFile, InStr(MyFile, ".xls") - 2, 2) Like "##" Then
            j = j + 1
            ReDim a(j)
            a(j) = Val(Mid(MyFile, InStr(MyFile, ".xls") - 2, 2))
            Debug.Print a(j)
       End If
       MyFile = Dir
    Loop
    i = Application.Max(a)
    Range("A1:L1").Select
    Sheets("Sheet 01").Select
    Sheets("Sheet 01").Copy
    ActiveWorkbook.SaveAs Filename:="C:\USERS\SCHOOL\Desktop\Sheet " & Format(i, "00") & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

สำหรับ Print Preview นั้นลองบันทึก Macro มาดู ติดตรงไหนนำมาถามกันได้ครับ

[spuangchang]

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

[snasui]

เหลือแต่เวลาบันทึกแต่ละไฟล์ยังไม่มีโฟลเดอร์มารองรับเพื่อให้แต่ละไฟล์บันทึกอยู่ในโฟลเดอร์ครับ

สร้าง Folder ที่จะเก็บไฟล์ไว้ก่อนครับ แล้วปรับ Code ด้านล่างคือ

Code: Select all

MyFolder = "C:\USERS\SCHOOL\Desktop"

โดยระบุ Folder เข้าไปด้วย เช่น Folder ชื่อ MyStudent ก็จะได้เป็น

Code: Select all

MyFolder = "C:\USERS\SCHOOL\Desktop\MyStudent"

ส่วนการ Print Preview เฉพาะหน้าที่ต้องการให้กำหนด Print Area พื้นที่จะ Print ก่อนแล้วค่อย Print Preview ครับ

[spuangchang]

ท่านอาจารย์ครับ สร้างโฟลเดอร์รองรับที่หน้าจอ ปรับโค้ตแล้ว แต่ debug "i = Application.Max(a)" จะต้องปรับแก้อย่างไรครับ ขอบพระคุณครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Macro1()
    Dim MyFolder As String
    Dim MyFile As String
    Dim j As Integer
    Dim a() As Variant
    Dim i As Integer
    MyFolder = "C:\USERS\SCHOOL\Desktop\MyStudent"
    MyFile = Dir(MyFolder & "\" & "*.xls")
    Do While MyFile <> ""
        If Mid(MyFile, InStr(MyFile, ".xls") - 2, 2) Like "##" Then
            j = j + 1
            ReDim a(j)
            a(j) = Val(Mid(MyFile, InStr(MyFile, ".xls") - 2, 2))
            Debug.Print a(j)
       End If
       MyFile = Dir
    Loop
    If j = 0 Then
        ReDim a(0)
        a(0) = 0
    End If
    i = Application.Max(a)
    Range("A1:L1").Select
    Sheets("Sheet 01").Select
    Sheets("Sheet 01").Copy
    ActiveWorkbook.SaveAs Filename:="C:\USERS\SCHOOL\Desktop\MyStudent\Sheet " & Format(i + 1, "00") & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

[spuangchang]

ขอบพระคุณท่านอาจารย์มากครับ ใช้ได้ตามความต้องการครับ