Snasui Excel Forum

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

ขอบคุณครับ :D

'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

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

[code]'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
[/code]

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

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

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

On Error Resume Next

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

ผมใช้โค้ดนี้ไปเปิดที่เครื่องลูกใช้ได้ครับ
[code]Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")[/code]

แต่พอไปเปิดที่เครื่องแม่โปรแกรมฟ้องว่า Runtime error คือหาไฟล์ไม่เจอครับ
ผมเลยเพิ่มโค้ดเข้าไปสำหรับเวลาไปเปิดที่เครื่องแม่ ดังนี้ครับ
[code]Workbooks.Open ("D:\Data\Find-Row.xlsx")[/code]

แล้วใส่
[code]On Error Resume Next[/code]

แล้วอยากให้ไฟล์ Find-Row.xlsx ถูกเปิดขึ้นอัตโนมัติเลยใส่โค้ดที่ ThisWorkbook ดังนี้ครับ
[code]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[/code]

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

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

ขอบคุณครับ :D

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

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

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

โดยใช้

[code]Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")
[/code]
xx.x.xx.xx คือไอพีเครื่องแม่ที่แชร์
Data คือ Folder ที่แชร์
Find-Row.xlsx คือ ไฟล์ที่ต้องการเปิด

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

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

สวัสดีครับ

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

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