Lưu toàn bộ file có trong liên kết Excel

[LTCQB]

Chào mọi người. Em có bài này không biết phải làm sao,
Các file đã chèn vào trong excel đã bao gồm link dẫn mở file, Giờ em muốn lấy toàn bộ các file riêng đó ra coppy vào 1 thư mục bất kì thì lấy như thế nào ạ. Có > 1000 file theo link

 

[Phuocam]

Chào mọi người. Em có bài này không biết phải làm sao,
Các file đã chèn vào trong excel đã bao gồm link dẫn mở file, Giờ em muốn lấy toàn bộ các file riêng đó ra coppy vào 1 thư mục bất kì thì lấy như thế nào ạ. Có > 1000 file theo link
View attachment 278624

.

Hơn 1000 file thì dùng code mở từng file lên, lưu (save as) vào thư mục "bất kỳ", rồi đóng nó lại.

*** Phải biết trước đường dẫn của thư mục "bất kỳ".

.

 

[VetMini]

.

Hơn 1000 file thì dùng code mở từng file lên, lưu (save as) vào thư mục "bất kỳ", rồi đóng nó lại.

*** Phải biết trước đường dẫn của thư mục "bất kỳ".

.

Nhưng mà code ở đâu ạ?

Lưu ý là code mà không tối ưu thì số files của em nó sẽ phình lên con số > 10.000

 

[LTCQB]

.

Hơn 1000 file thì dùng code mở từng file lên, lưu (save as) vào thư mục "bất kỳ", rồi đóng nó lại.

*** Phải biết trước đường dẫn của thư mục "bất kỳ".

.

mở lên xong lưu 1000 lần hay sao ạ

 

[truongvu317]

Nếu đã có danh sách file rùi thì dùng code vba để copy là được, thế nếu bị trùng tên thì làm sao?

 

[VetMini]

Nếu đã có danh sách file rùi thì dùng code vba {1} để copy là được, thế nếu bị trùng tên {2} thì làm sao?

Nói chuyện bù trất. Người ta xin code mà bảo dùng code là thế nào?

{1} Có ít nhất là 3 cách copy files:
1. Dùng lệnh VBA FileCopy
2. Dựng một COM như FileSystemObject và bảo nó copy
3. Gọi một lệnh Shell để copy (điển hình là DOS command)

{2} Lúc copy sẽ có một đống tình huống trắc trở có thể xảy ra. Đâu phải chỉ trùng tên.

*** Copy cả ngàn files mà thớt nói chuyện hời hợt chả thấy đâu vào đâu cho nên mình cũng lười viết code.
Người đã từng copy cả đống files thì đã trải qua các tình huống bất trắc, lúc hỏi phải đưa những cách xử lý tình huống ấy.
Rõ ràng là chỉ có "sáng kiến" rồi vòi code chứ chưa hề làm bao giờ.

 

[LTCQB]

Nếu đã có danh sách file rùi thì dùng code vba để copy là được, thế nếu bị trùng tên thì làm sao?

Không trùng tên ạ, toàn bộ tên riêng, dùng code coppy như thế nào vậy ạ

 

[VetMini]

Không trùng tên ạ, toàn bộ tên riêng, dùng code coppy như thế nào vậy ạ

Code "coppy [sic]"

Giả sử có một name VungChuaTenFiles chỉ vào cái vùng chứa 1000 cái tên files

PhonDoMoi = Folder mới để copy vào
On Error Resume Next
For each FL In Range(VungChuaTenFiles)
FileCopy FL.Value, PhonDoMoi & MID(FL.Value, InStrRev(FL.Value, "\") + 1)
Next FL
On Error Goto 0

Code sẽ chơi kiểu B52 rải thảm. Ai chết ráng chịu.