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, 6483 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
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

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 ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Rechtliche Fragen
gelöst Geschäftsführer Email gefaked (18)

Frage von xbast1x zum Thema Rechtliche Fragen ...

Vmware
VMware ESX - Start einer VM verhindern (16)

Frage von emeriks zum Thema Vmware ...

Vmware
gelöst Update auf ESXI 6.5 Installieren (15)

Frage von zeroblue2005 zum Thema Vmware ...

iOS
IPhone wird ferngesteuert Hacker? (15)

Frage von Akcent zum Thema iOS ...