2016-04-11 17 views
0

Eh, Günlük olarak SAP R/3'ten veri ayıklamak ve el ile bir excel raporu oluşturmak, sütunlar ekleyebilir ve istenen sonucu elde etmek için formüller kullanabilirim; ekran görüntüsünün altında. vurgulanan sarı sütunlar ekleyebilir ve ben makrolar üzerinde çalışıyorum ama cant sonuç almak belirtilen formüllerMakroları kullanarak birden fazla sayfa için günlük excel raporlarını otomatikleştirme nasıl yapılır

Mat count Daily Report

kullanarak gerekli sonucu almak gerekir, bu nedenle makro Bu kullanarak benim günlük excel levha raporunu otomatik hale getirmek için bana çözüm sağlamak lütfen excel sheet 4 tab, var 1. Pivot Tablo
2. Mat Rapor- Yukarıda belirtildiği gibi ekran 3. Otomatik/Otomatik Olmayan: Durumdan (Son Sütun) Otomatik ve Otomatik Olmayan verileri filtreleyip seçebilirim Otomatik ve Otomatik Olmayan yeni sekme oluştur ve veri al.

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 

C sürücüsü konumda ayıklanır .csv dosyası veri yüklemek için kodunun üzerinde kullanıyorum, Bundan sonra tabakayı excel biçimlendirmek için gidiyorum: Aşağıda

var bugüne kadar kodudur formülle gerekli sütunu ekleyin ancak yapmaya çalıştığım şeyi yürütmeyecek.

Lütfen bana yardım edin. plz Ben her gün çalıştırmak için yapılması nasıl paylaşabilir, VBA gibi başka bir yolu denemez, bu manuel kez

Teşekkür

milyar

+1

Bir süredir buralarda bulunduğunuz görünse de, SO'nın ücretsiz bir kod yazma hizmeti olmadığını size hatırlatmak isterim. Yine de, diğer programcılara (ve adaylara) kendi kodlarıyla yardım etmeye istekliyiz. Lütfen [İyi Soru Nasıl Sorulurum?] (Http://stackoverflow.com/help/how-to-ask) ve ayrıca [Minimal, Complete ve Verifiable örneği] oluşturma hakkında YARDIM konularını okuyun (http : //stackoverflow.com/help/mcve). Daha sonra, sormak istediğiniz görevi tamamlamak için lütfen yazdığınız VBA kodu ile sorunuza güncelleyin. – Ralph

+0

Şu anda eklediğiniz kod, kendi sorunuz için bir 'cevap' olarak görünüyor. Kodunuzu tuttum ve herhangi bir karışıklıktan kaçınmak için sorunuza dahil etmek için sorunuzu düzenledim. Ayrıca karışıklığınızı önlemek için cevabınızı da silmek isteyebilirsiniz. – Monomeeth

cevap

0
iyi

günlük rapor oluşturmak ve önlemek için kolay olacak böylece, şablon excel Tipik bir ETL görevi yaptığınızdan beri. Bunun için ücretsiz Microsoft Add-In Power Query (Excel 2010 +) kullanın. Çok güçlü ve sezgisel. Verilerinizi csv-File'ınızdan (hatta doğrudan SAP'den) ayıklayabilir, bir tabloyu pivot tablonuz için kaynak olarak almak için eksik sütunları ekleyebilirsiniz.

İlgili konular