2016-04-11 5 views
0

Nun, auf täglicher Basis extrahiere ich Daten aus SAP R/3 und erstellen Sie eine Excel-Berichte manuell, kann ich Spalten hinzufügen und Formeln verwenden, um das gewünschte Ergebnis zu erhalten, können Sie sehen unter dem Screenshot. muss die markierten gelben Spalten gewünschte Ergebnis unter Verwendung genannten FormelnSo automatisieren Sie tägliche Excel-Berichte für mehrere Blätter mit Makros

Mat count Daily Report

Ich arbeite an Makros hinzufügen und erhalten, aber kippe Ergebnis erhalten, so geben Sie bitte mir die Lösung meiner täglichen Excel-Sheet Bericht Makros dies mit automatisieren Excel-Tabelle haben 4 Registerkarte, 1. Pivot-Tabelle 2. Mat Bericht - Wie oben Bildschirm wie es ist 3. Auto/Non Auto: Von Status (letzte Spalte) Ich kann filtern und wählen Sie Auto und Non Auto Daten und Erstellen Sie Auto und nicht automatisch neue Registerkarte und Daten abrufen.

Unten ist der Code habe ich bisher:

Sub LoadData() ' ' LoadData Macro ' 

' With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Data\data.csv", Destination:=Range("$A$1")) 
.Name = "data" 
.FieldNames = True 
.RowNumbers = False 
.FillAdjacentFormulas = False 
.PreserveFormatting = True 
.RefreshOnFileOpen = False 
.RefreshStyle = xlInsertDeleteCells 
.SavePassword = False 
.SaveData = True 
.AdjustColumnWidth = True 
.RefreshPeriod = 0 
.TextFilePromptOnRefresh = False 
.TextFilePlatform = 437 
.TextFileStartRow = 1 
.TextFileParseType = xlDelimited 
.TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False 
.TextFileTabDelimiter = False 
.TextFileSemicolonDelimiter = False 
.TextFileCommaDelimiter = True 
.TextFileSpaceDelimiter = False 
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True 
.Refresh BackgroundQuery:=False End With 

End Sub 

ich oben Code bin mit Daten aus CSV-Datei zu laden, die in C Laufwerksort extrahiert wird, Danach habe ich Excel-Tabelle zu formatieren werde Füge die erforderliche Spalte mit der Formel hinzu, aber es wird nicht ausgeführt, was ich versuche zu tun.

Bitte helfen Sie mir. plz teilen, wie kann ich Excel täglich Vorlage ausführen zu tun, so dass es zu leicht geht wird täglich Bericht zu erstellen und manuelle Zeiten

Dank

Mrd.

+1

Während es scheint, dass Sie für eine Weile in der Nähe von SO waren, möchte ich Sie daran erinnern, dass SO kein kostenloser Code-Schreibdienst ist. Dennoch sind wir bestrebt, anderen Programmierern (und Aspiranten) mit ihrem Code zu helfen. Bitte lesen Sie die HILFE Themen für [Wie stelle ich eine gute Frage] (http://stackoverflow.com/help/how-to-ask), und auch, wie man ein [minimales, komplettes und überprüfbares Beispiel] (http: // stackoverflow.com/help/how-to-ask) erstellt : //stackoverflow.com/help/mcve). Danach aktualisieren Sie bitte Ihre Frage mit dem VBA-Code, den Sie bisher geschrieben haben, um die Aufgabe zu erfüllen, die Sie erreichen möchten. – Ralph

+0

Gegenwärtig ist der Code, den Sie hinzugefügt haben, als eine "Antwort" auf Ihre eigene Frage erschienen. Ich habe Ihren Code gepackt und Ihre Frage bearbeitet, um sie in die Frage einzubeziehen, um Verwirrung zu vermeiden. Sie können auch Ihre Antwort löschen, um Verwirrung zu vermeiden. – Monomeeth

Antwort

0

gut zu vermeiden, würde ich einen anderen Weg als VBA versuchen, da Sie eine typische ETL-Aufgabe ausführen. Verwenden Sie dafür das kostenlose Microsoft Add-In Power Query (Excel 2010 +). Es ist sehr mächtig und intuitiv. Sie können Ihre Daten aus Ihrer CSV-Datei (oder sogar direkt aus SAP) extrahieren, die fehlenden Spalten hinzufügen, um eine Tabelle als Quelle für Ihre Pivot-Tabelle zu erhalten.