Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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
Anzeige
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


Anzeige
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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige