Chạy macro trên server

Liên hệ QC

babygirl_8990

Thành viên mới
Tham gia
16/10/18
Bài viết
42
Được thích
0
Chào mọi người cho em hỏi ạ: làm thế nào chạy được mã code cosolidate này trên server được ạ: chạy trên ổ D: thì ok mà thực hiện trên \\192. thì không được mà báo lổi không mở đươc

Sub GOP()
Sheets("QUYDOI").Select
Range("N5:O1000").ClearContents
Range("N5").Select
Selection.Consolidate Sources:= _
"'\\192.168.2.240\Public\TUY?N\00. ???????\[2???????_T?n kho tháng 2.xlsm]QUYDOI'!R5C10:R225C11" _
, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
cảm ơn mọi người
 
Mấy dấu hỏi ??? kia là đột tử rồi.
Đường dẫn kia không viết trực tiếp được VBA => Đường dẫn không tồn tại => Không mần gì được.
Vậy nên mọi người mới đề nghị rằng: Mọi tên Folder, tên File, tên Sheet nên là chữ abc không dấu má gì cả, để mọi thứ đơn giản và dễ dàng.
---
Tạm thời chép đường dẫn kia vào 1 cell (ví dụ tại A1), rồi gán vào code:
Selection.Consolidate Sources:= sheet1.range("A1").value2, Function:=...
 
Upvote 0
Mấy dấu hỏi ??? kia là đột tử rồi.
Đường dẫn kia không viết trực tiếp được VBA => Đường dẫn không tồn tại => Không mần gì được.
Vậy nên mọi người mới đề nghị rằng: Mọi tên Folder, tên File, tên Sheet nên là chữ abc không dấu má gì cả, để mọi thứ đơn giản và dễ dàng.
---
Tạm thời chép đường dẫn kia vào 1 cell (ví dụ tại A1), rồi gán vào code:
Selection.Consolidate Sources:= sheet1.range("A1").value2, Function:=...
Em cảm ơn hướng dẫn của anh , em đã đổi lại tên thư mục không dấu rồi, và áp dụng theo cách của anh vẫn không dc anh ạ.
. Vì file này nằm trên server public chung nên không thực hiển mở file tự động được. Có cách khác hướng dẫn em với ạ

Sub GOP()
Sheets("QUYDOI").Select
Range("N5:O1000").ClearContents
Range("N5").Select
Selection.Consolidate Sources:=Sheets("QUYDOI").Range("Q1").Value2, Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub
 
Upvote 0
Tôi không đeo kính nhưng nhìn thấy 2 ký tự " ở đầu và cuối. Xóa chúng đi.
 
Upvote 0
Web KT
Back
Top Bottom