[Help] VBA Code dowload File .zip từ FTP xuống máy tính (1 người xem)

[robinhsoon]

Xin chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ..
Hiện tại em muốn dùng VBA để dowload 1 File .zip từ FTP xuống máy tính.. em đã có:
Hotting: 192.1.xxx.xxxx
User: xxx
Pass worrd: xxxxx
Port: xx
Em có nguyên cứu trên mạng một số code, nhưng khi chạy thì lại không hoạt động được ạ... (Em có đính kèm File)
VBA có thể dùng để dowload File từ FTB được không ạ...
Mong cả nhà giúp đỡ....Em chân Thành cảm ơn ạ...

 

[AutoReply]

Xin chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ..
Hiện tại em muốn dùng VBA để dowload 1 File .zip từ FTP xuống máy tính.. em đã có:
Hotting: 192.1.xxx.xxxx
User: xxx
Pass worrd: xxxxx
Port: xx
Em có nguyên cứu trên mạng một số code, nhưng khi chạy thì lại không hoạt động được ạ... (Em có đính kèm File)
VBA có thể dùng để dowload File từ FTB được không ạ...
Mong cả nhà giúp đỡ....Em chân Thành cảm ơn ạ...

Hình như chỗ này cũng có code tải file từ FTP server nè bạn

http://www.giaiphapexcel.com/dienda...e-và-đổi-tên-mong-giúp-đỡ.125387/#post-786620

 

[robinhsoon]

Hình như chỗ này cũng có code tải file từ FTP server nè bạn

http://www.giaiphapexcel.com/diendan/threads/coppy-paste-file-và-đổi-tên-mong-giúp-đỡ.125387/#post-786620

Em cảm ơn Anh đã giúp đỡ ạ..

Em có test lại theo code anh hướng dẫn ở bài trên nhưng nó lại báo lỗi ở req.send
Anh giúp em xem File em đang bị lỗi gì nhé..

Sub hello()
Dim myURL As String, oStream As Object, bytes() As Byte, req As Object
myURL = "ftp://138.108.141.12/12345.txt"
Set req = CreateObject("MSXML2.XMLHTTP")
req.Open "ftp://138.108.141.12/", myURL, False, "xxxxx", "xxxxx"
req.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
bytes = req.responseBody
oStream.Write bytes
oStream.SaveToFile "C:\Users\nguy6001\Downloads\" & Mid(myURL, InStrRev(myURL, "/") + 1), 2
oStream.Close
End Sub

Em cảm ơn ạ..!

 

[AutoReply]

Em cảm ơn Anh đã giúp đỡ ạ..

Em có test lại theo code anh hướng dẫn ở bài trên nhưng nó lại báo lỗi ở req.send
Anh giúp em xem File em đang bị lỗi gì nhé..

Sub hello()
Dim myURL As String, oStream As Object, bytes() As Byte, req As Object
myURL = "ftp://138.108.141.12/12345.txt"
Set req = CreateObject("MSXML2.XMLHTTP")
req.Open "ftp://138.108.141.12/", myURL, False, "xxxxx", "xxxxx"
req.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
bytes = req.responseBody
oStream.Write bytes
oStream.SaveToFile "C:\Users\nguy6001\Downloads\" & Mid(myURL, InStrRev(myURL, "/") + 1), 2
oStream.Close
End Sub

Em cảm ơn ạ..!

Bạn xem lại dòng req.Open trong đường dẫn bài #2 nêu với code của bạn có gì khác nhau. Từ đó tìm hướng sửa nhé.

 

[robinhsoon]

Bạn xem lại dòng req.Open trong đường dẫn bài #2 nêu với code của bạn có gì khác nhau. Từ đó tìm hướng sửa nhé.

Cho em hỏi "FTPGET" cái này là khai báo cho gì ạ

 

[AutoReply]

Cho em hỏi "FTPGET" cái này là khai báo cho gì ạ

Khai báo cho ông system biết đây là loại hình gì. Chữ đó phải để y nguyên vậy.

 

[robinhsoon]

Khai báo cho ông system biết đây là loại hình gì. Chữ đó phải để y nguyên vậy.

Xin lỗi vì đã làm phiền anh, nhưng em sửa như bài ở đường dẫn #2.. vẫn báo lỗi như vậy ạ

Sub hello()
Dim myURL As String, oStream As Object, bytes() As Byte, req As Object
myURL = "ftp://138.108.141.12/12345.txt"
Set req = CreateObject("MSXML2.XMLHTTP")
req.Open "FTPGET", myURL, False, "XXXX", "XXXX"
req.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
bytes = req.responseBody
oStream.Write bytes
oStream.SaveToFile "C:\Users\nguy6001\Downloads\" & Mid(myURL, InStrRev(myURL, "/") + 1), 2
oStream.Close
End Sub

 

[AutoReply]

Xin lỗi vì đã làm phiền anh, nhưng em sửa như bài ở đường dẫn #2.. vẫn báo lỗi như vậy ạ

Sub hello()
Dim myURL As String, oStream As Object, bytes() As Byte, req As Object
myURL = "ftp://138.108.141.12/12345.txt"
Set req = CreateObject("MSXML2.XMLHTTP")
req.Open "FTPGET", myURL, False, "XXXX", "XXXX"
req.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
bytes = req.responseBody
oStream.Write bytes
oStream.SaveToFile "C:\Users\nguy6001\Downloads\" & Mid(myURL, InStrRev(myURL, "/") + 1), 2
oStream.Close
End Sub

từ đầu tới cuối bạn báo lỗi mà không có hình chụp sao ai biết lỗi gì ?
1 file trên FTP muốn tải được thì phải truy cập được bằng đường dẫn:

ftp://username:password@138.108.141.12/12345.txt

Bạn dán đường dẫn đó vào trình duyệt xem truy cập được không ?

 

[AutoReply]

Nếu Port không phải số 21 thì phải thêm Port sau IP nữa

ftp://username:password@138.108.141.12:portnumber/12345.txt

Và đường dẫn trên VBA

ftp://138.108.141.12:portnumber/12345.txt

 

[robinhsoon]

Nếu Port không phải số 21 thì phải thêm Port sau IP nữa

ftp://username:password@138.108.141.12:portnumber/12345.txt

Và đường dẫn trên VBA

ftp://138.108.141.12:portnumber/12345.txt

Port của em là Port 21 ạ... Chương trình duyệt vẫn hoạt động ạ
Em gửi Anh hình ảnh và File anh xem giúp em nhé

 

[AutoReply]

Port của em là Port 21 ạ... Chương trình duyệt vẫn hoạt động ạ
Em gửi Anh hình ảnh và File anh xem giúp em nhé

Code đứng tại dòng .Send có nghĩa là Login thất bại hoặc không tồn tại file.
Vậy thì vấn đề không còn nằm ở code nữa (code trên đã kiểm nghiệm trên window 10 và window server), mà nằm ở server của bạn. Cái này tôi không giúp được bạn nhé.