VBA - PasteSpecial Fehler
Klaus
ich habe ein Problem beim Kopieren und einfügen (als Werte) mittels Access.
Bisher lautet der Code folgendermaßen:
' Erstellt von XXXXX
ChDir "C:\Temp"
Workbooks.OpenText Filename:= _
"C:\Temp\test.txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Cells.Select
Selection.Copy
ChDir "C:\Temp\Ordner1"
Workbooks.Open Filename:= _
"C:\Temp\Ordner1\test.xls"
ActiveSheet.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Close
ERGEBNIS: Laufzeitfehler 1004
Kurz gesagt, ich möchte die Daten aus einer txt-Datei als Werte in eine Excel Datei einfügen.
Das ganze funktioniert mittels eines Userforms und entsprechenden Schaltflächen etc.
Da das ganze relativ aufwändig zu programmieren war (bisher funktionierte es, aber aufgrund einer Umstellung in der Datei (oder dem Format!?), will er nicht mehr...
Wär super, wenn ihr mir helfen könntet!
Anzeige