code maro เปิดไฟล์ word

[March201711]

ถ้าจะใช้ code marco เปิดไฟล์ word ต้องใช้ code ยังงัยคะ

[snasui]

ลอง Search จาก Google ดูก่อน

ตัวอย่างการเปิด Word ด้วย VBA เช่น Link นี้ครับ https://www.automateexcel.com/vba/word/open-document

[March201711]

ค่ะ ถ้าไฟล์มีใส่ password ต้องใส่ code อย่างไรค่ะ

[snasui]

ลองดูที่นี่ครับ https://stackoverflow.com/questions/375 ... ent-in-vba

[March201711]

ต้องใส่ password เอง ทั้ง 3 ครั้ง ต้องปรับ โค้ด vba ยังงัยให้เปิด auto เองเลยคะ

Code: Select all

Sub OpenWord_PWD()
      
    Dim wordapp
    Dim strFile As String
    strFile = "C:\D\OpenPWD.docx"
    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open strFile
    wordapp.Visible = True
  
    Dim DPDoc
    Dim DPApp
    Dim DPPath
    DPPath = "C:\D\OpenPWD.docx"
    Set DPApp = CreateObject("word.Application")
    DPDoc = DPApp.Documents.Open(DPPath)
    
    Dim YourOwnPassword As String
    YourOwnPassword = "12345"
    DPDoc = DPApp.Documents.Open(DPPath, PasswordDocument:=YourOwnPassword)

End Sub

[snasui]

ขออภัยที่หลุดสายตาจึงตอบช้าไปหน่อยครับ

ลองปรับ Code เป็นด้านล่าง

Code: Select all

Sub OpenWord_PWD()
    Dim DPDoc As Object
    Dim DPApp As Object
    Dim DPPath As String
    Dim YourOwnPassword As String
    
    YourOwnPassword = "12345"
    DPPath = "C:\D\OpenPWD.docx"
    
    Set DPApp = CreateObject("Word.Application")
    Set DPDoc = DPApp.Documents.Open(Filename:=DPPath, PasswordDocument:=YourOwnPassword, _
        ReadOnly:=True)
    DPApp.Visible = True
End Sub

จากไฟล์ตัวอย่างที่แนบมาเมื่อกำหนดเป็น ReadOnly ถึงจะเปิดได้โดยไม่ถาม Password ซ้ำครับ

[March201711]

ได้แล้วค่ะ ขอบคุณมากค่ะ อาจารย์