ࡱ > _ o } y ( Save u " Tahoma53 ( Cancel53 u " Tahoma53Ѝ $ # Frame1 g , 4 CommandButton1 :k * , 8 CommandButton2 :' *
Microsoft Forms 2.0 Form Embedded Object 9q VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Coghei 0 5 D L J n` ` ЍЍ f o o I K e l C o m p O b j c p
\ p Diablo Yang B a = ThisWorkbook = K !|< X@ " 1 [SO1 [SO1 [SO1 [SO1 [SO1 [SO1 [SO1 M a r l e t t 1 [SO1 [SO1 [SO1 4 [SO1 [SO1 [SO1 [SO1 , 8 [SO1 8 [SO1 8 [SO1 > [SO1 4 [SO1 < [SO1 ? [SO1 h 8 [SO1 [SO1
[SO "$"#,##0_);\("$"#,##0\) ! "$"#,##0_);[Red]\("$"#,##0\) " "$"#,##0.00_);\("$"#,##0.00\) ' " "$"#,##0.00_);[Red]\("$"#,##0.00\) 7 * 2 _("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_) . ) ) _(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_) ? , : _("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_) 6 + 1 _(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) + " " # , # # 0 ; " " \ - # , # # 0 5 " " # , # # 0 ; [ R e d ] " " \ - # , # # 0 7 " " # , # # 0 . 0 0 ; " " \ - # , # # 0 . 0 0 A " " # , # # 0 . 0 0 ; [ R e d ] " " \ - # , # # 0 . 0 0 i 2 _ " " * # , # # 0 _ ; _ " " * \ - # , # # 0 _ ; _ " " * " - " _ ; _ @ _ . ) _ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y : _ " " * # , # # 0 . 0 0 _ ; _ " " * \ - # , # # 0 . 0 0 _ ; _ " " * " - " ? ? _ ; _ @ _ 6 1 _ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\) \$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\) % \$#,##0.00_);[Red]\(\$#,##0.00\) + " " # , # # 0 ; \ - " " # , # # 0 5 " " # , # # 0 ; [ R e d ] \ - " " # , # # 0 7 " " # , # # 0 . 0 0 ; \ - " " # , # # 0 . 0 0 A " " # , # # 0 . 0 0 ; [ R e d ] \ - " " # , # # 0 . 0 0 e 0 _ - " " * # , # # 0 _ - ; \ - " " * # , # # 0 _ - ; _ - " " * " - " _ - ; _ - @ _ - , ' _-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_- u 8 _ - " " * # , # # 0 . 0 0 _ - ; \ - " " * # , # # 0 . 0 0 _ - ; _ - " " * " - " ? ? _ - ; _ - @ _ - 4 / _-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-
ff + ) , * P P ` a > 1 | | A !}< }
_-;_-* " ef # , #}< }
_-;_-* " ef # , #}< }
_-;_-* " ef # , #}< }
_-;_-* " ef # , #}< }
_-;_-* " ef # , #}< }
_-;_-* " ef # , #}< }
_-;_-* " L # , #}< }
_-;_-* " L # , #}< }
_-;_-* " L # , #}< }
_-;_-* " L # , #}< }
_-;_-* " L # , #}< }
_-;_-* " L # , #}< }
_-;_-* " 23 # , #}< }
_-;_-* " 23 # , #}< }
_-;_-* " 23 # , #}< }
_-;_-* " 23 # , #}< }
_-;_-* " 23 # , #}< } !
_-;_-* " 23 # , #}< } "
_-;_-* " # , #}< } #
_-;_-* " # , #}< } $
_-;_-* " # , #}< } %
_-;_-* " # , #}< } &
_-;_-* " # , #}< } '
_-;_-* " # , #}< } (
_-;_-* " # , #} } )
} _-;_-* " # , # - ; _ - - " ? ? _ - _
} } *
_-;_-* " # , # ??? - ; _ - ??? - " ? ? ??? _ - _
??? }( } /
_-;_-* "}< } 0
a _-;_-* " # , #}< } 1
_-;_-* " # , #}< } 2
_-;_-* " ? # , #}< } 3
_-;_-* " 23 # , #}( } 4
_-;_-* "} } 5
??v_-;_-* " ̙ # , # - ; _ - - " ? ? _ - _
}< } 6
} _-;_-* " # , #}< } 7
e _-;_-* " # , #}x } 8 _-;_-* " # , # - ; _ - - " ? ?
_ - _ } } 9
???_-;_-* " # , # ??? - ; _ - ??? - " ? ? ??? _ - _
??? }( } ;
_-;_-* "}P } <
_-;_-* " # , # - ; _ -}( } =
_-;_-* "
20% - Accent1H
2 0 % - A c c e n t 1 ef
20% - Accent2H "
2 0 % - A c c e n t 2 ef
20% - Accent3H &
2 0 % - A c c e n t 3 ef
20% - Accent4H *
2 0 % - A c c e n t 4 ef
20% - Accent5H .
2 0 % - A c c e n t 5 ef
20% - Accent6H 2
2 0 % - A c c e n t 6 ef
40% - Accent1H
4 0 % - A c c e n t 1 L
40% - Accent2H #
4 0 % - A c c e n t 2 L湸
40% - Accent3H '
4 0 % - A c c e n t 3 L
40% - Accent4H +
4 0 % - A c c e n t 4 L
40% - Accent5H /
4 0 % - A c c e n t 5 L
40% - Accent6H 3
4 0 % - A c c e n t 6 Lմ
60% - Accent1H
6 0 % - A c c e n t 1 23
60% - Accent2H $
6 0 % - A c c e n t 2 23ٗ
60% - Accent3H (
6 0 % - A c c e n t 3 23֚
60% - Accent4H ,
6 0 % - A c c e n t 4 23
60% - Accent5H 0
6 0 % - A c c e n t 5 23 !
60% - Accent6H 4
6 0 % - A c c e n t 6 23 " Accent1< A c c e n t 1 O # Accent2< ! A c c e n t 2 PM $ Accent3< % A c c e n t 3 Y % Accent4< ) A c c e n t 4 d & Accent5< - A c c e n t 5 K ' Accent6< 1 A c c e n t 6 F ( Bad4 B a d ) Calculation| C a l c u l a t i o n } *
Check Cellz
C h e c k C e l l ??? ??? ??? ??? + C o m m a ,( C o m m a [ 0 ] -& C u r r e n c y .. C u r r e n c y [ 0 ] / Explanatory TextB 5 E x p l a n a t o r y T e x t 0 Good6 G o o d a 1 Heading 1B H e a d i n g 1 I} O 2 Heading 2B H e a d i n g 2 I} ? 3 Heading 3B H e a d i n g 3 I} 23 4 Heading 44 H e a d i n g 4 I}
5 Inputp I n p u t ̙ ??v 6 Linked CellF L i n k e d C e l l } 7 Neutral< N e u t r a l e " N o r m a l 8 Noteb
N o t e 9 Outputr O u t p u t ??? ??? ??? ??? ??? :$ P e r c e n t
; Title, T i t l e I}
< TotalH T o t a l O O = Warning Text: W a r n i n g T e x t X T a b l e S t y l e M e d i u m 9 P i v o t S t y l e L i g h t 1 6 ` I3 Sheet3 u U Account: 7 TestAccount 7
Application: 7 Employee Management 7 Collection: 7 Employees 7 View Name: 7 Employees View 7 a
Document Name
First Name Last Name Title
Department Phone
IM Address Full Name ID Employees1995186004645 Jonathan Wang CEO Boss 13800000001 jonathan_wang@rogers.com
Jonathan Wang Employees3968552623587 Jerry Huang Product Manager Coghead 13800000002 jerry2008@yahoo.com Jerry Huang Employees5314263787157 Kevin Luo Application Engineer 13800000003 kevin_luo_sl@yahoo.com.cn Kevin Luo Employees5854454593530 Diablo Yang 13800000004 diabloyangsl@yahoo.com Diablo Yang Employees5999225505476 Johnny Zhuang Engineer 13800000005 johnny_zhuang_sl@yahoo.com
Johnny Zhuang Employees6224439618722 Colin Zou 13800000006 colin_zou_sl@yahoo.com Colin Zou Employees6527724666961 Alice 13800000007 alice_luo_sl@yahoo.com Alice Luo Employees15354726940435 Louis 138 louis_luo_sl@yahoo.com Louis Luo Employees15724654821213 Tom tom_wang_sl@yahoo.com.cn Tom Wang Employees15993902457714 Dani Shan dani_shan_sl Dani Shan Employees16078291624214 Albert Zhang Albert_zhang_sl Albert Zhang Z , . & b. } . 7/ R / F0 a 0 @1 [ 1 <2 W c c B {mU7hgY H
5 C>
d MbP?_ * + % & ?' ?( ?) ?M n M i c r o s o f t O f f i c e D o c u m e n t I m a g / d , , L e t t e r widm " d ,, ? ? & U } } } @
} } } @
} } ` } }
;
>
>
>
>
?
>
>
>
>
>
>
>
>
>
@
@
@
@
@
@
@
@
@
@
@
@
@
@
@
@
@ !
@
@ "
@ #
@ $
@ %
@
@ &
@ '
@ (
@ "
@ )
@ *
@ +
@ %
@
@ ,
@ -
@ .
@ )
@ /
@ 0
@ 1
@ 2
@
@ 3
@ 4
@ 5
@ /
@ 6
@ 7
@ 8
@ 2
@
@ 9
@ :
@ ;
@ 6
@ <
@ =
@ $
@ 2
@
@ >
@ ?
@ @
@ <
@ A
@ B
@ $
@ 2
@
@ C
@ D
@ E
@ A
@ F
@ G
@
@ 2
@
@ C
@ H
@ I
@ F
@ J
@ K
@ L
@ 2
@
@ C
@ M
@ N
@ J
@ O
@ P
@ Q
@ 2
@
@ R
@ S
@ T
@ O & @ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ P > @
7 Sheet3g g D
V B A ͍ ύ T h i s W o r k b o o k C e l l M a n a g e m e n t ~ 'E I n t e r n e t T r a n s f e r " !
! " # $ % & ( ) * + , - . / 0 1 2 3 4 5 6 8 9 ; < = > ? @ A B D E F G I J K L M N O P Q R S T U W Y Z [ \ ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ | 8 U Z^ # *\H: F L29B;Q x ME P [L S S < <* < < < N 0 { 0 0 0 2 0 8 1 9 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } ( % ` ` i" & ` @@ (x % `, v % " 4 @ x % % H ( ( P D MI " 8 P " X 2 ` * , /
" 8 P X ` p ] ( h Worksheet Menu BarA@$ ecto Chart Menu BarA@$ o ( , Initialize the menu when this workbook opens ] ( .! 0 (! 2 Coghead Connector (! , | k . / 4 Worksheet Menu BarA@6 Chart Menu BarA@6 A@8 A@: o : Attribut e VB_Nam e = "Thi sWorkbook"
Bas0{00020P819- 0C $0046}
|GlobalSpacFalse dCreatabl Predecla Id Tru
BExpose Templ ateDerivBustomizD2Dim A pplicati onClass @As New Event
P / 3 Sub _BeforeCl O(Cancel Boolean)
On Error Resu Next RemoveMenu ")@sheet B ar Char
EndHOP Open(D"'I nitialize the mA when@is w o s(Had5AddIn , instal^l Z J:
F8Each In VN.D4If .TitB"Coghe@
Connector" A 6ad.GT) Exit?F
lIfC GYSTMy.
Buil>d\dd"@;CellAItem1 RowFn ' Z. # 0 8 @ " H 8 P * & 8 X p x
( 0 8 H X 2 p , (
0
P
X
`
h
p
x
"
8
* 8 @ H X ` h 4 B $
0 < @ X ` p 4 p x I @ %
@
% @
X
`
h
p
x
B
"
& 0 @ 8 P
" " + 0 5 8 R X
p : x "
4
" / ( 8 X h B x " > <
( H T P . p B " > < 0
@ H P X K ` " & A . F ( @ p H j N h " 8 8 % 8
H P X ` K h x ] ]
]$ Account: d_]$
Application: 8
]$ Collection: ( ]$ View Name: P ]$ 6 `
]@x M ----------------------------------------------------------------------------- # Import basic information into Sheet M ----------------------------------------------------------------------------- R BR T B A1+ V A1$ V ! X( Z T B1+ V DR T D A2+ V A2$ V ! X( Z T B2+ V FR T F A3+ V A3$ V ! X( Z T B3+ V HR T H A4+ V A4$ V ! X( Z T B4+ V n h A:B $ \ ! ^B@` o H N ------------------------------------------------------------------------------ & Import GetViewResponse data into sheet N ------------------------------------------------------------------------------ H hX l .( j .( n @ J
J' @k d' > . L > LB@p f ] F $ t ' r ] r A The active sheet is not blank. Do you want to overwrite the data? | ~ $ z ' v v fA initSpreadSheet fA@ Finished .( A@ .( n .( j | d A .( n .( j | k k k fA@ Finished .( A@ hH ! A@z k ( .( n .( j o u _ 5 $ 0 3 Z x ME @
@ @ @ D( H Jx H `
( h P x H
8
< ( % h x h @ DFH\ h ( h @ X Collection: View Name: 68 0 x
MI 5 0 P h T * T " x
+ A , + A , + A ( , @ P + X A h , ; T , T @ " %
"
0 8 Z . @
&
" % ( 0 8
" @ % P ` h p x
& <
" % " * 8 X p f
( ] ` F B6$ V % ! ' ] x F ' ] F L! ' ] M The result data does not match the current shape. Overwrite existing columns? | ~ $ z ' v v A fA@ k d A | k o ] F B6$ V % % ' ] $ V $ V % $ V . ] @ X ] p L! ] F ' ] F X L% ' ] F $ ' ] F ' ] ( ] @ F ! T' ' ! ' y ( k A d A k ] X ] p ID L! ] F L! X L% # ' ' y 0 k (
, ! : ! ' d ! : ! ' k k k '
$ V B@H B@ k H o @ ] F B6$ V % % ' ] 8 $ V $ V % $ V . ] X ] x ] % . ! ! ' k P H A o ( - Check weather the active sheet is a blank one ] .! . .! ! . k ] 0 ] P A J A J $ V % $ V . % $ V . ( ! % . ! k ! % . ! k ' t z i x ; Init the spreadsheet while the active one is on a blank one h A:A $ \ B@H A6$ V B@ Selection.Delete Shift:=xlToLeft ] .! . A J A J $ V % % V . % $ V . B@H B@ o 0 Auto Format the SpreadSheet ] ( H .! . ! . V ] h V! \! V! \! ! ^B@` @ A:A $ \ ( o ` fA ] L! X L% A o h .! (
] F ' @ ' @ < ActiveSheet.Cells(startCellPosition, columnIndex + 1).Select @ @ % ( @ % ( T ' d ] F '
:
$ B@H B@ k p < ActiveSheet.Cells(startCellPosition, columnIndex + 1).Select @ @ % ( @ % ( T '
k
|
h
! ! B@ | x
o p
] x L% $ ' " hH
f ] Marlett J % ! X( a J , & " @ Dim fieldXpath As String, fieldLable As String, index As Integer 9 If UBound(CogheadService.g_FieldAndXpathMapping) > 0 Then B For index = 0 To UBound(CogheadService.g_FieldAndXpathMapping) d If StrComp(theTitleData(theIndex), CogheadService.g_FieldAndXpathMapping(index, 0)) = 0 Then H fieldXpath = CogheadService.g_FieldAndXpathMapping(index, 1) End If Next End If &$ " J & , J & % . ( (! X( Z
k
|
h
! ! B@ | p
o h
`
Attribut e VB_Nam e = "Cel lManagem ent"
Op tion Exp licit
Dim xmlAsS ng As
Pub L start0Posi~ FIn tegerHCo nst ACCOUNT_STRHAccount : V1PPLICATION5pas9COLLEC8CollecVIEWNAME7View 6TITLE_ROW_NOlB6hriva dHata kfiRespe+D '-I
'I mport ba sic info rmKto Sxhee@y I-|SPub i B I-A (B"CDgoryK, _
value )C Ses Ca `() ThengJ= #:Ifc= D!CSet1= N 4g.In itClass ~(h D+isEmpty^: = CheckAStaptus(Q m sgBoxValVbM Sd
Q= st("P 4 *@
nblank. Do you want lov erwriuthe?", vbQues} + OKCancel 4
vbOK Q1 Call OExingA{pRng( 'iSpread/2'1 Cte gX2.Bar@g"F d5u bG22I3l8Defa ?O t E9BD R ) ? 0xl 0 > !O he /
Q:@6@<+s4T.Descri2
9 nplP4A22hHD3Jd4t|Noa @pJx= DB6Bvd(x lToRight). e:"!er: /ns= iH- 2GFNoOfO;
t '] NTitl0sS t <>o
`
j!'M`Y+ GWresq{
` doesWch p curr shape.Q col1OXUNXX
bA_Tǃ TRowi/GReplace?f]xiLq RM/as%psA#SR_._.X.D(@Abste:= , )l)
Dim t heIdColu mnRange (As @
Se*t=(N(i|Address ),:
..End (xlDown))jqInteger, i
#cell For j = 1 To dat aConfig. TheRowCopunts)FValuVari@ant, c~Index>: 2 % 2Array()Strin1UV.IdE
= 5(UBwdf(K
(go?VB oolean: G= False9Target4|NoADj GdEach kIn(ʖ
Jd8h N.vj
If
Comp(
,D)
0 Yn 9Tru9A N:=B1.rowExit @;K IfNex>tGQ 3%-Ca@CreateU`wB>H,ԁ2EqgA To *OfcwE')d@ st ^Aslo@otainInpResp9Lgdelete= FB &> <>` "ID"= i A e dk1'[z=ziz(TitleÒh5% [2%@[ 1= S^a pY"ndYakZ!C8!a No"Co]Len((E) > 5z!J`3HL& "," &x@": fa P_
i m9购s/_(X
).ScJ ion.DR S hift:=xl Upu q Sub
PrivJ FK9s0 !8,i85"B6")ToRight).(Ibs}te:=b, Ak8c0T AN[ap LastC@`
x~ T c(Qr EmptyYOn ErrP@]ume ?rSpecial
A
sq Type Blanks, <23B .N umberQ[004O]1~y 6}1tt + 1,RS .
'Check wPyh P active sheis a b on`51Fun`on
A"SStatLus1^sWbqWorkbookp= ApplicatQ: pIs Yhz>s14qg E#", ?$sPtrPrКtS~t1@ b'("AYTITLE_ROW_NO? A4(_sO.U1=b.5-.o.la.Pst0ř._._.Go@xu" 2_ ge_ 7AmulaO =7ȳO O ?-1- w
:
1#ppW7Inඁ6spds6whileA76N 767te2iimS27( as(:Adp)1f"6ms
' rrToLeft2ws/5 3)!a pO= ve
WD3ws. 35w3Vwn))
Set rnge = Ra 8(`,.End(x lToRight|.Selection.C learCont@ents
| Sub
' Auto For mat the SpreadShee EPublic+ '&( Dim ws As Works6>, (= HApp SatActivelzws.Used+!6i+Idge&r,J i0 To=.Columnsun.C%ells tire.riNex'("A:A") Width ;2.25
Privat!ub C te<(justAddRowbBoo
n cCallTitle H U[j@j"1@datazfig.ThACo@A}@ Each (Get
DAs Array(CL ng(j - 1)GJ>=@)/Strin g, Opal targetCdPosiH9 @insert BeforeS R On Error GoHan8dleYICheck""s.N umberAsTC@@TFalsIf)= henWAc1Value'Varia nt, cInXdexD:=4 1G s"k"= ]o+Ia. GI^n!{/ 'Hp./s(
)ʌa ? n0 -= "@"
vb/=
12j)'E@! *<1U<q<1!uJZ`p'hJ 8s(d& ":" &S4CIbi Shif t:=xlDow3hIf/K1 _K_Kab_Ket? & _KϿ
_K@b|<(M1 Knd -Exity! U LL:Log.90 InO03p (L.DescriTHelpBxtc(_[g k߱ A0`]b(x]
? />f4a
[r[2Not t{2D -Vbq:rx1 ETITLE_ROW_NO,n.FP.Namq "Marlett(J "aa4#
co UB zd( Q
1 '
fieldXpap %tRLablfUi\fGDCoghervice.g_FQAnMappq) >~nrA
g}1
Compj ), g( , 0))z'A 5 (=`1 C}TQ2e ' /&+&$+ 21Y$ $KC 1BoldTru sM1M MM+ MM
$ V J 4 X e C PUT 4 L .B@ P
Content-Type P .B@^ % k N .B@\ $ d 0 L .B@ . P
Content-Type P .B@^ k ----The post data is: B@ N B@ N .B@\ k H Requesting........ .( .! ` b A@ L B@ .! b' 6 Log.LogInformation responseData Finished Transfer .( .( j ----The response data is: B@ 6 B@ .! d ' 8 Content-Type .% h $ f ! ' H d ' H z k Ready .( d R .! d .! d .! d '
] .! <
.! < Unknown eadshe .! <' j actd H Could not connect to url: L ' jk j l n Error A@z $ Application.StatusBar = ErrorMessage .! d e Deleted .( d Response Code is: .! d
. Due to: .! < A@z a Application.StatusBar = "Response Code is: " & xmlHttp.status & ". Due to: " & xmlHttp.statusText k .! d' :! d .! <' < .! d' :! k ' 8 ' H k . . Application.Interactive = True` z X TP ! : ! A@z . . ' H z i P application/xml
' f d ' f k i C Attribut e VB_Nam e = "Int ernetTra nsfer"
Bas0{F CFB3D2A- A0FA-106 8-A738-0 8002B3371B5}
|GlobalSpacAIFalse dCreatabl Predecla Id CExpose Tru
` Template`DerivCu@stomizDO@ption /licit
P! % tStatus As S ngxmlHttp
MSXML2.
Con st POST_METHOD GE dPU$UTYresp eD[ ,connectG4BooleanGs;CodeAgerText ub@P Property Get R$:tent()M @HI2
End
5/C/(@G:A?R1G= ErrorMsgOE,#.a>`\ ?A#M
*E
'The +a&ea3FuncjŎT oServer(@ByVal fM ethodA, 8_
z re questUrl aQCTypea
, handle3WFromP~nld52h7'Log.` Infporma"/G$*'Debug.
O`aO GoT o Failed!`!Appzb
.Bar@"rting?. Curso0xlWaAIf Not eIsh
`Kn S}e=EC BeHObj("") 5Comp(P, , v.bvA`0) 0 b'Check &t`_$( mXis t ge` IsEmpt y(N 8 Len> c #4& "?" & RIf `.Open*, u5%sendE}_;, gi_
'Q/ " / % 6) tR3BHea`der "0N!?-", }.!wU#
7, ?
5
S
pe
qOC "- .,dQis: $=aO1g
P.**)EE@E.Do ,WhI5C.`dySt<> 4'PDoEvsLoop Rd#S }=c}Wn @ WFinisha SDefaulE = O
)6 = 20
J Ȥ=lD0Ish Xml(E R,("9))V1 QK;9/P@=m5 Exit~ 72'us+ady*n~v~f' 0^@404 Or(s14080R10 Dim essag8{oXQ0JA> @9"Unknown"OBA J6
6 %uld not * to urlPM tr?Uq
@BoxoCri(tic+OKOnly, "$!q 'O$C$ {1?!= 1223n
App lication .StatusB ar = "De@leted" ElseMsgB ox "Resp onse Cod e is: " & xmlHttp.s ". @Due to Thexta'SsEnd IfC_m= jk u1 N>connect 7Fa TransferToServeycH 0 TheDAM S
q
q9 0 @ ` $ h S h e e t 3 , ' M e n u
# 3 _ _ S R P _ 2 7 _ _ S R P _ 3 : 0 ZZ KlKM3W#3*=h8 +3q R OA
^e=C x ME @ S S S < <@ @ h x i ,!@ h z i ,!B h $ i % ,!D` h @ ( i ,!F h , i nt s,H ` @ 0 Z Z iJ iL @ iN ` iP V iR i `j p ,f ` z 4 z iP @ i ` % b, 4 @ "/ 8 0 @ b28 H b6` < @ b<D @ 0 8 ` ` @ 8 0 z `Jt `Lp ( `Nl `P h ` 0 ` T 8 X MI ( 8 H P X ` B h p x B B B B B, $ H h $ & p % $ ) D ( H ` h
0 @ ` $ h
&
& & @ % ` ( p
" + & ( 0 0 L 8 h * ; p ( . * 8 & H ` @ d h h ( 0 @ P
X ` h p $ x l B & ( 0 8 @ P x ]@ ]@ ] POST ] GET ] PUT 8 ]@ ]@` ]@ ]@0 6' >m @ :' @m h <' Bm P ,' Dm 8 ` 8' Fm The Internet transfer ! ! ! ! Log.LogInformation requestUrl Debug.Print requestUrl T Starting transfer....... .( l .( j . G . .j MSXML2.xmlHttp$ V . . J 2 X ? ' Check the request method is post or get N$ Z N
! L ? N ' L k 2 L .B@ .B@\ x ME ( SL S S < N 0 { 0 0 0 2 0 8 2 0 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } @ ( % H @ 0 MI x Attribut e VB_Nam e = "She@et3"
Bast0{00020820- C $0046}
|Global!SpacFalse dCreatabl Pre decla Id Tru
BExpose Temp lateDeriv$Bustom izD2 rU ~| Get the menu bar t .% . vx Add top-level menu item B v! % . z &Coghead z( z( Intern 6 The Tag property makes it easy to delte the menu latergInf CogHead Connector z( De z! % . ~
&Create Query ~( .. .
ShowWizard ~( z! % . ~ &Manage Favorites ~( ShowFavManagement ~( ] ] ] ! ' $ z! % .
&Favorites ( Favorites ( ] X ! % . ( ( ActionHandle ( k ] x z! % . &Actions ( ] ! % . &Update checked record(s) ( CogheadService.Create ( ! % . D&elete checked record(s) ( CogheadService.Delete ( 9 Set cb4 = cbtn.Controls.Add(msoControlButton, , , , True) cb4.Caption = "D&elete record" z! % . ~ Con&fig ~( LoginInfo.ShowConfigurationForm ~( ~( z! % . ~ &About ~( ShowAbout ~( ~( o x Remove the Menu Worksheet Menu Bar ] 8 X Get the menu bar t .% . v - Get the top-level menu created by BuildMenu() CogHead Connector v% . z zB@ o x ! ! A@ o X H .( n ] ] 8 F % ' ] P F % ' ] h F % ' ] F % ' ] F % ' ] F % ' <! B <B P <! D <B P <! F <B P <! H <B P 1:5 $ ! ( B % % % ] ] F % ' ] F % ' POST application/xml % H ! > <B@b <( @ k d ] B@ % ( ( ( ( ( B@ k x . . k ` .( n | H @ .( n o ( 8 A@ B@ o About Dialog x 2 Copyright 2006, 2008 Coghead. All Rights Reserved. n Coghead Connector v A@z o p Check Login info ! B@
! B@ d | k k ! ! ! % ] ] F ! ' /rest/AdminApp/_/Accounts/?source=excel ' GET % H A@ B@ k 0 k ( o 0 ' z k ' i ] ] Get the menu bar (CommandBar). Cell .% . v Add the new menu item. v! % . ~ Set the caption and action. &Coghead Action ~( ] ( @ X ~! % . &Update checked record(s) ( CogheadService.Create ( ~! % . D&elete checked record(s) ( CogheadService.Delete ( 9 Set cb4 = cbtn.Controls.Add(msoControlButton, , , , True) cb4.Caption = "D&elete record" o x x ] ] Get the menu bar (CommandBar). Row .% . v Add the new menu item. v! % . ~ Set the caption and action. &Coghead Action ~( ] ( @ ~! % . &Update checked record(s) ( CogheadService.Create ( ~! % . D&elete checked record(s) ( \ & Z x ME X @ 8 F @ &
B ( 0 " 8 @ P & X 9 A "
; 8
& X
"
;
&
"
@ $ X " & 9 A " (
P p ; & " ; & " @ @ h $ Create the Menu mi Worksheet Menu Bar to] h CogheadService.Delete ( 9 Set cb4 = cbtn.Controls.Add(msoControlButton, , , , True) cb4.Caption = "D&elete record" o ( B Attribut e VB_Nam e = "Men u"
'Crea lthe P
Sub Build8(Op tional cbnvAs S ngWorksheett Ba@r")
Dim b ZCommand , cpop Popu"p btn Button223f,'G {m barS cb Applicaa2.Ds(fU'A dd top-l evel %itlem%[= h "n@trols.(`msoCoc, True-x.Ca&Coghead Visibl :'T Tag property makes i@t easyV delXl ~* 7H )nectorD CH? ]@5 75Ea6Fab//g89hBS&/q5,cd |byth0cb.Find q?, "Os2
[) JU(R unRequest (G0-$^vqjOn Errm GoTo Res etH#*YIntera !=OCS Vd1 _b1user: 6=t لU $ passwUQ String: c6teP account-
iYTargGoc缮h/"coll@0 C~v 6?' #Call Cellw.importBasicVr(ACCOU NT_STR, 78!/t/-PP LICATIONdAQCOLLEC{oVIEWN8AME ERo ws("1:5" ).Entire.hiddeabghlModul|e. dAuto (:,f6,_;eUrl B.IsDoS`earchsPh) e) Then
Dim i net As N ew Inter g^(wLoad@\vMag Ig.
'About Dialo
MsgBox "Copyrig ht 2006, 8 Coghe ad. All 2Rs zd. zvbOKOnlNy yD@nn Ao r v" & V ERSION_NOjEWizarde'Check Logi{fo 7Info.A }figurBm #Form# d .successfullyg !}oDA5i@B Module.Auto( CUser!n,#iPasswoDrdBasi"eӅskge!& =#E"/r`/Admin f/_/s/?sour ce=excel>"%%GE_* Vr9 DListkE6n!Oa Q:a /
FunbR IsAr rayEmpty( Variant) BooleatOn Err5GoTo `Handlu`UB^d) >p={YPMs"+ MQM!|enuItLem?'cbAComm
Bar, cbtn;PopupC*dexKѓg' @0 the u bar (g).3A` = Ygs("
"W' 2nnrxm
=0 .Dtrols. (mso |,
c,ap fon.C= "&WA$0C2q
3A 4Butto$2@ Г .l/ @2Upe c\ed recPG(s) cb2.On
feice.C`reate 39 dd cb3 D&eletK 3 ad Dk ' 4 nAO 'cb4 e?@2B` 'RowM2 22Q2282@.u:ϐ2p
22 #22;'2132np22؏2@ا?%YB2=((2(2 d>2f2 o( 0$2 22 2nPoE 52C rU ( ` Worksheet Menu Bar ( ` Worksheet Menu Bar $ ` ( ` 0$ ! ` $ I ` $ q ` ( ` /$ ` $ ` n rU ~|
L o g i n I n f o = _ _ S R P _ 4 C _ _ S R P _ 5
H F E n c o d e $ ( 4 (% : ! d' d CogheadConnector/Custom/UserName (% : ! d' k X i P Get the user's password an 8 Default X ! CogheadConnector/Default/Password (% : ! d' d CogheadConnector/Custom/Password (% : ! d' STk i Get the base uri address>P 8 Default X CogheadConnector/Default/Url (% : ! d' ( d CogheadConnector/Custom/Url (% : ! d' k i ] F $ @ ' > > B' <d x ] $ F /Bacon /Bacon ' DB@k 0 D' <k i ] ` ] L $ F /Bacon L /loginCheck?source=excel ' d L /Bacon/loginCheck?source=excel ' k x GET % H ! @ ] ! > JB@2 loginUrl J% L % N ! d' Hk d ] ! > (B@2 user/@url (% L % N ! d' H k i hF 8 Default X & CogheadConnector/Default/UseSSLSession (% : ! d' @ d % CogheadConnector/Custom/UseSSLSession (% : ! d' @ k h ' @ i ,
B@P k x ,' Bi h X CogheadConnector/Custom (% : CogheadConnector/Custom/UserName (% : ! d' R d ' Rk i CogheadConnector/Custom (% : CogheadConnector/Custom/Password (% : ! d' T d ` ' Tk P i H CogheadConnector/Default (% : ! CogheadConnector/Default/UserName (% : ! d' Vd ' Vk i CogheadConnector/Default (% : ! CogheadConnector/Default/Password (% : ! d' Xd @ ' Xk 0 i ( X CogheadConnector/Custom (% : CogheadConnector/Custom/Url (% : ! d' Z d ' Zk i 8 Default X ' CogheadConnector/Default/MaxSizeToQeury (% : ! d' \ d ( & CogheadConnector/Custom/MaxSizeToQeury (% : ! d' \ k i A CogheadConnector/Flag (% : ! d' 8 i : Check wheather the configuration file is already exsiting. &$ ~ ' 0 d ' 0 k i Display the Configuration Form X B@ o $ $ $ $ $ hF ] $ (. h d p 9 hB@2 k ] CogheadConnector h% : . j f ] CogheadConnector/Custom h% : ' n k ] ] ] 0 ] P ] p ] n Custom h% ~ . p UserName h% ~ . t Password h% ~ . v Url h% ~ . x
UseSSLSession h% ~ . z MaxSizeToQ eury h% ~ . | d CogheadConnector/Custom h% : . p CogheadConnector/Custom/UserName h% : . t CogheadConnector/Custom/Password h% : . v CogheadConnector/Custom/Url h% : . x % CogheadConnector/Custom/UseSSLSession h% : . z z
UseSSLSession h% ~ . z k @ & CogheadConnector/Custom/MaxSizeToQeury h% : . | k t( d v( d ` x( d d z( d b |( d t pB@ v pB@ x pB@ z pB@ | pB@ p jB@ d @ ] CogheadConnector/Default h% : ' k ] ] ] ] ( ] H ] h Default h% ~ . UserName h% ~ . Password h% ~ . Url h% ~ .
UseSSLSession h% ~ . MaxSizeToQeury h% ~ . d CogheadConnector/Default h% : . ! CogheadCon d ( /
Z x ME 0 0* < * `D +H ` @ ? iL . v x enu % ` % J he c % ( &Cog % +@ ` p@ X +BX ` c +R ` j +T
`
r +V ` z +XX ` +Z
`
+\ ` p@ +8 ` p@ +0X ` d@
` +^ ` w w i i i` 8 ib X id x if h % j % `n p % t( % vH % xh % z % | % ` % % 8 % @ xml % ` ! . % .xml % % & @ ) 0 @ P X X X P ( P P " MI * \ R 5 * # 6 b $ * \ R f f f f * 1 W 4 9 e 3 4 d e f % 0 B H . 3 P
" " B 8 ) ( ` 6 ) h B 8 ) 0 6 ) 8 p x B 2 ) 2 ) @ H B P X p x B & H , P " ( * 8 h p B x < . < . 0 8 @ H B P X h B . 6 B ( . 0 6 ` B . 8 ( 0 8 @ B H . P 8 B . 2 H P X ` B h p > ) < )
B (
0
, ) 8
h
@ p
B
$
$
"
( 8 B4 @ ` h p
x J $ . ( X ` h p x
"
" @
h
, p
4
4
0 : @
" : ( 8 H X h x . ( 0 8 @ ` " " , 6 @ 6 x 0 :
" 0 X < ` ( 8 H X ` , h * 0 8 > H ] ] ] ) Load the Configuration xml to DomDocument P .! . Coghead_Connector_Config.xml ' & $ 0 A@ ' d ` ' k P i H & 4% 6 (B@2 o Get the user's name r 8 Default X l ! CogheadConnector/Default/UserName nector/Default/UserName h% : . ! CogheadConnector/Default/Password h% : . CogheadConnector/Default/Url h% : . % CogheadConnector/Custom/UseSSLSession h% : .
UseSSLSession h% ~ . k
' CogheadConnector/Default/MaxSizeToQeury h% : . k X
( d ( d ` ( d d ( d b ( d B@ B@ B@ B@ B@ jB@ k ] CogheadConnector/Flag h% : CogheadConnector/Flag h% : . d 0 Flag h% ~ . k f Custom ( d d Default ( d k jB@ h! .! . Coghead_Connector_Config.xml 4% ' ^ d h ' ^ k X z P hH ' ^ [ ! ! z i Attribut e VB_Nam e = "Log inInfo"
Dim the ConfigFi lePath AHs S ngxdoc&New DOMDocum ent
Pub lic requ estSSLUrl x
'Loade fura tion xml to DomQSt "c Func*A
yModule. H ,Rt`dHEC
p0$Rs߽OvtOD3. S ") ohPlG
; ra% +_0%^
u 5+_X" S0 on
Pu blic Fun ction Ge tDefault UserName () As String
If Not x doc.selectS 6leNo de("CogheadConn 2or/") I
sph X TheO Mu =-_/").TextaElse g""nd If
EPasswordk:0 "HCustomUri>GChE /UrlCpBMaxSiz@Comp(@
Flag, ", vbAare)@70G h?/dToQeury;!
, 5orivate@a$JCall Lo"figuraData{+ $fA
F"
'Ch eck wther con file i s alr@y exsit.\Is FE$ BooleaDir(
Path) <>8 ""C
` TruD7Faa!'Display!$1 Form Sub ShowJ!()5).`o)C-teLogi nInfo)(uه, _C
!y pļ_ver7 nm!Lo nb SSLF c2['On Erro@r GoTo H@andle:sDim lEDomNew DOMDocumenDy,:ata.@0xSetS[+.l`@XML ("<>"(.aArootEle
1I0 i=z ond#qupdQValueq Ќ~[w
= D
S 8qx r
: 9url?=seSLLold9rK ""cL% vR:!!e5NB O"FDz[ Zoio5 їALPSLSes>Ot o*1 GU8P>ݞ>/6_ imU n>gݴo $o o "r: "/N/N24r# ;X(#V ? i <&7Sq ,,Ma xSizeToQ eury")
End IfxuserNam eNode.Te`xt = LJpassword J3&rl @ YverUrl!seSLL $ kSSL!|ma )* c ustomInfo AppendChildj z"u"rootElement.>C 9 ElseGD im updat eValue1 As Boolean If Not loginX Dom.selectSingl ("Coghea dConn@or /Default") Ish p TheH =p Tru'+d{,IXMLDOMx67V
I}[
{ y x aC
LSSet M$=17cre >$F("5G>3 E!+1@j@Ud-Ɏ+Pf/[2 SLSessionQ 6[
M*i
KrE&|8 pp:{}r{/>nG/Al/ E^ /C#Hy1B Ma1 mU1>_-___/ /q1 `
ֈ1.tZDeEG.EBpI W \;xZ/ϋd //ӈ1ґvJ o7/Ә Q{flagg} Tp K߈وF0 /vDώ Q *W tJ
."cG"o U%@ FileManagQui ckWrite(, plicatt
mpl sPath &
_ƣ fig.Xxml@KCҋLըAZwte Fa6'Exit Funca
ErrorHanpdle:CD ebug.Print .Number0 Descrip1M@ rU $ ` $ ` $ ` $ ` $ ! ` $ I ` ( q ` 0$ ` $ ` $ ` $
` $ 9 ` $ a ` $
` $ ` $ ` $ ` $ ) ` @ Q ` 9 Y q 000(## n rU ~| W _ _ S R P _ 6 V | _ _ S R P _ 7 X , R e s p o n s e V i e w D a t a " A c c o u n t L i s t F o r m !
rU , ` 0( ` 0( ` 9 0( ` 9 0$ ! ` n D 8 N Z ժ F5L=*=h8 +3q 6oPK߹ \ x % N ! d$ "+ . Add a system field "ID", bound to Documnet id. ID "+ ' $i P Get one row's data as array ( ] $ ] ( # ns1:GetViewContentsResponse/ns1:Row (% L % N . ] H h ns1:Column/ns1:Value % L . ns1:Column/ns1:ObjectName[0] % : . ] " ! "X % N ! d % "+ ! d % "+ ' i ] # ns1:GetViewContentsResponse/ns1:Row (% L . ! ' i ` + ns1:GetViewContentsResponse/ns1:ResultSetID (% L % N ! d' i - ns1:GetViewContentsResponse/ns1:ResultSetSize (% L % N ! d' i Attribut e VB_Nam e = "Res ponseVie wData"
Bas0{F CFB3D2A- A0FA-106 8-A738-0 8002B3371B5}
|GlobalSpacAIFalse dC$re zbl Pr@edecla Id CExpose TemplateDeriv Customiza
EOption 0licit
0
P"& x doc As N ew DOMDo cumen'The C tru ctor _ss ub # Sub InitCla ss(ByVal theXml)Sng)
4.load`XML ( E nd&K'Check# quer y proces s finishS=!no'PC!Func7IsP
FD
( DimEStatus%(, sABooplean, J
=BL.select SingleNo de("ns1:XGetALtPsE/Q3Exe$cu+Co@set ed").Texc3HIf '( , "True", vb )0 jD-4= 3E
aIfC NS 9
]lifP hasnn@4 row d jHasN@Row Indexa Integer)/dG GF<heCounts() 5!! #< tot ^number ofcitl@mS3T! n -aTlistcolumnJ~Lb!erESet dSgetElexsByT agaSWHea(derUC"DezObj@|Q5[0]5@hC?5| O]5 V5En!5.Opera65a5&m7<.Z=Amp 4_nx1$0 me!,y,,,w @5 wA?j@1
esult'Id<.Râ-1`0@9$D805O
tE
Sizeo
l
A
_l
0GX `x x D @ 8 MI V
Z_ x ME ( 6
< < < + ` @ @ i ` i 0x `8 t ` `r H +H ` @ i ult `x t Cogh`r /Use+ ` x@ 2 i X + ` x@ 8 i ` > H % `
h H MI $ * \ R f f f f * 1 X 4 9 e 3 4 d e f A B ( 0 8 @ 4 X & / x 5
/ T } x B %
( 8
H F ] X 5 B # # 0 " P p B x # # " " d X h ead\mi $ ' e\] ] ' a % $ c 0 : L A Z L a z L * K T % ' K T ( + ' d % % ' k S % % $ % 00 % ' n ' h ' i X $ ' ] ] 0 ' a % * K T * ' + K T ' % K T &h % $ % ' ' S H % ' n ' ' i H < < $ ' & & $ ' > > $ ' i < <$ ' & & $ ' > >$ ' i [ P substring-before%28+%24var1%2C+%26apos%3BC%26apos%3B+%29+%3D%26apos%3B%26apos%3B % o ` Attribut e VB_Nam e = "Enc ode"
Pu blic Fun ction URLl(S ngTBo8 As ", OpTal _
Use PlusRath erThanHe xForSpacelBoolean vFalse)/J>Vh= _erPator)4D im TempA ns
OCurChrInteger = 1" o Until - 1 SLen~: v Sele@ct Casnc (VBA.Mid ,(, 1) 48 To @58, 659 0, 97122, 42Ov={& = # b3 If[q rue Then&s'Q'"+D/Ec@%" 9(32RAEnd/9S*B*cx matB{"A sW~C), "00"423=E+Loo>p C 8
3
! p}DeဆWjvugu uquCf $vDv+v-vC)v !@"I"* YH_ h %
"&(Val("\&hdN; I, 2)cN(BOkQ,,M__7_^Op#FVRepl$ݖ_% = $m`{<4;" av0E
Fԁ2@ 8"&Q>Sub test(tDebug.Print .UT""subs2-before %28+%24v@ar1%2C 6 apos%3BC %2 P9+%3 D P
A p p l i c a t i o n L i s t F o r m ( C o l l e c t i o n L i s t F o r m & V i e w L i s t F o r m + A p p l i c a t i o n C o n f i g u r a t i o n 2 " ] ( )
I f Len(Me.Box1.v alue) Th enCell Manageme nt.import xicInfor COLLE CTION_STR, G'Co gheadSer vice.Get Filed# AccountAu)2),I2,??
:"@C@*Ch8eckBLBACLo ad Field s @Hid .ShovwK
K'BDGCQueryL U
Eɉ'Unl5View5-nd IfMsg/ "Y ou neito se an iteAAED ]_2 _mE 1? on3+ @Process
UserY_In itializerDim getUrlAddrza = Log inp!gAUri & "/t/"@hbG (a
.v/_/Sys0/Folders/`!'aAinter'`?xPtr= x
( ! " # $ % & ' ) * : , - . / 0 1 2 3 4 N 7 8