AW: dateien aus ordner anzeigen/öffnen
21.10.2005 13:50:39
lexika
HI Matthias,
wollte in Deinen Code noch etwas hinzufügen jedoch ohne erfolg.
Da es csv-Dateien sind schreibt excel alles in die erste spalte. Denn code welchen ich einfügen wollte benutze ich auch beim importieren und da geht er. Wollte danach automatisch aus der tabelle ein diagramm erstellen lassen.
Vielleicht kannst Du mir ja helfen.
Sub BlattEinfügen()
Dim fn
Dim wb As Workbook, wb2 As Workbook
Set wb = ActiveWorkbook
fn = Application.GetOpenFilename("Excel-Dateien (*.csv),*csv")
If fn = False Then Exit
Sub 'Abbrechen geklickt
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open(Filename:=fn)
wb2.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)
With ActiveSheet
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.Refresh BackgroundQuery:=False
End With
wb2.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
Danke