Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 6472 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
Microsoft Office
Excel File - an einer Stelle nur Lesen und an anderer Bearbeiten (2)

Frage von LenzDan zum Thema Microsoft Office ...

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

Frage von dressa zum Thema Microsoft Office ...

VB for Applications
Fusszeile mit PageSetup mit VBA in Excel Makro funktioniert nicht? (5)

Frage von HerrHart zum Thema VB for Applications ...

Neue Wissensbeiträge
Administrator.de Feedback

Umgangsformen auf der Seite

(7)

Information von Frank zum Thema Administrator.de Feedback ...

Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(11)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Dir tc Befehl unter Windows 10 macht Probleme (14)

Frage von sugram zum Thema Batch & Shell ...

Windows Server
Windows Server Komplettspiegelung (13)

Frage von pdiddo zum Thema Windows Server ...

Windows Server
Windows Server 2016 RDS Remoteapp Anzeigefehler (11)

Frage von qlnGenius zum Thema Windows Server ...