title image


Smiley Daten aus auswählbarer Datei einlesen
Hallo Zusammen,



ich habe bisher folgenden Code zum Öffnen und Einlesen einer Datei (vermutlich noch nicht vollständig):



Private Sub Workbook_open()



Dim strFileFilter As String

Dim strFileTitle As String

Dim strFilePfad As String

strFileFilter = "CSV-Dateien (*.csv),*.csv"

strFileTitle = "Wählen Sie eine CSV-Datei aus"

If FileSpec(strFileFilter, strFileTitle) Then

Application.StatusBar = "Importiere Daten von " & varFileToOpen & "..."

Workbooks.Open Filename:=varFileToOpen

strFileDOS = Application.ActiveWorkbook.Name

strFilePfad = ActiveWorkbook.Path

Workbooks(strFileDOS).Close SaveChanges:=False

Application.StatusBar = False



With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;C:\Testdatei.xls" _

, Destination:=Range("A1"))

.Name = "Testdatei"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 850

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = False

.TextFileCommaDelimiter = True

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With



End If



End Sub



Wie bekomme ich jetzt den festvorgegebenen Dateinamen (Testdatei.xls) mit dem ausgewählten Dateinamen ersetzt, so dass die Daten aus der ausgewählten Datei auch eingelesen werden?



Im Voraus vielen Dank.



Gruß Sigurd


Gruß Sigurd

www.sigurd-pompetzki.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: