Um einen Internetlink in Excel zu öffnen und die Datei automatisch zu speichern, kannst du folgenden VBA-Code verwenden:
Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Option Explicit
Public Sub machs()
Dim WB As Workbook
Set WB = Workbooks.Open("http://www.office-loesung.de/download.php?id=46270")
With WB
.SaveAs "C:/Neue_Datei.xls"
.Close True
End With
End SubPasse den Pfad in der SaveAs-Methode an, um die Datei an dem gewünschten Ort zu speichern.
Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.
Fehler: "Die Datei konnte nicht geöffnet werden."
Fehler: "Name, Pfad existiert nicht."
Fehler: "Wird von einem anderen Programm benutzt."
Eine weitere Möglichkeit, einen Internetlink in Excel zu öffnen und die Datei zu speichern, ist die Verwendung der URLDownloadToFile-Funktion. Hier ist der Code:
Öffne den VBA-Editor wie zuvor beschrieben.
Füge den folgenden Code in ein neues Modul ein:
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Public Sub machs()
Dim dieUrl As String
Dim dasZiel As String
dieUrl = "http://www.office-loesung.de/download.php?id=46270"
dasZiel = "C:/die_neue_Datei.xls"
URLDownloadToFile 0, dieUrl, dasZiel, 0, 0
End SubÄndere den Zielpfad an, um die Datei an dem gewünschten Ort zu speichern.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen