Snasui Excel Forum

คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/

Save ไฟล์ ด้วย VBA

https://snasui.com/viewtopic.php?t=19742

Page 1 of 1

Save ไฟล์ ด้วย VBA

Posted: Mon Feb 06, 2023 5:12 pm
by babyminds
อยากให้ไฟล์ที่เซฟด้วย VBA เป็นไฟล์ที่ไม่มีสูตร และไม่มีปุ่ม Save

Code: Select all

    ActiveWorkbook.SaveAs Filename:= _
        "D:\Users\saartorn\Desktop\" & Range("f1").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
ไฟล์ที่เซฟมาใหม่มันมีสูตรติดมาด้วย อยากไห้เคลียสูตรเป็น Value และลบปุ่ม Save ออกด้วยครับ
Book1.xlsb

Re: Save ไฟล์ ด้วย VBA

Posted: Mon Feb 06, 2023 7:58 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub SaveXYZ()
    With Worksheets("Transfer")
        .Shapes("Button 1").Delete
        .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
    End With
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Users\saartorn\Desktop\" & Range("f1").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
การเขียน Code ควรตั้งชื่อคำสั่งให้เป็นชื่ออื่น พยายายามอย่าให้ซ้ำกับคำสั่งของ Excel อย่าตั้งเป็นเช่น Save, Delete, Select อะไรพวกนี้เป็นต้นครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 12:21 pm
by babyminds
snasui wrote: Mon Feb 06, 2023 7:58 pm :D ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub SaveXYZ()
    With Worksheets("Transfer")
        .Shapes("Button 1").Delete
        .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
    End With
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Users\saartorn\Desktop\" & Range("f1").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
การเขียน Code ควรตั้งชื่อคำสั่งให้เป็นชื่ออื่น พยายายามอย่าให้ซ้ำกับคำสั่งของ Excel อย่าตั้งเป็นเช่น Save, Delete, Select อะไรพวกนี้เป็นต้นครับ
แล้วไฟล์ที่เซฟ ให้เป็นไฟล์ xlsx. เลยได้ไหมครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 1:02 pm
by snasui
:D Excel สามารถ Save ได้หลายรูปแบบ หากต้องการ Save เป็น .xlsx สามารถเปลี่ยน xlOpenXMLWorkbookMacroEnabled เป็น xlOpenXMLWorkbook ดูตารางนี้ประกอบครับ :arrow: XlFileFormat enumeration

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 5:14 pm
by babyminds
snasui wrote: Tue Feb 07, 2023 1:02 pm :D Excel สามารถ Save ได้หลายรูปแบบ หากต้องการ Save เป็น .xlsx สามารถเปลี่ยน xlOpenXMLWorkbookMacroEnabled เป็น xlOpenXMLWorkbook ดูตารางนี้ประกอบครับ :arrow: XlFileFormat enumeration
เพิ่มเติมหน่อยครับ ไฟล์ที่ Save สามารถไห้มันลบ Row ที่ไม่เกิดข้อความด้วยได้ไหมครับ เช่น ตาราง มี 10 แถว แต่คียไปแค่ 5 รายการ ไห้มันลบแถวที่เหลือ และคอลัมน์อ้างอิง 1 คอลัมน์ คือคอลัมน์ E

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 6:04 pm
by snasui
:D สามารถทำได้ ลองเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยนำไฟล์นั้นมาถามกันต่อครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 6:31 pm
by babyminds
snasui wrote: Tue Feb 07, 2023 6:04 pm :D สามารถทำได้ ลองเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดตรงไหนค่อยนำไฟล์นั้นมาถามกันต่อครับ

Code: Select all

Sub SaveXYZ()
            Rows("4:8").Select
    Selection.Delete Shift:=xlUp
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    With Worksheets("Transfer")
        .Shapes("Button 1").Delete
        .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
    End With
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Users\saartorn\Desktop\" & Range("f1").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
มัน ERROR อ่ะครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 6:36 pm
by snasui
:D กรุณาแนบไฟล์ล่าสุดมาด้วยจะได้ตอบต่อไปจากนั้นครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 6:41 pm
by babyminds
snasui wrote: Tue Feb 07, 2023 6:36 pm :D กรุณาแนบไฟล์ล่าสุดมาด้วยจะได้ตอบต่อไปจากนั้นครับ
Book1.xlsb
นี่ครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 6:54 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

With Worksheets("Transfer")
    .Range("b" & .Rows.Count).End(xlUp) _
        .Offset(1, 0).Resize(1000).EntireRow.Delete
    .Range("e1").EntireColumn.Delete
    .Shapes("Button 1").Delete
    .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
