AW: Dateien zum Öffne selber wählen
02.12.2008 11:17:00
Josef
Hallo Beverly!
Habe gerade den Code probeweise zusammengesetzt und gestartet:
Sub Öffnen_kae()
'Dim Name As Variant
' ChDrive "K:\"
' ChDir "K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\erstes_Halbjahr_2008\ _
Neuer_Ordner\"
' Name = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
' Workbooks.OpenText Filename:=Name
Workbooks.Open Filename:="K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\ _
erstes_Halbjahr_2008\Neuer_Ordner\kaeausgabedateiMitTraeger.txt"
Call BereichGlaetten
Call Speichern_kae
End Sub
Sub BereichGlaetten()
Dim r As Range, c As Range
On Error Resume Next
Set r = ActiveSheet.Range("A1:R" & ActiveSheet.Range("A65536").End(xlUp).Row)
For Each c In r.Cells
c.Value = Application.WorksheetFunction.Trim(c.Value)
Next c
End Sub
Sub Speichern_kae()
ActiveWorkbook.Save 'As Filename:= _
"K:\Allg_dat\TRANSFER\HST\ABT08\Standesdifferenzen_2008\erstes_Halbjahr_2008\ _
Neuer_Ordner\kaeausgabedateiMitTraeger.txt" _
, FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close
End Sub
Bis zum Makro BereichGlaetten passt alles. Das speichern und SChliessen auch noch. Wenn ich jedoch die Textdatei nach öffne habe ich am Anfang und am Ende jeder Zeile ein " stehen.
Warum ist das bitte so und wwas muss ich bitte tun, damit das nicht passiert.
Danke
josef