มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่

[apinomon]

สวัสดีครับ

คือว่าผมต้องการเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ ด้วยคำสั่ง VBA ครับ
สามารถใช้ Workbooks.Open ได้ไหมครับ พอดีลองแล้วมีป๊อบอัพแจ้งว่า ไม่พบครับ
หรือมีคำสั่งอื่นที่ทำได้รึเปล่าครับ

รบกวนแนะนำด้วยครับ
ขอบคุณครับ

[snasui]

ช่วยโพสต์ Code ที่ใช้สำหรับการเปิดไฟล์ใน Shared Folder ด้วยจะได้ชวยดูได้ครับ

[apinomon]

วันนี้ผมได้ลองพิมพ์โค้ดใหม่แล้วครับ ตอนนี้ทำได้แล้วครับ ตอนแรกสงสัยพิมพ์ผิดครับ

โดยใช้

Code: Select all

Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")

xx.x.xx.xx คือไอพีเครื่องแม่ที่แชร์
Data คือ Folder ที่แชร์
Find-Row.xlsx คือ ไฟล์ที่ต้องการเปิด

แต่ปัญหาตอนนี้คือ พอไปเปิดเข้าใช้ที่เครื่องแม่ที่แชร์ ซึ่งไฟล์ที่ไดร์ D
ไม่สามารถทำได้ครับ

[snasui]

โปรแกรมฟ้องว่าอย่างไรหรือไม่ช่วยแจ้งมาด้วยครับ

[apinomon]

ผมใช้โค้ดนี้ไปเปิดที่เครื่องลูกใช้ได้ครับ

Code: Select all

Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")

แต่พอไปเปิดที่เครื่องแม่โปรแกรมฟ้องว่า Runtime error คือหาไฟล์ไม่เจอครับ
ผมเลยเพิ่มโค้ดเข้าไปสำหรับเวลาไปเปิดที่เครื่องแม่ ดังนี้ครับ

Code: Select all

Workbooks.Open ("D:\Data\Find-Row.xlsx")

แล้วใส่

Code: Select all

On Error Resume Next

แล้วอยากให้ไฟล์ Find-Row.xlsx ถูกเปิดขึ้นอัตโนมัติเลยใส่โค้ดที่ ThisWorkbook ดังนี้ครับ

Code: Select all

Private Sub Workbook_Open()

On Error Resume Next

    Workbooks.Open ("D:\Data\Find-Row.xlsx")

    Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")

End Sub

ซึ่งพอใส่แล้วพอเปิดไฟล์ที่บันทึกด้วยมาโครแล้วไฟล์ Find-Row.xlsx ก็ถูกเปิดขึ้นอัตโนมัติได้ทั้งเครื่องแม่และเครื่องลูกครับ
แต่ถ้าเปิดที่เครื่องแม่จะมีป๊อบอัพแจ้งว่า Access denied. Contact your admin ครับ

ไม่ทราบว่าถ้าไม่อยากให้ป๊อบอัพขึ้นต้องทำยังไงครับ
และเวลาย้ายไฟล์ไปเครื่องอื่นต้องแก้ที่อยู่ไฟล์ใหม่ครับ ไม่ทราบว่ามีวิธีที่ไม่ต้องแก้ที่อยู่ไฟล์ใหม่บ่อยๆรึเปล่าครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'On Error Resume Next
If Environ$("ComputerName") = "YourServerName" Then
    Workbooks.Open ("D:\Data\Find-Row.xlsx")
Else
    Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")
End If

ํYourServerName ให้ใส่ชื่อของเครื่องที่ Shared ไฟล์ครับ

[apinomon]

ลองใส่โค้ดแล้วไม่มีป๊อบอัพแจ้งว่า Access denied. Contact your admin แล้วครับ

ขอบคุณครับ