Excel Forum

สวัสดีครับ อยากสอบถามว่าหากอยากเปลี่ยนชื่อไฟล์งานอ้างอิงจาก Cell H1 ต้องแก้ไขแบบไหนครับ
"\Form.docx"

Sub extractData()

Dim wd As New Word.Application
Dim doc As Word.Document
Dim sh As Worksheet

wd.Visible = True

Set doc = wd.Documents.Open(ActiveWorkbook.Path & "\Form.docx")
Set tbls = doc.Tables
Set sh = ActiveSheet

lr = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1

สามารถปรับเป็นด้านล่างครับ

สมมุติเซลล์ H1 อยู่ที่ Sheet1 มีค่าเป็น \Form.docx

Set doc = wd.Documents.Open(ActiveWorkbook.Path & Worksheets("Sheet1").range("h1").value)

วิธีการ Post Code กรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้แตกต่างจาก Font ธรรมดา เพื่อให้ง่ายต่อการอ่านครับ