End With
ค่าที่ให้ Save เป็น .xlsx ผมตอบไปแล้วตามด้านบน ในไฟล์ที่ส่งมายังไม่ได้ Update ต้อง Update ด้วยครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 7:04 pm
by babyminds
snasui wrote: Tue Feb 07, 2023 6:54 pm :D ตัวอย่างการปรับ Code ครับ

Code: Select all

With Worksheets("Transfer")
    .Range("b" & .Rows.Count).End(xlUp) _
        .Offset(1, 0).Resize(1000).EntireRow.Delete
    .Range("e1").EntireColumn.Delete
    .Shapes("Button 1").Delete
    .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
End With
ค่าที่ให้ Save เป็น .xlsx ผมตอบไปแล้วตามด้านบน ในไฟล์ที่ส่งมายังไม่ได้ Update ต้อง Update ด้วยครับ

อันนี้ต้องเอา Code ไปต่อรวมกับ Code แรกไหมครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Tue Feb 07, 2023 7:21 pm
by babyminds
snasui wrote: Tue Feb 07, 2023 6:54 pm :D ตัวอย่างการปรับ Code ครับ

Code: Select all

With Worksheets("Transfer")
    .Range("b" & .Rows.Count).End(xlUp) _
        .Offset(1, 0).Resize(1000).EntireRow.Delete
    .Range("e1").EntireColumn.Delete
    .Shapes("Button 1").Delete
    .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
End With
ค่าที่ให้ Save เป็น .xlsx ผมตอบไปแล้วตามด้านบน ในไฟล์ที่ส่งมายังไม่ได้ Update ต้อง Update ด้วยครับ
ได้แล้วครับ ขอบคุณมากครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Wed Feb 08, 2023 4:56 pm
by babyminds
snasui wrote: Tue Feb 07, 2023 6:54 pm :D ตัวอย่างการปรับ Code ครับ

Code: Select all

With Worksheets("Transfer")
    .Range("b" & .Rows.Count).End(xlUp) _
        .Offset(1, 0).Resize(1000).EntireRow.Delete
    .Range("e1").EntireColumn.Delete
    .Shapes("Button 1").Delete
    .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
End With
ค่าที่ให้ Save เป็น .xlsx ผมตอบไปแล้วตามด้านบน ในไฟล์ที่ส่งมายังไม่ได้ Update ต้อง Update ด้วยครับ

อาจารย์ครับเพิ่มเติมนิดนึงครับ ถ้าต้องการไห้มัน Delete Row ลงมาแค่ถึง Total ได้ไหมครับ อันนี้ใส่ Total แล้ว Save มันโดนลบไปด้วย
Book1.xlsm

Re: Save ไฟล์ ด้วย VBA

Posted: Thu Feb 09, 2023 6:07 am
by snasui
:D กรุณาเขียนมาเองก่อน แนบไฟล์ทีได้ปรับปรุง Code นั้นมาแล้วด้วย จะได้ตอบต่อไปจากนั้น ทุกคำถามเกี่ยวกับ VBA กรุณาทำมาเองก่อนทุกครั้งครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Thu Feb 09, 2023 10:15 am
by babyminds
snasui wrote: Thu Feb 09, 2023 6:07 am :D กรุณาเขียนมาเองก่อน แนบไฟล์ทีได้ปรับปรุง Code นั้นมาแล้วด้วย จะได้ตอบต่อไปจากนั้น ทุกคำถามเกี่ยวกับ VBA กรุณาทำมาเองก่อนทุกครั้งครับ

Code: Select all

Sub SaveXYZ()
With Worksheets("Transfer")
    .Range("b" & .Rows.Count).End(xlUp) _
        .Offset(1, 0).Resize(1000).EntireRow.Delete
    .Range("h1").EntireColumn.Delete
    .Shapes("Button 1").Delete
    .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
End With
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Users\saartorn\Desktop\" & Range("f1").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Book1.xlsm
นี่ครับ

Re: Save ไฟล์ ด้วย VBA

Posted: Thu Feb 09, 2023 4:28 pm
by puriwutpokin
ลองปรับตามนี้ดูครับ

Code: Select all

Sub SaveXYZ()
With Worksheets("Transfer")
Set Rng = ActiveSheet.UsedRange
Col = 2
For i = Rng.Rows.Count To 1 Step -1
If Rng.Cells(i, Col) = "" And Rng.Cells(i, Col - 1) <> "TOTAL" Then
Rng.Cells(i, Col).EntireRow.Delete
End If
Next i
    .Range("h1").EntireColumn.Delete
    .Shapes("Button 1").Delete
    .Range("a1").CurrentRegion.Value = .Range("a1").CurrentRegion.Value
End With
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Users\saartorn\Desktop\" & Range("f1").Value & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
All times are UTC+07:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited