Snasui Excel Forum

:D ดึงไฟล์หรือเก็บไฟล์ก็ใช้ Path เดียวกันได้ทั้งหมดแตกต่างกันที่ชื่อไฟล์ครับ

ไม่ทราบว่ามีประเด็นอะไรที่นอกเหนือจากนี้หรือไม่ กรุณาอธิบายให้ละเอียด ควรจะลองเขียนดูด้วยจะได้เห็นภาพครับ

ตอนนี้ขอลองทำตามคำแนะนำของอาจารย์ก่อนครับ
ส่วนเรื่องอื่นน่าจะเป็นเรื่องทำช่องค้นหาและแก้ไขรายการครับ
แต ...

snasui wrote: Tue Oct 22, 2019 7:44 pm ส่วนนี้คือ Directory ไฟล์โปรแกรมครับ ActiveWorkbook.Path & "\"

หากต้องการจะเก็บอะไรไว้ในที่เดียวกันก็ให้อ้างอิง Code นี้นำด้านหน้า ที่เหลือก็เป็นชื่อไฟล์ครับ

ตามcodeที่ผมอ้างอิงเลยครับ
แต่ถ้าเป็นการดึงไฟล์จากที่เดียวกันล่ะครับ

ขออภัยที่ไม่ได้ตรวจสอบไฟล์ก่อนส่งครับ
ล่าสุดตอนนี้ผมทำได้แล้วครับ ส่วนใหญ่ผมจะพยายามทำเองก่อนครับ ;)
แต่มีเรื่องรบกวนอีกอย่างครับ
-ผมอยากแก้ไข ไดเร็กทอรี่ ที่เรียกไฟล์รูปให้เรียกจากที่เดียวกับไฟล์เอกสารได้มั้ยครับ คล้ายๆกับ code ที่save file pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF ...

code ใหม่ใช้งานได้ดีครับอาจารย์ รูปไม่ล้นเพจแล้วครับ
แต่ว่า หลังจากได้ไฟล์ .pdf ออกมาแล้วอยากล้างข้อมูลในหน้า Sheet(PDF)ให้ว่างรอการป้อน Userformใหม่
ค่าใน cell ล้างออกได้ครับ แต่ cell ที่มีรูปลบออกยังไงครับ (ผมลองเอาcodeลบรูปไปซ้อนอีกรอบมันไม่ผ่านครับ :cry: )
อันนี้คือcodeลบรูปใช่มั้ยครับ If Left ...

ไฟล์รูปครับ

ตอนนี้ดึงรูปเข้าได้แล้วครับ
-แต่เมื่อกดปุ่ม "SAVE PDF" (CommandButton3) ทำไมไฟล์ PDF ออกมา2หน้าอีกแล้วครับทั้งที่ code
Set imgIcon = Nothing
ActiveSheet.OLEObjects("CommandButton1").PrintObject = False
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$I$52"
.FitToPagesWide = 1
.FitToPagesTall ...

ต้องขออภัยอาจารย์ด้วยครับที่ผมไม่รอบคอบกับกฎระเบียบก่อนตั้งคำถามครับ
-ส่วนของ code ผมได้แนบไปกับไฟล์ด้วยครับอยู่ที่module1
-สวนการแนบไฟล์เป็น Link มาจากแหล่งอื่นนั้นคือผมเพิ่งทำไฟล์นี้เป็นไฟล์แรกเลยครับไม่มีความรู้เรื่องvbaมาก่อนเลย ดูจากบอร์ดและยูทูป ก๊อปปี้แล้วมาแก้ไขครับ เข้าใจบ้างไม่เข้าใจบ้างคร ...

ใกล้สำเร็จแล้วครับติดอยู่ตรงผมต้องการให้โชว์รูปที่ sheet(PDF)
แต่มันต้องกดรันทุกครั้งเลยอ่ะครับ
ตอนนี้ผมวางไว้ที่module1ไว้ก่อนครับ
คือต้องการให้โชว์รูปเลยตอนที่มีค่าเข้าไปที่"B18" ของ sheet(PDF)ครับ
ผมควรเอาcodeไปไว้ตรงไหนครับ

Sub ShowPicture()
Dim r As String
Dim imgIcon As Object
Dim Obj As ...

ขอบคุณมากๆเลยครับอาจารย์
ถ้าผมต้องการนำเซลไหนมาเพิ่มที่ชื่อไฟล์ก็เพิ่ม code แบบนี้เข้าไปใช่มั้ยครับ
คือมันต้องเรียงแบบนี้หรอครับ ผมลองใส่แบบนี้ไปใช้ได้ครับ

ตอนนี้ได้ลองแก้ไปนิดหน่อยครับ
1.ได้ไฟล์ .PDF ที่ออกมาจากSheet(PDF)ตามต้องการ แต่ยังติดตรงอยากให้ออกแค่ page 1หน้าเดียวครับ
2.ได้ชื่อไฟล์ ในเซล "B6" ตามต้องการ แต่ยังติดตรง จะต่อชื่อไฟล์ตามด้วยเซล "B8"
อธิบายเซล คือ B6=ชื่อลูกค้า , B8=เบอร์โทร
ประมาณว่าชื่อไฟล์PDFคือ "สมชาย 0987654321.pdf"
ผมต้องแก ...

ได้แล้วครับขอบคุณอาจารย์มากครับ
ต่อเนื่องเลยนะครับคือผมต้องการ SAVE เป็นไฟล์ PDF
แต่ต้องการระบุเลยว่า เป็น sheet ที่ชื่อว่า "PDF" แล้วนำค่าในเซล B6 และ B8มาตั้งชื่อไฟล์ครับ

อันนี้คือที่ผมนำมาใช้ครับต้องแก้ตรงไหนครับ

Private Sub CommandButton3_Click()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF ...

ได้ทำการทดสอบ code ที่อาจารย์แนะนำแล้วครับ ผลคือข้อมูลวิ่งเข้าเพียง Sheet เดียวเหมือนเดิมครับ
เข้าเฉพาะSheetที่เปิดไว้ก่อน Run userform ครับ

เมื่อกรอกข้อมูลในtextboxต่างๆแล้ว กดปุ่ม "เพิ่มข้อมูล" (CommandButton1)
ค่าต่างๆต้องการให้เข้าที่ 2 Sheet ดังนี้
-Sheet(DATA) ให้ลงมาเป็น List เรียงลงมาตามข้อมูลที่เพิ่ม
-Sheet(DATA1) ให้บันที่ค่าแค่บรรทัดเดียว (เมื่อป้อนข้อมูลใหม่จะทับที่เดิม)ค่าที่ได้ใน Sheet(DATA1) ให้แสดงใน Sheet(PDF)
แต่จร ...

เรียนอาจารย์ทุกท่านครับ
ผมต้องการนำข้อมูลที่ใส่ใน Userform บันทึกลง 2 Sheetพร้อมกัน(ตามไฟล์แนบ)
-Sheet(DATA) ให้ลงมาเป็น List เรียงลงมาตามข้อมูลที่เพิ่ม
-Sheet(DATA1) ให้บันที่ค่าแค่บรรทัดเดียว (เมื่อป้อนข้อมูลใหม่จะทับที่เดิม)
ผมลองทำครั้งแรกครับดูตามยูทูป ต้องแก้ไขหรือต้องใช้สูตรไหนรบกวนชี่แนะด ...