ทำไม vba paste data จึงไม่สามารถใช้กับระบบ network ได้ครับ
Posted: Tue Oct 02, 2012 12:17 pm
พอดีผมมีปัญหาเกี่ยวกับการวางข้อมูล โดยผมมี vba ดังข้างล่างที่ผมทำให้ทั้งบริษัทให้ มีเครื่องคอม์ 39 คนที่ใช้ไฟล์ของผม โดยไฟล์นี้อยู่ที่ Drive document control ครับ ไฟล์นี้ใช้ vba ลิสต์ file ทั้งหมดใน folder ทั้ง 39 โฟล์เดอร์ ซึ่งก็คือ ชื่อของเจ้าของเครื่องที่มีสิทธิ์ลิ้งเข้าไป approve เอกสาร
โดยคำถามแรกคือ ทำไม vba อันนี้ใช้กับเครื่องผมได้ ไม่มีปัญหามันข้อการ paste data ข้ามไฟล์ครับ
โดยมันขึ้น error debug ตามไฟล์แนบที่ผมแนบมาครับ ต้องเพิ่ม code ให้มันรู้จัก network drive v หรือไม่ต้องครับ
ขอบคุณครับ อาจารย์
โดยคำถามแรกคือ ทำไม 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ขอบคุณครับ อาจารย์
การ Paste ข้ามไฟล์ตาม Code ที่เขียนมานั้นต้องเปิดไฟล์ปลายทางไว้ด้วยครับ