|
|
各位大侠，以下是小弟所写的一段vba的源程序（也是借鉴了网上的一些资料写的），其目的是通过shell命令将指定的excel文件传送到ftp服务器上，现在遇到了几个技术问题，希望高手给与指教：
1.该段程序的倒数第四、第五行及kill语句如果执行的话，则文件无法上传成功，如果这两句不执行的话，则可以上传成功，请问是何原因？
2.在上传之前如何确认指定的ftp地址是可以连通的？
3.如何确认文件已经成功发送到指定的ftp服务器上？
因为急用，请高手给于解答，谢谢了！！！
Sub DataUpLoad() '通过网络上传文件至服务器
Dim StrFileName As Variant '需要上传的文件名
Dim StrBatFile, StrOrderPutFile, StrTemp1, StrTemp2 As String '生成的dos文件名
Dim IntFileNum As Integer '取得文件号
Dim pid, ExitEvent As Long
Dim StrDirName As String
Dim host, user, pswd, ftpDir As String
'*****************************
'以下代码获得上传的文件名称
'*****************************
StrFileName = Application.GetOpenFilename("xls 文件(*.xls),*.xls") '存储打开文件的全名称
If StrFileName = False Then
MsgBox "未选择文件，传输失败！", vbOKOnly
Exit Sub
End If
Application.EnableCancelKey = xlDisabled
Application.DisplayAlerts = False
StrDirName = ThisWorkbook.Path
On Error Resume Next
host = "10.1.1.22" '***************************************
user = "Lulu" '服务器地址、用户名及口令、目录 *
pswd = "123456" '***************************************
ftpDir = "\filedir"
StrTemp1 = "open " & host & vbCrLf & "user " & user & " " & pswd & vbCrLf & "bin" 'Chr(13) + Chr(10) 回车符与换行符结合
StrTemp2 = vbCrLf & "cd " & ftpDir & vbCrLf & "lcd " & """" & StrDirName & """" & vbCrLf & "put " & """" & StrFileName &
"""" & vbCrLf & "bye"
'StrTemp2 = vbCrLf & vbCrLf & "lcd " & """" & StrDirName & """" & vbCrLf & "put " & """" & StrFileName & """" & vbCrLf &
"bye"
StrOrderPutFile = StrTemp1 & StrTemp2
IntFileNum = FreeFile '随机取得一个未使用的文件号
Open "c:\putfile.txt" For Output As #IntFileNum '?在c:\目录下建立文本文件putfile.txt
Print #IntFileNum, StrOrderPutFile '在文件中写入命令内容?
Close (IntFileNum) '关闭文件?
StrBatFile = "ftp -n < c:\putfile.txt" & vbCrLf & "exit" & vbCrLf & "exit"
IntFileNum = FreeFile '随机取得一个未使用的文件号
Open "c:\put.bat" For Output As #IntFileNum '在C:\?建立put.bat文件
Print #IntFileNum, StrBatFile '在文件中写入命令内容?
Close (IntFileNum) '关闭文件?
pid = Shell("c:\put.bat") '执行put.bat文件
On Error Resume Next
Do While True
AppActivate pid, True
If Err <> 0 Then Exit Do
Loop
'Kill "c:\put.bat" '删除c盘的put.bat文件
'Kill "c:\putfile.txt" '删除c盘的putfile.txt文件
MsgBox "上传完毕!"
Application.DisplayAlerts = True
End Sub
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2007-12-10 22:13