Hallo zusammen
auf einem FTP Server werden jeden Tag in einem bestimmten Ordner Dateien abgelegt. Der Dateiname ändert sich laufend und dient daher nicht für das Makro.
Ich möchte nun mit Hilfe des Makros den FTP Server öffnen, eine Datei auswählen und dann in Excel öffnen damit die nachfolgenden Schritte vollzogen werden können.
Bisher sieht das bei mir so aus:
'** FTP Server und Pfad definieren, welcher geöffnet werden soll
Dim wshshell As Object
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "ftp://ftp.NAME DES SERVERS"
Nun hab ich zwar den Server offen, aber sobald ich die Datei auswähle wird sie zwar geöffnet, aber das Makro läuft nicht weiter.
Das ist der nächste Schritt:
'** Gewählte Datei öffnen
Set wb = Workbooks.Open(strFileName)
'Select data from source report PE and paste into working file
Range("A:AI").Select
Selection.Copy
Workbooks("Premium_Extra Cost Analysis_v3.0_global.xlsm").Activate
Worksheets("0. DATA INPUT").Visible = True
Sheets("0. DATA INPUT").Select
Range("A1").Select
ActiveSheet.Paste
(hier kommt noch viel mehr dahinter, aber das läuft alles)
Ich bin mir sicher, dass hier nur eine Kleinigkeit fehlt, um beide Stücke miteinander zu verbinden, aber ich komme nicht drauf.
Ich hoffe ihr könnt mir helfen... :-).
Beste Grüße
Julia