Page 1 of 1
มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Mon Mar 05, 2018 9:39 pm
by apinomon
สวัสดีครับ
คือว่าผมต้องการเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ ด้วยคำสั่ง VBA ครับ
สามารถใช้ Workbooks.Open ได้ไหมครับ พอดีลองแล้วมีป๊อบอัพแจ้งว่า ไม่พบครับ
หรือมีคำสั่งอื่นที่ทำได้รึเปล่าครับ
รบกวนแนะนำด้วยครับ
ขอบคุณครับ
Re: มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Mon Mar 05, 2018 9:43 pm
by snasui
ช่วยโพสต์ Code ที่ใช้สำหรับการเปิดไฟล์ใน Shared Folder ด้วยจะได้ชวยดูได้ครับ
Re: มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Tue Mar 06, 2018 10:29 am
by apinomon
วันนี้ผมได้ลองพิมพ์โค้ดใหม่แล้วครับ ตอนนี้ทำได้แล้วครับ ตอนแรกสงสัยพิมพ์ผิดครับ
โดยใช้
Code: Select all
Workbooks.Open ("\\xx.x.xx.xx\Data\Find-Row.xlsx")
xx.x.xx.xx คือไอพีเครื่องแม่ที่แชร์
Data คือ Folder ที่แชร์
Find-Row.xlsx คือ ไฟล์ที่ต้องการเปิด
แต่ปัญหาตอนนี้คือ พอไปเปิดเข้าใช้ที่เครื่องแม่ที่แชร์ ซึ่งไฟล์ที่ไดร์ D
ไม่สามารถทำได้ครับ
Re: มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Tue Mar 06, 2018 4:48 pm
by snasui
โปรแกรมฟ้องว่าอย่างไรหรือไม่ช่วยแจ้งมาด้วยครับ
Re: มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Tue Mar 06, 2018 8:03 pm
by 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")
แล้วใส่
แล้วอยากให้ไฟล์ 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 ครับ
ไม่ทราบว่าถ้าไม่อยากให้ป๊อบอัพขึ้นต้องทำยังไงครับ
และเวลาย้ายไฟล์ไปเครื่องอื่นต้องแก้ที่อยู่ไฟล์ใหม่ครับ ไม่ทราบว่ามีวิธีที่ไม่ต้องแก้ที่อยู่ไฟล์ใหม่บ่อยๆรึเปล่าครับ
ขอบคุณครับ
Re: มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Tue Mar 06, 2018 9:05 pm
by 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 ไฟล์ครับ
Re: มีวิธีเปิดไฟล์ที่เครื่องอื่นแชร์โฟล์เดอร์ไว้ด้วย VBA หรือไม่
Posted: Wed Mar 07, 2018 9:21 am
by apinomon
ลองใส่โค้ดแล้วไม่มีป๊อบอัพแจ้งว่า Access denied. Contact your admin แล้วครับ
ขอบคุณครับ