: GoogleAnalytics + Excel
    ~
Advanced Hosters -

dimok
: 08.06.2007
: 494
# : 09, 2010 4:31 pm
, . , , , . Google Analytics :



: , . .

CSV. , ( 10). , : 25 , , :



1000 . 50 000.

, , "" :

:
Sub custom_report_1_traffic_sources()
maxRecords = 65536 ' Change this in case you've got more records in your Excel worksheet
j1 = 1
Set oldSheet = Sheets(1)
Set NewSheet = Sheets.Add(After:=Worksheets(Worksheets.Count))
NewSheet.Cells(1, 1).Value = ""
NewSheet.Cells(1, 2).Value = ""
NewSheet.Cells(1, 3).Value = ""
NewSheet.Cells(1, 4).Value = ""
For i1 = 1 To maxRecords
If oldSheet.Cells(i1, 1) = " (%)" Then
'
NewSheet.Cells(j1 + 1, 1).Value = oldSheet.Cells(i1 - 3, 1)
NewSheet.Cells(j1 + 1, 2).Value = oldSheet.Cells(i1 - 1, 2)
NewSheet.Cells(j1 + 1, 3).Value = oldSheet.Cells(i1 - 2, 2)
NewSheet.Cells(j1 + 1, 4).Value = NewSheet.Cells(j1 + 1, 3).Value - NewSheet.Cells(j1 + 1, 2).Value
j1 = j1 + 1
End If
Next i1
'
With NewSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A:D")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
NewSheet.Range("A1:D1").Font.Bold = True
'
Range("D:D").Select
Set cfColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=3)
End Sub



, / :



, ? [URL="http://blog.dimok.ru/prodvinutyiy-analiz-istochnikov-trafika-google-analytics-excel"] [/URL].
, ,
Rotaban - !

deBrain
V.I.P.
: 03.06.2010
: 1569
# : 09, 2010 7:24 pm
.
+7
-)

: DigitalOcean
    ~