Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Trudi vom 28.05.2020, 16:21 Options
Fehler in VBA Skript
Hallo Zusammen,
nun bin ich mit meine „Problem“ etwas weiter:
Ich habe folgendes VBA Skript:
Dim DateiName
DateiName = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
Range("B1").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;R:\xxx.txt", Destination _
:=Range("B1"))
.Name = "dsc2"
.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 = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Nun soll aber nicht die Datei xxx.txt geöffnet werden, sondern die Datei die ich zuvor mit Dateiname festgelegt habe.
Leider hab ich schon einige Varianten getestet und keine Funktioniert.
Weis jemand wie die richtige Lösung lautet?
Vielen Dank
Trudi
nun bin ich mit meine „Problem“ etwas weiter:
Ich habe folgendes VBA Skript:
Dim DateiName
DateiName = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
Range("B1").Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;R:\xxx.txt", Destination _
:=Range("B1"))
.Name = "dsc2"
.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 = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Nun soll aber nicht die Datei xxx.txt geöffnet werden, sondern die Datei die ich zuvor mit Dateiname festgelegt habe.
Leider hab ich schon einige Varianten getestet und keine Funktioniert.
Weis jemand wie die richtige Lösung lautet?
Vielen Dank
Trudi
Antwort 1 von Arno_Nym vom 28.05.2020, 17:19 Options
Zuerst die Connection-Zeichenfolge zusammenbauen und dann einsetzen:
Arno
Dim DateiName, [b]ConnString[/b]
DateiName = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
[b]ConnString [/b]= "TEXT;" & DateiName
With ActiveSheet.QueryTables.Add(Connection:=[b]ConnString[/b], Destination:=Range("B1"))
.Name = "dsc2"
.FieldNames = True
.
usw.Arno
Ähnliche Themen
In diesem Skript ist ein Fehler aufgetreten
Fidoro 06.04.2007 - 239 Hits -
VBS Skript zur Zeilenlöschung falls Zelle Bedingung erfüllt
MarcusLee 09.07.2007 - 37 Hits - 4 Antworten
k.schellnegger@ipnetwork.at
goldi8 14.09.2007 - 15 Hits - 1 Antwort
icq Fehler
Teufelin 29.12.2007 - 107 Hits - 1 Antwort
VBA Skript für Farbumstellung an Powerpointfolien
IDone 11.01.2008 - 28 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
