Page 1 of 1
คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 3:42 pm
by Bella08
ขอความช่วยเหลือเกี่ยวกับการเขียน Code คำสั่ง VBA
1. เมื่อเลือกข้อมูลจาก M15 แล้วกด" ดูหลักฐานการฝึกอบรม (pdf.file)" จาก CommandButton3 แล้วไฟล์ PDF ที่มีชื่อตรงกับ M15 จะเปิดขึ้นมาค่ะ
ตัวอย่างตามไฟล์แนบค่ะ
Private Sub CommandButton3_Click()
Range("M15").Select
Dim s As String
s = Range("M15").Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
" file:///\\pserver01\Department\บันทึกการฝึกอบรม (OJT)\บันทึกการฝึกอบรม 2019" & TextToDisplay = "(M15)"
End Sub
ขอบคุณค่ะ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 4:29 pm
by snasui
ปัจจุบันเปิดไฟล์ได้หรือไม่ ติดปัญหาอะไรช่วยแจ้งมาด้วครับ
การโพสต์ Code ควรโพสต์ให้เป็น Code จะได้แตกต่างจากข้อความปกติ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนประกอบครับ
ตัวอย่างเพิ่มเติมสำหรับการเปิดไฟล์เมื่อคลิกปุ่มครับ
Code: Select all
Dim link As String, path As String
On Error Resume Next
path = "D:\บันทึกการฝึกอบรม\บันทึกการฝึกอบรม 202019\"
s = Range("m15").Value
link = path & s & ".PDF"
ActiveWorkbook.FollowHyperlink _
Address:=link, _
NewWindow:=True
If Err <> 0 Then MsgBox "Not found link"
ตัวแปร path จะต้องใส่เฉพาะตำแหน่งที่วางไฟล์เท่านั้นครับ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 4:38 pm
by Bella08
ต้องขอโทษด้วยค่ะ ทีไม่ได้ศึกษาการ โพสต์ Code ให้ละเอียด
ตอนนี้ทำได้แล้วค่ะ
ขอบคุณอาจารย์มากค่ะ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 4:50 pm
by Bella08
รบกวนสอบถามเพิ่มเติมค่ะ
ถ้าตัวแปร path อยู่ใน WorkGroup ใน Server ต้องเขียน code อย่างไรคะ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 4:56 pm
by snasui
ใช้ Code เดิมแต่ต้องอ้าง Path มาให้ถูกครับ
ปกติหากไฟล์อยู่ที่อื่นเราจะใช้การ Map Drive เข้ามาช่วยเพื่อให้นำไปใช้ต่อได้ง่ายแทนที่จะอ้าง Path จาก Server โดยตรงครับ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 5:11 pm
by Bella08
ตอนนี้ Map Drive มาหน้า desktop แล้วค่ะ
และกำหนด path = "\\pserver01\Department\การฝึกอบรมสอนงาน (OJT)\บันทึกการฝึกอบรม\บันทึกการฝึกอบรม 2019\" แต่ยังไม่สำเร็จค่ะ
รบกวนด้วยค่ะ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 5:19 pm
by snasui
Map Drive มาที่ Desktop มีลักษณะเป็นอย่างไรครับ ปกติจะต้องมาเพิ่มเป็น Drive ปกติในเครื่องเราเองจากที่มีอยู่แล้ว เช่นได้เป็น x:, y:, z: เป็นต้น
การอ้างอิงก็จะเป็น
path="z:\" เช่นนี้ครับ
Re: คำสั่ง VBA เปิดไฟล์ pdf.ที่มีชื่อตรงกันกับข้อความใน cell ที่เลือก
Posted: Sat Dec 01, 2018 5:24 pm
by Bella08
ขอบคุณมากค่ะ