Upload/Dowload file từ FTP bằng Excel VBA

[bin.vcsc]

Anh chị và các bạn mình có thể tạo được Excel VBA để upload và download thông tin từ FTP về máy hoặc upload thông tin lên FTP không ah?

 

[thnghiachau]

Anh chị và các bạn mình có thể tạo được Excel VBA để upload và download thông tin từ FTP về máy hoặc upload thông tin lên FTP không ah?

Lâu rùi mình có lụm được trên gú-gồ, không biết giúp gì bạn không nhỉ....

 

[bin.vcsc]

Lâu rùi mình có lụm được trên gú-gồ, không biết giúp gì bạn không nhỉ....

Cám ơn bạn thnghiachau đã quan tâm và hỗ trợ. Tuy nhiên bạn có thể hướng dẫn mình cách sử dụng được không ah?

 

[thnghiachau]

Cám ơn bạn thnghiachau đã quan tâm và hỗ trợ. Tuy nhiên bạn có thể hướng dẫn mình cách sử dụng được không ah?

trong modul mình gởi có chú thích sử dụng mà...

 

[bin.vcsc]

trong modul mình gởi có chú thích sử dụng mà...

Gửi bác @thnghiachau mình giả nén ra file là đuôi .bas
Mình mở file này như thế nào nhỉ?

 

[thnghiachau]

Gửi bác @thnghiachau mình giả nén ra file là đuôi .bas
Mình mở file này như thế nào nhỉ?
View attachment 248193

Import vào trong cửa sổ VBA

 

[bin.vcsc]

Gửi @thnghiachau

Bin có file này bạn có thể xem giúp mình không ah?

 

[Cá ngừ F1]

Bản chất của FTP Data cũng như là Folder lưu trữ dữ liệu, bạn thử tham khảo hàm SaveSheet của thầy @ndu96081631
Tôi không nhớ là thớt nguồn ở đâu, bạn xem bài #6 trong thớt này rồi thử chế xem nhé

https://www.giaiphapexcel.com/diendan/threads/t%C3%A1ch-c%C3%A1c-sheets-t%C3%B9y-ch%E1%BB%8Dn-th%C3%A0nh-1-file-excel.151462/#post-986745

 

[thnghiachau]

Gửi @thnghiachau

Bin có file này bạn có thể xem giúp mình không ah?

FIle của bạn tôi không thể kiểm tra nổi vì nó sai tùm lum nên tôi làm lại và gởi file cho bạn
Tôi đã kiểm tra chạy xé gió rồi nhá...

 

[bin.vcsc]

FIle của bạn tôi không thể kiểm tra nổi vì nó sai tùm lum nên tôi làm lại và gởi file cho bạn
Tôi đã kiểm tra chạy xé gió rồi nhá...

Trước tiên cám ơn bạn @thnghiachau rất nhiều.

Tuy nhiên Bin chạy vẫn chưa được. Không biết nguyên nhân có phải là do mình cần điều chỉnh lại thông tin chỗ này không bạn?

 

[thnghiachau]

Trước tiên cám ơn bạn @thnghiachau rất nhiều.

Tuy nhiên Bin chạy vẫn chưa được. Không biết nguyên nhân có phải là do mình cần điều chỉnh lại thông tin chỗ này không bạn?

View attachment 248480

Bạn không cần phải chỉnh gì trong code hết.
Chỉ chỉnh thông tin FTP trên sheet mà thôi.
Tôi có ghi dữ liệu sẵn trong file, bạn chỉnh lại nhưng phải ĐÚNG THEO cách ghi sẵn trên đó.

---------------------------------------------------------------

Edit: Bạn cho coi setup cái FTP của bạn đi. (dĩ nhiên trừ Pass ra nhá )

 

[bin.vcsc]

Bạn không cần phải chỉnh gì trong code hết.
Chỉ chỉnh thông tin FTP trên sheet mà thôi.
Tôi có ghi dữ liệu sẵn trong file, bạn chỉnh lại nhưng phải ĐÚNG THEO cách ghi sẵn trên đó.

---------------------------------------------------------------

Edit: Bạn cho coi setup cái FTP của bạn đi. (dĩ nhiên trừ Pass ra nhá )

Bạn xem giúp mình nha.

 

[thnghiachau]

Bạn xem giúp mình nha.

/usr6/workfiles/inSGN/ => SAI
phải: //usr6/workfiles/inSGN/

 

[bin.vcsc]

/usr6/workfiles/inSGN/ => SAI
phải: //usr6/workfiles/inSGN/

Cám ơn bác @thnghiachau. Bin đang chỉnh lại và có vướng mắc làm phiền bác nha.
Và Bin cũng đang có một vướng mắc trong việc tạo file txt cho FTP, bạn xem giúp mình với.
Cảm ơn rất nhiều ah.

Macro hiện tại cho ra kết quả:
Q179EYP
ABC123
binary
lcd C:\VCSC\Tao_txt
cd /usr6/workfiles/
put
quit

