ทำไม vba paste data จึงไม่สามารถใช้กับระบบ network ได้ครับ

[godman]

พอดีผมมีปัญหาเกี่ยวกับการวางข้อมูล โดยผมมี vba ดังข้างล่างที่ผมทำให้ทั้งบริษัทให้ มีเครื่องคอม์ 39 คนที่ใช้ไฟล์ของผม โดยไฟล์นี้อยู่ที่ Drive document control ครับ ไฟล์นี้ใช้ vba ลิสต์ file ทั้งหมดใน folder ทั้ง 39 โฟล์เดอร์ ซึ่งก็คือ ชื่อของเจ้าของเครื่องที่มีสิทธิ์ลิ้งเข้าไป approve เอกสาร
โดยคำถามแรกคือ ทำไม vba อันนี้ใช้กับเครื่องผมได้ ไม่มีปัญหามันข้อการ paste data ข้ามไฟล์ครับ

Code: Select all

Sub RecordDocEvident()
Dim rs As Range, rt As Range
Dim i As Integer
Worksheets("StatusPage").Range("O1") _
    = Application.Max(Worksheets("Template") _
        .Range("A:A")) + 1
With Worksheets("Template")
    i = Application.CountIf( _
        .Range("H3:H91"), ">0")
    Set rs = .Range("A2:H" & 1 + .Range("I1"))
End With
    Set rt = Workbooks("2012.xls").Worksheets("DataEvident").Range("A65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
MsgBox "Finish Approve Process"

Range("Q18:Q52").Select
        Selection.ClearContents
End Sub

โดยมันขึ้น error debug ตามไฟล์แนบที่ผมแนบมาครับ ต้องเพิ่ม code ให้มันรู้จัก network drive v หรือไม่ต้องครับ
ขอบคุณครับ อาจารย์

[snasui]

การ Paste ข้ามไฟล์ตาม Code ที่เขียนมานั้นต้องเปิดไฟล์ปลายทางไว้ด้วยครับ

[godman]

อาจารย์ ครับ ผมก็เปิดไว้แล้วนะครับ ก็ยังมีปัญหาอยู่เหมือนเดิม มันเกี่ยวกับ ผู้ใช้กดวางข้อมูลที่ผมอนุญาติให้เป็น read only ไม่ทราบว่า เกี่ยวไหมครับ

[snasui]

ผู้ใช้กดวางข้อมูลที่ผมอนุญาติให้เป็น read only ไม่ทราบว่า เกี่ยวไหมครับ

มันเกี่ยวตอน Save ครับ มันไม่ให้ Save ลงไฟล์เดิม ยกเว้นว่า Folder นั้นกำหนดเป็น Read Only ด้วยก็จะบันทึกลง Folder นั้นไม่ได้ครับ

[godman]

ครับ ถ้าอย่างนั้นแสดงว่า ผมต้องเปลี่ยน folder ปลายทางให้เป็นแบบไม่ read only ขอบคุณครับ จะลองทำดูครับ