Re: Excel FAQs von Hans
13.06.2003 11:06:14
Jochen
Hi,also folgendes, ich kopiere aus einem Programm das markierte in die Zwischenablage, dann rufe ich das Makro (import) auf:
Sub Import()
'
' Import Makro
' Makro aufgezeichnet am 15.05.03 von vschnabel
'
Selection.Paste
ChangeFileOpenDirectory "C:\Test\"
ActiveDocument.SaveAs FileName:="Test.txt", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close
Application.Quit
End Sub
...das den Inhalt aus der Zwischenablage in das Doku. reinkopiert und anschließend als txt abspeichert.
Danach öffne ich Excel und führe folgendes Makro aus:
Sub Importieren()
'
' Importieren Makro
' Makro am 15.05.2003 von vschnabel aufgezeichnet
'
' Tastenkombination: Strg+q
'
ChDir "C:\Test"
Workbooks.OpenText FileName:="C:\Test\Test.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(4, _
2), Array(10, 2), Array(13, 2), Array(32, 2), Array(34, 2), Array(56, 2), Array(61, 2), _
Array(65, 2), Array(67, 2), Array(68, 2), Array(71, 2))
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("L:L").EntireColumn.AutoFit
End Sub
...das die txt dann in Excel importiert.
Wie kann man das vereinfachen?
Gruß
Jochen