Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Internetlink öffnen und Datei speichern.

Internetlink öffnen und Datei speichern.
CJ
Hy Leute,
ich möchte einen Internetlink öffnen (ein Beispiel):
http://www.office-loesung.de/download.php?id=46270
Die dadurch aufgerufene Datei soll er automtisch in einem definierten Pfad speichern.
Hat jemand einen Tipp?!
AW: Internetlink öffnen und Datei speichern.
20.07.2011 11:32:28
ransi
HAllo
MAch doch einfach so:
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 Sub


ransi
Anzeige
AW: Internetlink öffnen und Datei speichern.
20.07.2011 11:56:02
CJ
Hast du es selber schonmal probiert?!
Bei mir sagt er, dass er die Datei nicht findet.
Irgendwie muss man doch excel noch sagen, dass es nicht ein Pfad, sondern ein Link ist?!
AW: Internetlink öffnen und Datei speichern.
20.07.2011 12:09:23
ransi
HAllo
Der Code funktioniert.
Die Datei wird geöffnet, abgespeichert und geschlossen.
Irgendwie muss man doch excel noch sagen, dass es nicht ein Pfad, sondern ein Link ist?!
Warum das denn ?
Geh mal in Excel auf:
Datei--Öffnen...
Da kopierst du die Linkadresse rein.
ransi
ransi
AW: Internetlink öffnen und Datei speichern.
20.07.2011 14:39:46
CJ
Komisch, das FF-Download Manager öffnet sich kurz, danach kommt eine Fehlermeldung
"... konnte nicht geöffnet werden."
- Name, Pfad existiert nicht.
- Wird von einem anderen Programm benutzt.
- Name der Mappe existiert schon
?
Anzeige
Api: URLDownloadToFile Lib "urlmon" Alias "URLDow
20.07.2011 14:46:48
ransi
HAllo
Eigenartig...
Versuch mal was anderes:
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
    Dim myResult
    dieUrl = "http://www.office-loesung.de/download.php?id=46270"
    dasZiel = "C:/die_neue_Datei.xls"
    myResult = URLDownloadToFile(0, dieUrl, dasZiel, 0, 0)
    
End Sub


ransi
Anzeige
AW: Api: URLDownloadToFile Lib "urlmon" Alias "URLDow
20.07.2011 15:31:47
CJ
Vielen Dank Ransi, damit klappt es super...ich werd noch ein bisschen rumprobieren...
DANKE

92 Forumthreads zu ähnlichen Themen

Excel-Sheet als text-Datei speichern
Florian

Hallo!
Ich habe nur eun kleines Problem:
Ich lasse per Makro ein Excel-Blatt als TXT-Datei abspeichern!
Das ist der Code hierfür:
Sub DB_Kündigung_erstellen() Sheets("Kündigung").Select Rows("1:2").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlert...
05.09.2008 09:57:00
Thread-ID: 1007593
5 Beiträge
Anzeige
Einzelnes Sheet als Datei speichern
Thomas

Hallo,
ich möchte ein einzelnes ausgewähltes Tabellenblatt bzw. einen ausgewählten Bereich als neue Datei speichern. Wenn ich den Bereich auswähle mit Range("P1:AB32").select, kommt die Meldung dass in diesem Bereich keine Eingaben erfolgen dürfen, da ich mit einem anderen Makro einen Teil...
16.02.2009 03:34:00
Thread-ID: 1051012
4 Beiträge
Verlinunkungen als Datei speichern
Urmila

Hallo alle gemeinsam,
ich habe in einer Excelliste mit einige Verlinkungen auf Files (pdf, doc, xls, tif, jpg etc.)
Nun will ich dass die Files, die hinter den Verlinkungen verstecken, in einen bestimmten Ordner abspeichern. Ist das möglich?
Verlinkungen von Zelle A1 bis Zelle A350<...
20.03.2009 13:05:48
Thread-ID: 1062168
9 Beiträge
Anzeige
Worksheet als Datei wegspeichern
Peter

Liebes Forum,
in einer Datei Test habe ich 3 Worksheets: Kunde, Name, Alter.
Nun würde ich gern das Worksheet "Kunde" aus der offenen Datei als neue Datei: "Kunde.xls" abspeichern. Kann man das mit VBA machen und wenn ja wie?
Vielen Dank im voraus für Eure Hilfe
Peter
20.10.2009 09:17:56
Thread-ID: 1110793
3 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Alle Reiter als .txt-Datei abspeichern
F.

Hallo zusammen
Ganz offensichtlich habe ich Wünsche, die nicht meinen Kenntnissen entsprechen. ;) Deshalb meine nächste Frage an Euch.
Ich habe eine stattliche Anzahl von Reitern, welche ich einzeln als txt-Datei abspeichern möchte. Da Anzahl der Reiter variert jedes Mal. Wie kann dies...
27.01.2010 15:19:35
Thread-ID: 1133441
22 Beiträge
x-beliebiege Datei als Hyperlink in E-Mail zeigen
Urmila

Hallo alle zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich würde gerne in einer E-Mail nur einen Hyperlink zu einer Datei einfügen.
Das Problem ist nur, die Dateieindung kann immer anders sein, also doc, pdf, xls etc.
Pfad ist immer "C:\Test\", Dateiname steht in Spalte A, a...
08.04.2010 15:45:38
Thread-ID: 1150644
3 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
8
5
2
5
21
2
5
2
7
4
8
2
4
1
2
5
1
6
4
3
2
1