Variable in Macro

Forumthread: Variable in Macro

Variable in Macro

22.10.2008 07:56:30

Ratzewatz

Ich möchte gerne in das vg. Macro auf Abfrage ein anderes Laufwerk, Pfad und Datei und Name (alles fett unterlegt)abrufen können, bzw. wie bringe ich Excel bei, beim Laden einer TXT-Datei den Konvertierungsassistent zu starten ?


Sub Z_Daten_laden()
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;H:\Fläche\2008\2008-HAU.TXT", Destination:=Range( _
"A1"))
.Name = "HAU"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variable in Macro

22.10.2008 11:25:26

fcs
AW: Variable in Macro

22.10.2008 12:06:18

Ratzewatz

AW: Variable in Macro

22.10.2008 11:25:26

fcs

Hallo Ratzewatz,
mit folgender Anpassung kannst du die Textdatei für die Querry variabel im Dateidialog wählen.
Den Text-Import-Assistenten kannst du meines Wissen nur starten, indem du die Textdatei mit dem Excel-Datei-Öffnen-Dialog öffnest.
Gruß
Franz


Sub Z_Daten_laden()
Dim varFileName, varQuerryName
'Textdatei auswählen
varFileName = Application.GetOpenFilename(Filefilter:="text(*.txt),*.txt", _
Title:="Bitte Textdatei mit Daten auswählen")
If varFileName = False Then Exit Sub
'Defaultname für Querry ermitteln
varQuerryName = Mid(varFileName, InStrRev(varFileName, "\") + 1)
varQuerryName = Left(varQuerryName, Len(varQuerryName) - 4)
'Name der Querry eingeben
varQuerryName = InputBox(Prompt:="Name der Query?", Title:="Querry Textdatei", _
Default:=varQuerryName)
If varQuerryName = "" Then Exit Sub
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & varFileName, Destination:=Range( _
"A1"))
.Name = varQuerryName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Sub Text_Daten_laden()
Dim varFileName
On Error GoTo Fehler
'Textdatei auswählen und öffnen (startet Text-Import-Assistenten)
varFileName = Application.Dialogs(xlDialogOpen).Show("*.txt")
If varFileName = False Then GoTo Fehler
ActiveSheet.Columns.AutoFit
Fehler:
If Err.Number  0 Then
MsgBox "Fehler-Nr.: " & Err.Number & vbLf & Err.Description
End If
End Sub

AW: Variable in Macro

22.10.2008 12:06:18

Ratzewatz

Danke für deine Mühe Franz, das war die Lösung. Da wäre ich nicht draufgekommen.
Gruß
Rene

Beliebteste Forumthreads (12 Monate)

Forumthread: Variable in Macro

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread