[共享]使用Wininet的VBA FTP操作的类模块

012345679

端口没地方写呢?不是21的情况

hzxswfj

怎么看不到呢?

ls028

什么都没有,骗人的吧?

泓()

嗯 这个不错 我试过了 行
这个也可以实现 Excel网络化

lhmq

thanks very very much, this is a really great tool!

泓()

你好 版主
好像 不能上传当前正在运行的excel文件

也就是不能上传自己 这事怎么回事
有办法解决吗 期待

泓()

原帖由 泓() 于 2009-9-30 09:33 发表
你好 版主
好像 不能上传当前正在运行的excel文件

也就是不能上传自己 这事怎么回事
有办法解决吗 期待

我现在发现能传
但上传时 FTP方 的文件名是不能用变量的

winland

原帖由 泓() 于 2009-9-30 12:04 发表



我现在发现能传
但上传时 FTP方 的文件名是不能用变量的

不能用变量表示文件名吗？应该不会的，之前没碰到这样的问题。

泓()

Sub funFTP()
    If MsgBox("提交", vbExclamation + vbOKCancel, "网络客户端") = vbOK Then
        Dim strRemoteFile As String
        Dim strLocalFile As String
        If ThisWorkbook.Saved = False Then ThisWorkbook.Save
        Set cF = New cFTP
        cF.SetModePassive
        strLocalFile = ThisWorkbook.FullName
        strRemoteFile = "1.XLS"    ''''''这里不能用变量   连文字作 文件名也不行
        If cF.OpenConnection("192.168.1.119", "ccc", "123") = False Then
            GoTo errhandle
        End If
        If cF.FTPUploadFile(strLocalFile, strRemoteFile) = False Then
            GoTo errhandle
        End If
        cF.CloseConnection
        MsgBox "Ok"
        Exit Sub
errhandle:
        MsgBox "Sorry"    'cF.GetLastErrorMessage
        cF.CloseConnection
    End If
End Sub

你可以把我加的一些代码 综合看一下 不知出在哪里
你写的代码我基本没动

登陆密码

用户 密码
A        A1
B       B1
C       C1

winland

原帖由 泓() 于 2009-9-30 22:39 发表
Sub funFTP()
    If MsgBox("提交", vbExclamation + vbOKCancel, "网络客户端") = vbOK Then
        Dim strRemoteFile As String
        Dim strLocalFile As String
        If ThisWorkbook.Saved = Fals ...

奇怪的一个东西，我这里改成下面这样的（使用变量）也是可以用的。
strLocalFile = ThisWorkbook.FullName
strRemoteFile = "New_" & ThisWorkbook.Name
不知道你说的是不是这样的意思。