knifflig

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
  • knifflig von MisterNP vom 04.07.2002 - 16:24:58
nach unten

Betrifft: knifflig
von: MisterNP
Geschrieben am: 04.07.2002 - 16:24:58

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

nach oben   nach unten

Re: knifflig
von: Hans W. Herber
Geschrieben am: 04.07.2002 - 17:04:20

Hallo,

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

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

hans


nach oben   nach unten

Re: knifflig
von: Robert (MisterNP)
Geschrieben am: 04.07.2002 - 17:08:15

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


nach oben   nach unten

Re: knifflig
von: Hans W. Herber
Geschrieben am: 04.07.2002 - 17:14:39

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

nach oben   nach unten

Re: knifflig
von: Robert (MisterNP)
Geschrieben am: 05.07.2002 - 09:38:44

Vielen Dank
ich mach mich gleich darüber her und schau mir das ganze an
wird schon klappen

Vielen Dank

Robert


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Text-Datei mit Excel öffnen"