Page 1 of 1
รบกวนแนะนำการ Active code อยากให้ saveข้อมูลในหน้า File
Posted: Mon Sep 07, 2020 12:58 pm
by keay44
สวัสดีค่ะรบกวนขอคำแนะนำหน่อยค่ะ
เขียนโค๊ด ให้ save เฉพาะข้อมูลในหน้าชีส " Port" โดยลิงค์อ้างอิงฐานข้อมูลจาก "File"
โดยการที่เราคีย์ข้อมูลในช่อง J2 แล้วให้ดึงข้อมูลมาอยู่ในแบบฟอร์มในชีส Port "คลิก" เพื่อ save ไฟล์
แต่ปรากฏว่าเวลากด save ไฟล์ที่ปุ่มจะไป save หน้า File แทน ต้องแก้ไขโค๊ดอย่างไร
เพื่อให้ save ในหน้า Port รบกวนแนะนำด้วยนะค่ะ
Code: Select all
Sub LoopSheetsSaveAsPDF()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim SN As String
SN = Range("C3").Value
For Each ws In ActiveWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "/" & SN & ".pdf"
Next
Application.ScreenUpdating = True
MsgBox " Done "
End Sub
Re: รบกวนแนะนำการ Active code อยากให้ saveข้อมูลในหน้า File
Posted: Mon Sep 07, 2020 1:09 pm
by snasui
คำว่า "ชีส" ควรเขียนเป็น "ชีต" ครับ
ตรง
For Each...Next เขียนไว้เพื่อ Loop อะไรครับ
หากไม่ใช้ให้ Mark
For Each... และ
Next เป็น Comment หรือลบออกไปครับ
กรุณาระบุ Version ของ Excel ที่ใช้ด้วย ดูที่นี่ครับ
http://snasui.com/viewtopic.php?f=6&p=103177#p103177
Re: รบกวนแนะนำการ Active code อยากให้ saveข้อมูลในหน้า File
Posted: Mon Sep 07, 2020 2:07 pm
by keay44
snasui wrote: Mon Sep 07, 2020 1:09 pm
คำว่า "ชีส" ควรเขียนเป็น "ชีต" ครับ
ตรง
For Each...Next เขียนไว้เพื่อ Loop อะไรครับ
หากไม่ใช้ให้ Mark
For Each... และ
Next เป็น Comment หรือลบออกไปครับ
กรุณาระบุ Version ของ Excel ที่ใช้ด้วย ดูที่นี่ครับ
http://snasui.com/viewtopic.php?f=6&p=103177#p103177
ก่อนอื่นต้องขออภัยที่เขียนผิด นะค่ะ เขียนเพื่อที่จะให้เซฟเฉพาะ ส่วนที่กำหนดเนื้อการพิมพ์ให้เซฟเฉพาะที่กำหนดไว้
โดยการ save เป็น PDF และให้เชฟเป็นชื่อในช่อง C3 ให้ save ไว้ที่หน้าหน้าจอหรือFolder ที่เก็บข้อมูลได้เลยค่ะ
Re: รบกวนแนะนำการ Active code อยากให้ saveข้อมูลในหน้า File
Posted: Mon Sep 07, 2020 2:49 pm
by snasui
Code นั้นไม่ได้มีหน้าที่ตามที่อธิบายมา ให้ลบทิ้งไปได้เลย จากนั้นเปลี่ยน
ws.ExportAsFixedFormat ไปเป็น
ActiveSheet.ExportAsFixedFormat ครับ
Re: รบกวนแนะนำการ Active code อยากให้ saveข้อมูลในหน้า File
Posted: Mon Sep 07, 2020 7:21 pm
by keay44
snasui wrote: Mon Sep 07, 2020 2:49 pm
Code นั้นไม่ได้มีหน้าที่ตามที่อธิบายมา ให้ลบทิ้งไปได้เลย จากนั้นเปลี่ยน
ws.ExportAsFixedFormat ไปเป็น
ActiveSheet.ExportAsFixedFormat ครับ
แก้ไขเรียบร้อยแล้วค่ะ ขอบคุณมากๆนะค่ะ
