Excel / 如何使用VBA連線FTP 2

Excel / 如何使用VBA連線FTP 2

Post Views: 112

Excel / 如何使用VBA連線FTP 提供了2種透過windows內建ftp程式的連線方式

但是這可能會因為ftp伺服器的關係而無法使用

例如採取加密的ftp伺服器就會因為無法連線而不能夠使用

所以再次爬文，尋找可以在命令列介面(Command-line interface)執行，並且可以使用安全性設定的ftp程式

後來找到WinSCP，可以用命令列(Command-Line)來執行

而且這個程式也提供COM 物件的DLL檔案

因此也可以在C#、VB.net、VBA、PowerShell中使用

本篇先介紹單純使用winscp.com在命令列介面的使用方式

1.先安裝 winscp

會將winscp.com綁進環境變數

2.修改原本的程式

以下的程式碼是連接到使用外顯TLS加密的ftp主機

 

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub FTP_SHELL5()
    Dim strPNAME As String                                               '參數文件名
    Dim fingerprint As String                                            '文件編號
    strPNAME = ThisWorkbook.Path & "\ftptest.txt"  '文件名生成
    
    fingerprint = "*************************************************"    'TLS SHA
    
    Dim fsT As Object
    Set fsT = CreateObject("ADODB.Stream")
    fsT.Type = 2 'Specify stream type - we want To save text/string data.
    fsT.Charset = "utf-8" 'Specify charset For the source text data.
    fsT.Open 'Open the stream And write binary data To the object
    fsT.WriteText "open ftpes://主機名稱-certificate=" & fingerprint & " -rawsettings ProxyPort=0" & Chr(10) '& Chr(13)
    fsT.WriteText "帳號" & Chr(10) '& Chr(13)
    fsT.WriteText "密碼" & Chr(10) '& Chr(13)
    fsT.WriteText "cd WWW" & Chr(10) '& Chr(13)   '切換到WWW
    fsT.WriteText "cd shares" & Chr(10) '& Chr(13)'切換到shares
    fsT.WriteText "get Screenshot_1.jpg " & """" & ThisWorkbook.Path & "\" & """" & Chr(10) '& Chr(13) '下載檔案
    fsT.WriteText "close" & Chr(10) '& Chr(13)
    fsT.WriteText "exit" & Chr(10) '& Chr(13)
    fsT.SaveToFile strPNAME, 2 'Save binary data To disk

    Application.Wait (Now + TimeValue("0:00:01")) '程式暫停
	
    Shell "winscp.com /ini=nul /script=" & """" & strPNAME & """", 3 '執行命令
    
    Application.Wait (Now + TimeValue("0:00:03")) '程式暫停  避免還沒下載檔案就刪除命令檔
    
    Dim xFile As String
    xFile = Dir(strPNAME)
    
    'Debug.Print xFile    
    If xFile <> "" Then
        Kill strPNAME
    End If
End Sub

 

3.補充說明

1)為了避免寫出的txt檔變成亂碼，因此改用ADODB.Stream物件來生成txt

指定編碼格式為utf-8的文件檔

2)程式碼也可以從 winscp視窗介面中取得

 

 

也是透過這裡的程式碼才知道，要改用ftpes，以及TLS的sha碼應該如何設定

Tags: