Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

knifflig

knifflig
04.07.2002 16:24:58
MisterNP
Hat schon mal jemand den FTP-upload mit diesem Skript probiert?
Anscheinend is hier noch ein kniffliger Fehler versteckt

https://www.herber.de/cgi-bin/callsmpl.pl?Datei=157501h.htm

'StandardModule: basMain

Sub DownIndexXLS()
Close
Open "c:\LogIn.txt" For Output As #1
Print #1, "Benutzername"
Print #1, "Passwort"
Print #1, "cd www"
Print #1, "cd forum"
Print #1, "binary"
Print #1, "get index.xls c:\test\test.xls"
Print #1, "quit"
Close
Call Win32WaitTilFinished("ftp -s:c:\login.txt ftp.herber.de")
Workbooks.Open "C:\test\test.xls"
End Sub

Sub UpIndexXLS()
Dim strDate As String
Open "c:\LogIn.txt" For Output As #1
Print #1, "Benutzername"
Print #1, "Passwort"
Print #1, "cd www"
Print #1, "cd forum"
Print #1, "binary"
Print #1, "put c:\test\test.xls"
Print #1, "quit"
Close
Call Win32WaitTilFinished("ftp -s:c:\login.txt ftp.herber.de")
MsgBox "Daten wurden hochgeladen!"
End Sub

'StandardModule: basFunctions

Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const WAIT_TIMEOUT = &H102&

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long

Sub Win32WaitTilFinished(ProgEXE As String)
Dim ProcessID As Long
Dim hProcess As Long
Dim RetVal As Long

ProcessID = Shell(ProgEXE, vbHide)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
Do
DoEvents
RetVal = WaitForSingleObject(hProcess, 50)
Loop Until RetVal <> WAIT_TIMEOUT
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: knifflig
04.07.2002 17:04:20
Hans W. Herber
Hallo,

in diesem Forum bitte mit Real(vor)namen auftreten, danke.

Ich habe die Scripts nochmal getestet und keinen Fehler finden können.

hans

Re: knifflig
04.07.2002 17:08:15
Robert (MisterNP)
Sorry wegen dem Vornamen

Anscheinend kapier ich es einfach nicht
Wie stellt er denn nun die Verbindung zum FTP-Server her?
Was bedeuten die einzelnen Zeilen im txt-File.
Benutzername und Passwort ist mir ja noch klar, aber der Rest?

Wäre nett, wenn Du mir helfen könntest.

Danke

Robert

Re: knifflig
04.07.2002 17:14:39
Hans W. Herber
Hallo Robert,

es handelt sich hier um Befehle des MS-Windows-FTP-Programms, sie haben nichts mit Excel zu tun.
Ich habe die eine Übersicht auf den Server gestellt:
https://www.herber.de/andere/ftp&telnet.txt

hans

Anzeige
Re: knifflig
05.07.2002 09:38:44
Robert (MisterNP)
Vielen Dank
ich mach mich gleich darüber her und schau mir das ganze an
wird schon klappen

Vielen Dank

Robert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige