使用VBA，编写从FTP服务器获取文件夹及文件的名称，在连接FTP服务器时要设置IP和端口号

以下是使用VBA连接FTP服务器并获取文件夹及文件名称的示例代码，其中需要设置FTP服务器的IP和端口号：

Sub GetFTPFolderAndFileNames()
    Dim ftp As Object
    Dim ftpFolder As Object
    Dim ftpFile As Object
    Dim ftpFolderName As String
    Dim ftpFileName As String
    Dim ftpServer As String
    Dim ftpPort As Long
    
    '设置FTP服务器的IP和端口号
    ftpServer = "192.168.1.100"
    ftpPort = 21
    
    '连接FTP服务器
    Set ftp = CreateObject("WinSCP.Session")
    ftp.Open "ftp://" & ftpServer & ":" & ftpPort, "username", "password"
    
    '获取FTP服务器根目录下的所有文件夹及文件名称
    Set ftpFolder = ftp.ListDirectory("/")
    Do Until ftpFolder.Done
        ftpFolderName = ftpFolder.FileName
        Debug.Print "Folder: " & ftpFolderName
        Set ftpFile = ftpFolder.Files
        Do Until ftpFile.Done
            ftpFileName = ftpFile.FileName
            Debug.Print "File: " & ftpFileName
            ftpFile.Next
        Loop
        ftpFolder.Next
    Loop
    
    '关闭FTP连接
    ftp.Close
End Sub

在上述代码中，我们使用了WinSCP组件来连接FTP服务器并获取文件夹及文件名称。需要先在VBA项目的引用中添加WinSCP组件的引用。

在连接FTP服务器时，我们使用了FTP服务器的IP和端口号来指定连接的端口。在获取文件夹及文件名称时，我们使用了ListDirectory()方法来获取FTP服务器根目录下的所有文件夹及文件名称。