Chạy macro trên server

babygirl_8990

Thành viên mới
Tham gia ngày
16 Tháng mười 2018
Bài viết
20
Được thích
0
Điểm
163
Tuổi
29
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
 

befaint

|||||||||||||
Tham gia ngày
6 Tháng một 2011
Bài viết
9,048
Được thích
10,487
Điểm
1,560
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:=...
 

babygirl_8990

Thành viên mới
Tham gia ngày
16 Tháng mười 2018
Bài viết
20
Được thích
0
Điểm
163
Tuổi
29
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
 

batman1

Thành viên gắn bó
Tham gia ngày
8 Tháng chín 2014
Bài viết
2,831
Được thích
4,198
Điểm
560
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.
 
Top Bottom