Sap Dat Datei hat irgendein seltsames Format
24.02.2005 14:40:27
lotharp
bin in SAP absoluter Rookie und versuche jetzt aufgrund verschiedener Reports die ich übernehmen soll mir das Leben zu vereinfachen.
So öffnet ein Kollege von mir in seinem Workplace immer verschiedene ABAPS die über Nacht abgelaufen sind. Diese Abaps werden dann direkt in Excel als .DAT geöffnet und er kopiert die dann, in eine Tabelle "DATENQUELLE" die alle Daten für seine Auswertungen bereithält, mit Inhalte einfügen/TEXT hinein.
Nun habe ich mir gedacht ich lasse mir die Dateien in ein Verzeichnis schreiben und lasse dann folgendes Makro laufen:
Sub UMSBezirk()
'Makro öffnet die benötigten Dateien für den Tagesreport von Gubor
Workbooks.Open "H:\CONTROLLING\ZSD_BEZ.dat"
Workbooks.Open "H:\CONTROLLING\BuPer GJ.xls"
Windows("ZSD_BEZ.dat").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("BuPer GJ.xls").Activate
Sheets("Datenquelle").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
WERTECHANGE
Sheets("Matrix").Select
End Sub
Sub WERTECHANGE()
'WERTEERSTELLEN
Range("A65536").Select
ActiveCell.FormulaR1C1 = "+1"
Selection.Copy
Range("J2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlMultiply, SkipBlanks _
:=False, Transpose:=False
End Sub
Den Schritt Wertechange mache ich um aus den gelieferten Werten Zahlen zu machen die zu verarbeiten sind.
Der Witz ist, mache ich das nachdem das Makro gelaufen ist nochmal manuell, bringt er mir das gewünschte Ergebnis, nur lass ich das Makro laufen stehen dort immer noch die gleichen Zahlen/Text wie vorher.
Was ist verkehrt!? Hoffe ihr versteht das Proböem und es kann jemand helfen?!
Gruß
Lothar