Problem beim Speichern einer Datei uber Makro :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Problem beim Speichern einer Datei uber Makro

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

dobby110
Newbie
Newbie

Anmeldedatum: 05.06.2008
Beiträge: 6

Verfasst am: 07.10.2008, 09:51

Hallo zusammen,

ich benötige hilfe bei einem Makro, welches ich erstellt habe.
Dieses sieht folgendermaßen aus:

Sub Macro1()

Windows("Datei_X.xls").Activate
ChDir "C:\ORDNERX\1234"
ActiveWorkbook.SaveAs Filename:= _
"J:\ORDNERX\1234\Datei_X.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close

End Sub

Was ich gerne haben möchte, ist ein Excel-Sheet welches bspw. folgende Werte in Spalte A stehen hat

Code:

90: : :M : : : : :C:O: : :200000 :40,75 :

in eine .txt Datei umzuwandeln.

Wenn ich dieses aber über oben aufgeführtes Makro laufen lasse, habe ich immer " vor der 94 stehen,
was dann so aussieht:

Code:

"90: : :M : : : : :C:O: : :200000 :40,75 :

Dieses " wird allerdings nicht in jeder Zeile vor die 90 gesetzt. Wenn ich die Datei ganz normal über "Speichern unter"
manuell als .txt Datei abspeichere, dann funktioniert es ohne das mir " vor die meisten Zeilen gesetzt wird.

Weiss jemand woran dies liegen könnte?

< Peter >
Schlauberger

Anmeldedatum: 30.08.2008
Beiträge: 235
Wohnort: Das schönste Land in Deutschlands Gaun

Verfasst am: 07.10.2008, 10:04

Hallo,

ich verwende für sowas in der Regel diesen Code:

Sub SaveCSV()
'Quelle: Thomas Ramel
Dim Bereich As Object
Dim Zeile As Object
Dim Zelle As Object
Dim strTemp As String

Const Pfad As String = "C:\Test\" 'anpassen
Const Dateiname As String = "test" 'anpassen
Const Extension As String = ".TXT" 'anpassen
Const Trennzeichen As String = ";" 'anpassen
Const Kapselzeichen As String = """" 'anpassen

'Hier kann auch ein eigener Range angegeben werden
'Set Bereich = ActiveSheet.Range("A1:B5")
Set Bereich = ActiveSheet.UsedRange

Open Pfad & Dateiname & Extension For Output As #1

For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, Trennzeichen) > 0 Then 'angepasst T.Ramel
'Zellen, die ein Trennzeichen beinhalten in Kapselzeichen setzen
strTemp = strTemp & Kapselzeichen & CStr(Zelle.Text) & _
Kapselzeichen & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
strTemp = Left(strTemp, Len(strTemp) - 1) 'angepasst T.Ramel
Print #1, strTemp
strTemp = ""
Next

Close #1
Set Bereich = Nothing
End Sub

Die Konstanten musst du noch anpassen.

_________________
Gruß
Peter

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Vierecke Word - Datei nicht mehr lesb...	Limited	Microsoft Word Hilfe	2	20.11.2008, 11:07
	2 DIN A4 Seiten zu einer DIN A3 Seite...	screamer	Microsoft Excel Hilfe	0	20.11.2008, 10:54
	Farbe beim Feld Vernüpfen übernehmen?	HALi	Microsoft Excel Hilfe	2	19.11.2008, 10:10
	VBA-Makro: Kalendereintrag kopieren?	SvenZ	Microsoft Outlook Hilfe	7	18.11.2008, 10:16
	Diplomarbeit----->Big Problem	shabbaz	Microsoft Word Hilfe	2	17.11.2008, 17:13

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de