Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei aus Zelleninhalt erstellen

Datei aus Zelleninhalt erstellen
12.12.2007 10:48:19
Martin
Hi!
Ich habe folgenden code gestern bekommen:

Sub CreateHTML()
Const Dateiname = "C:\test.html"
Dim ff As Integer
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Sheets("Tabelle1").Range("A1").Value
Close #ff
End Sub


Der funkt auch wunderbar! Ich brauche nun aber eine erweiterung von diesem code.
Ich habe mehrer Zeilen (unterschiedlich) wo in A der Inhalt der Datei drin ist un din B der Name unter dem die Datei gespeichert werden soll.
Kann man sowas machen?
MFG
Martin Sch.

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei aus Zelleninhalt erstellen
12.12.2007 13:32:32
otto
Hi,

Sub speichern()
Dim dateiPfad As String
Dim Name As String
dateiPfad = "C:\Dokumente und Einstellungen\"
Name = Cells(1, 2)
Worksheets("Tabelle1").Copy
Worksheets("Tabelle1").SaveAs Filename:=(dateiPfad & Name) _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


Gruß
otto

Anzeige
AW: Datei aus Zelleninhalt erstellen
12.12.2007 16:48:00
Martin
Hi!
Hab die beiden codes zusammengefasst zu einem! Der trifft es fast!

Sub CreateHTML2()
Dim dateiPfad As String
Dim Dateiname As String
Dim Name As String
dateiPfad = "C:\Dokumente und Einstellungen\"
Name = Cells(1, 2)
Dateiname = (dateiPfad & Name)
Dim ff As Integer
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Sheets("Tabelle1").Range("a1").Value
Close #ff
End Sub


Was ich aber noch brauche ist, das wenn ich in A 3 Inhalte für die HTML Seite habe und in B die jeweiligen dazugehöhrigen Dateinamen, das damit 3 seperate Dateien entstehen! (die Anzahl der Dateien kann vareieren!)
MFG
Martin Sch.

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige