Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Per Makro Excel File an bestimmtes FTP Verzeichniss senden

Frage Internet Server

Mitglied: 75472

75472 (Level 1)

27.10.2009 um 07:39 Uhr, 6498 Aufrufe, 1 Kommentar

Hy,

Ich habe ein Makro um eine Exceldatei (ORDER.CSV) direkt an einen FTP Server (Bsp. 10.10.10.10) zu senden.

Mein Problem ist nun, dass ich die Datei gerne in ein Unterverzeichniss namens "Bestellung" senden möchte.
Allerdings habe ich es nicht geschafft, das Makro so anzupassen dass es das File in den Ordner sendet!


Hier der Quellcode:



Sub ODSorderSEND()

Dim lngInet As Long, lngINetConn As Long
Dim ACKNOWLEDGE As Boolean
Dim timeict As String
Dim cust As String

lngInet = InternetOpen("MyFTPControl", 1, vbNullString, vbNullString, 0)
If lngInet = 0 Then
MsgBox "Could Not SetUp FTP Environment"
End If
lngINetConn = InternetConnect(lngInet, "10.10.10.10", 0, "FTP123", "123456", 1, 0, 0)
If lngINetConn = 0 Then
MsgBox "Could Not Connect To FTP Site"
End If
'' To Change to a particular directory in the FTP folder
'ACKNOWLEDGE = FtpSetCurrentDirectory(lngINetConn, "DIR NAME")
'If ACKNOWLEDGE = False Then
'MsgBox "Could not change to the directory"
'End If
timeict = Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
cust = Range("B1")
ACKNOWLEDGE = FtpPutFile(lngINetConn, "Share\ORDER.csv", "ORDER." & cust & "_" & timeict, 2, 0)
If ACKNOWLEDGE = False Then
MsgBox "Could not transfer the file"
Else
MsgBox "ORDER CORRECTLY SENT", vbInformation
End If

If lngINetConn <> 0 Then InternetCloseHandle lngINetConn
If lngInet <> 0 Then InternetCloseHandle lngInet

End Sub


Kann mir jemand helfen?
Mitglied: 75472
27.10.2009 um 07:46 Uhr
Hy

Hab mir das Makro gerade angeschaut, die Lösung steht ja schon da...

'' To Change to a particular directory in the FTP folder
'ACKNOWLEDGE = FtpSetCurrentDirectory(lngINetConn, "DIR NAME")
'If ACKNOWLEDGE = False Then
'MsgBox "Could not change to the directory"
'End If


War nur nicht aktiv
Bitte warten ..
Ähnliche Inhalte
Windows Server
Portierung IIS6 Virtuelle FTP Verzeichnisse nach IIS8 FTP (1)

Frage von flop zum Thema Windows Server ...

Microsoft Office
gelöst Excel 2010 Makro Ausgabe in bestimmter Tabelle ausgeben (6)

Frage von dressa zum Thema Microsoft Office ...

Batch & Shell
gelöst Update mehrerer Verzeichnisse auf FTP-Server (3)

Frage von caspi-pirna zum Thema Batch & Shell ...

Windows Tools
Verzeichnisse synchronisieren unter bestimmten Umständen (3)

Frage von jojo0411 zum Thema Windows Tools ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (19)

Frage von McLion zum Thema Router & Routing ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (18)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Server
Kennwort vergessen bei Hyper vserver 2012r (17)

Frage von jensgebken zum Thema Windows Server ...

Festplatten, SSD, Raid
Raidcontroller funktioniert nur, wenn unter Legacy-Boot gestartet wird (13)

Frage von DerWoWusste zum Thema Festplatten, SSD, Raid ...