Mình muốn kết quả như thế này, thì mình điều chỉnh lại macro như thế nào ah?

open VNSGNU01.VN.VCSC.COM <- Thêm dòng này vào file txt xuất ra.
Q179EYP
ABC123
binary
lcd C:\VCSC\Tao_txt
cd /usr6/workfiles/
put VCSC011102131800.txt <- Thêm tên file trong folder vào file xuất ra.
quit

 

[thnghiachau]

open VNSGNU01.VN.VCSC.COM <- Thêm dòng này vào file txt xuất ra.
....
put VCSC011102131800.txt <- Thêm tên file trong folder vào file xuất ra.

tôi không hiểu????

 

[bin.vcsc]

tôi không hiểu????

Đây là macro trong file excel Bin viết. Cần bổ sung 2 dòng thông tin như trên. Nhưng không biết làm như thế nào.
Bác xem giúp Bin với ah.

Sub TaoFTPcommand()

fn = ActiveWorkbook.Path & "\FtpComm.txt"

Open fn For Output As #1
Print #1, Sheets("Status Codes").Cells(4, 8).Value
Print #1, Sheets("Status Codes").Cells(5, 8).Value
Print #1, "binary"
Print #1, "lcd " & ActiveWorkbook.Path
Print #1, "cd /usr6/workfiles/inSGN/"
Print #1, "put " & FName
Print #1, "bye"
Close #1
End Sub

 

[thnghiachau]

Đây là macro trong file excel Bin viết. Cần bổ sung 2 dòng thông tin như trên. Nhưng không biết làm như thế nào.
Bác xem giúp Bin với ah.

Sub TaoFTPcommand()

fn = ActiveWorkbook.Path & "\FtpComm.txt"

Open fn For Output As #1
Print #1, Sheets("Status Codes").Cells(4, 8).Value
Print #1, Sheets("Status Codes").Cells(5, 8).Value
Print #1, "binary"
Print #1, "lcd " & ActiveWorkbook.Path
Print #1, "cd /usr6/workfiles/inSGN/"
Print #1, "put " & FName
Print #1, "bye"
Close #1
End Sub

thông tin bổ xung lấy ra từ đâu????

 

[bin.vcsc]

thông tin bổ xung lấy ra từ đâu????

1. open VNSGNU01.VN.VCSC.COM <- Dòng này là mặc định khi xuất file ra

2.put VCSC011102131800.txt <- Chỉ thêm tên file trong folder vào file xuất ra.

Mình có gửi đầy đủ file trong file zip.

 

[thnghiachau]

1. open VNSGNU01.VN.VCSC.COM <- Dòng này là mặc định khi xuất file ra

2.put VCSC011102131800.txt <- Chỉ thêm tên file trong folder vào file xuất ra.

Mình có gửi đầy đủ file trong file zip.

View attachment 248494

lại không hiểu???
1/ bạn viết được một rừng như thế thì tại sao dòng "open VNSGNU01.VN.VCSC.COM" này là mọt const string lại không biết viết như thế nào??????
2/ "VCSC011102131800.txt" này lúc nào cũng vậy hay là có sự thay đổi? nếu lúc nào cũng vậy thì quay về mục 1/ ; còn nếu thay đổi thì làm sao biết file nào để lấy cái tên mà ghi vào đây?

 

[bin.vcsc]

lại không hiểu???
1/ bạn viết được một rừng như thế thì tại sao dòng "open VNSGNU01.VN.VCSC.COM" này là mọt const string lại không biết viết như thế nào??????
2/ "VCSC011102131800.txt" này lúc nào cũng vậy hay là có sự thay đổi? nếu lúc nào cũng vậy thì quay về mục 1/ ; còn nếu thay đổi thì làm sao biết file nào để lấy cái tên mà ghi vào đây?

Hai câu hỏi của bạn đều đúng.
1/ bạn viết được một rừng như thế thì tại sao dòng "open VNSGNU01.VN.VCSC.COM" này là mọt const string lại không biết viết như thế nào??????
@bin.vcsc Do đây là file của người khác, mình đang chỉnh sửa lại cho phù hợp với nhu cầu của mình. Và thực sự mình cũng không rành về VBA ah.

2/ "VCSC011102131800.txt" này lúc nào cũng vậy hay là có sự thay đổi? nếu lúc nào cũng vậy thì quay về mục 1/ ; còn nếu thay đổi thì làm sao biết file nào để lấy cái tên mà ghi vào đây?
@bin.vcsc : Chính xác rồi ah. Đây cũng là khúc nhức đầu của mình. Mỗi lần sẽ tạo ra một file VCSC01xxxxxxxxxx (xxxxxxxxxx: đây là phần thay đổi khi tạo ra file đó: mmddhhmmss). và tên file này sẽ đưa vào file. Nếu bạn biết hướng dẫn mình với nha.