ࡱ > : | 9
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 r y < = > l @ K B C D E F G H I J ? L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k m n o p q s t w v x z { ~ R o o t E n t r y F Bl; - W o r k b o o k om _ V B A _ P R O J E C T _ C U R " pBtBlBl V B A PxBl`Bl \ p @\[/ gQ3 B a = ThisWorkbook = x 0 X/#8 X@ " 1 [SO1 [SO1 [SO1 [SO1 [SO1 [SO1 ўSO1 [SO1 ўSO1 [SO1 [SO1 [SO1 I{~ L i g h t 1 I{~ L i g h t 1 I{~ L i g h t 1 I{~ L i g h t 1 I{~ L i g h t 1 [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\) \$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\) % \$#,##0.00_);[Red]\(\$#,##0.00\) ""#,##0;\-""#,##0 ""#,##0;[Red]\-""#,##0 ""#,##0.00;\-""#,##0.00 # ""#,##0.00;[Red]\-""#,##0.00 5 0 _-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_- , ' _-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_- = 8 _-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_- 4 / _-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- 0.00_ 0.0% , * + ) 8 8 8 8@ @ 8@ @ x@ @ 8@ @ + Q 8@ @ 8@ @ X <@ @ 8@ @ + Q x@ @ Q <@ @ <@ @ 8@ @ + Q x@ @ <@ @ + Q <@ @ 8@@ 0 + <@ @ 8@ @ 8@ @ 8@ @ x @ x @ 8 8
8@ @
8 @
8 @
8
8@
8 8@ @ x@ @ 1 |@ @ @ @ x@ @ + Q |@ @ 8@ @ x@ @ x@ @ x@ @ |@ @ + Q |@ @ x@ @ Q |@ @ x@ @
1 |@ @ 1 |@ @ |@ @ x@ @ |@ @ |@ @ | @ |@ @ | @ 1 ! @ @ 1 ! @ 1 |@ @ 1 | @ 1 | @ 1 |@ @ 1 |@ @ 1 |@ @ + Q x@ @ + Q x @ x@ @ 8@ @ 8@ @ x@ @ x@ @ x @ x @
8@ @ x@ @ x @ x @ 5 8^ĉ_ 2 0 1 6 t^^~HeċhO1 1 0 5 ( [?z K # 8^ĉ_ 2 0 1 7 t^~HevhGl;`[?z- Gl;`- 2 ?zck_ NeTO?z- \*P ` 3 Sheet1 V V ; " ͑pċNh USMO
Tyy]^4l)R@\ yv
Tyy]^-N\lAmltyv kXbe g 2 0 1 8 t^8 g9 e" V. ~HeċqQ'`chSO|6 4 %
- ,g{|ch
TyTċRhQ
N_f9e N~ch N~ch N~ch ċRhQ ċ "?e͑pċN ͑pċN_R{Ǐ z
DPOPge De"}_S Cg͑ _R
beQ
qQ'`ch1 8 %
yvgbLeHe`Q vh[bs$ ,gch6 R0vh[bsA = vh[E[bpe/ g Rvh6Rpe, _R:N6 A 0 beQ{|chR:Nb,g0Dё=[`QT[E/eQ`Q N{|~HeċNch W g Rvh6Rpe:N7 *N vh[bpe2 *N, _R= 2 / 7 * 6 = 1 . 7 1 R0
[bvh1 Dё NS:S
NNON4 *N
2 t^^[e-N\lAmltyvpe
NNON9 *N [Eyvpe:N1 0 *N 0 1 00 2 00 3 [E/eQ`Q {gbLsC ,gch6 R0{gbLsD = S_t^{[^v[E/eQDё/ ,gt^^{[cDё 1 0 0 % D = 1 0 0 % e_6 R D d1 0 0 % e_R:N6 D 00 t^^{[cDё6 0 0 0 NCQ [E/eQDё4 0 3 9 NCQ _R= 4 0 3 9 / 6 0 0 0 * 6 = 4 . 0 4 R 0 1 00 2 DёO(us? ,gch6 R0DёO(usE = S_t^{[^v[E/eQDё/ "?e8hbDё _R:N6 E 0 "?e8hbDё :N0 e ,gy
N_R0- [E/eQDё4 0 3 9 NCQ "?e8hbDё4 0 3 9 NCQ0_R= 4 0 3 9 / 4 0 3 9 * 6 = 6 R 02" V. ~HeċqQ'`chSO|6 4 %
- ,g{|ch
TyTċRhQ
N_f9e
͑pċN_R{Ǐ z Ǐ z{t
qQ'`ch4 6 % ~He{t {~He{t~~O`Q; ,gch6 R0vQ-NyvUSMObzN;N[:N{~He{t[\~_3 R c^"?e@\t^^ċNeHhBlbzċN]\O~_3 R0L yv{t{|ch;NR:Nvh6R[`Q0vh[b`Q0{t6R^O0DNMnNO(u0OOo`(ϑT"R{trQmQ{|S fyv(W{teb:N(uv~HeċNch0; yvUSMO gbzN;N[:N{~He{t[\~ _3 R g c^"?e@\t^^ċNeHhBlbzċN]\O~ _3 R0qQ_6 R0 04 vh6Rpeϑ g Rk6R1 *N~Hevh_0 . 3 R ,gy gؚ3 R0 g Rvh6Rpe:N7 *N _R= 7 * 0 . 3 = 2 . 1 R 01 vh*N'`S z^/ 6REQRS fyvNNyrpv NQNHev {|*N'`chv k1 *N*N'`ch_0 . 5 R ,gy gؚ5 R03 *N'`chqQ5 y( NQpeϑ0NQ(ϑ0>yOHev0Sc~Hev0
gR[ana^ _R= 5 * 0 . 5 = 2 . 5 R vhhQb z^K ,gch5 R06Rv~HevhhQbmvbeQ0NQ0Hev N{|1 0 yvh_5 R
Nn1 0 yv ckORY g R6R N{|5 yvh _R:N5 5 / 1 0 = 2 . 5 R g R6R4 yvh _R= 4 * 5 / 1 0 = 2 R vh[b(ϑ( ,gch6 R0vh[b(ϑD = @b g g R~Hevh[b z^v{/gs^GWyOHev ;NSO] z[]lAmSvO1 ,gch4 R0SvO0R2 . 1 NN_nR *g[be_R:NchR
G G F F F
F F
A
A A A A A ~
C @ C ~
D @
D E @ @
!
$
h h
? ?
?
? ?
? ?
@
@ @ @ @ @
@ @ @ @
?
?
? ? $ h h ? ? ? ? ? ? ? @ @ @ @ @ @
@
@
?
B
? ?
h h
G ! G
F "
F F
F # F
H $
H H H H H ~
C @ C ~
D @ D
E % @ @
! &
$ ' "
h h G G F F F
F (
F
H )
H H H H H ~
C @
C ~
D @j@
D E ~
@ #
@
333333?
! *
$ + h h G G F F F
F , F
H -
H H H H H ~
I @ I ~
D @
D E @ @
! . h h G G F F F
F / F
H 0
H H H H H ~
C @ C ~
D @
D E ~
@ ! @
! 1
$ +
h
h
G !
G
F "
F F
F 2
F
H 3
H H H H H ~
C @
C ~
J py@
J E ~
@ d
% M @ ! N A p ffffff? A
A
A
! 4
" h h G G F F F
K 5 K
H 6
H H H H H ~
C @ C ~
D @
D E @ @
! 7
$ 8 h h G G F F F K K
H 9
H H H H H ~
C @ C ~
D @
D E @ @
! :
$ 8 h h G G
F ;
F F
F < F
H =
H H H H H ~
C @ C ~
D @
D E @ @
! >
? h h G G F F F
F @ F
H A
H H H H H ~
C @ C ~
D @
D E @ @
! B h h G G F F F
F C F
H D
H H H H H ~
C @ C ~
D @
D E @ @
! E
F
h h
G ! G
F ;
F F
F G F
H H
H H H H H ~
C @ C ~
D @
D E @ @
! I h h G G F F F
F J F
H K
H H H H H ~
C @ C ~
L
L E @&
! L h h G G F F F
F M F
H N
H H H H H ~
C @ C ~
L
L E @&
! O
h h
? ?
?
? ?
? ?
@
@ @ @ @ @
@ @ @ @
?
?
? ? $ h h ? ? ? ? ? ? ? @ @ @ @ @ @
@
@
?
B
? ?
h h
G P G
M Q
6 5
F R F
N S
O O O O O ~
C @ C ~
P @
P @ @
! T
$ h h G G
M Q
6 5
F U F
N V
O O O O O ~
C @ C ~
P @
P @ @
! W
$ X h h G G
Q Q
Q Q
F Y F
N Z
O O O O O R Q ? R ~
P `k@
P ' Q ?~
`k@
! [
$ X h h G G
Q Q
Q Q
W \ X
N ]
O O O O O S Q ? T ~
U ?
V ' Q ?~
%
( ^
"
E E
G P G
Q Q
Q Q
W _ X
Y `
Z Z Z Z [ ~
S @ T ~
U @
V ' @) @
! a ~
&@ " E E G G
F b
F F
F c F
\ d
] ] ] ] ] ~
S @ T ~
P @
P ' @) @
! e
$ E E G G
F f
F F
F g F
A h
A A A A A ~
S @ T ~
P @
P ' @) @
! i
" E E G G
F j
F F
F k F
^ l
A A A A A S Q ? T ~
P ?
P ' Q ?~
%
( ^
" D n lF p L @ ! d @ " @ # l @ $ l 2 % l 2 & l 2 ' @ E E G G
F m
F F
F n F
^ o
A A A A A ~
S @ T ~
P @
P ' @ @
! p
q
! @ r " ! @ @ @ @ @ @ @ @ @ @ @ @ @ @ # ! R Q ? L
% B ! R # ! _ ףp=
GR@ !
% B
! ` # ! * Q ? !
% B ) ! + 0Q@ ! % B A
! , -
" a s " a
" b " c c c c c c c c c c c c
" b " c c c c c c c .
# h t
# ? u
# d v # d
# d w # d d d d d d d d d d
# e x # f f f f f g
# / y # /
$ h h
$ F z $ F
$ F { $ F F F F F F F F F F
$ i | $ j j j j j k 0 / 1
% h h
% F } % F
% F { % F F F F F F F F F F
% i ~ % j j j j j k 0 / 1
& h h
& F & F
& F & F F F F F F F F F F
& i & j j j j j k 0 / 1 p | | | > @ # # &
& & $ $ $ $ $ $ % % % % % % " " " " " " # # # # # # # & # & & & & & ! ! ! ! ! !
7 Sheet1
T h i s W o r k b o o k S h e e t 1 O A 2 0 0 4
A Y _ _ S R P _ 2 2
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L N O P Q R S T U V W X Y Z \ ] ^ _ ` a b c d f g h i j k l m n o p q r s t u v w x y z { | } ~ ' / # x ME ( SL 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 } @ ( % H @ 0 ^~C x Attribut e VB_Nam e = "Thi sWorkbook"
Bas0{00020P819- 0C $0046}
|GlobalSpacFalse dCreatabl Predecla Id Tru
BExpose Templ ateDerivBustomizD2 ' # 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 ^~C x Attribut e VB_Nam e = "She@et1"
Bast0{00020820- C $0046}
|Global!SpacFalse dCreatabl Pre decla Id Tru
BExpose Temp lateDeriv$Bustom izD2 0 ) ^~C * \ R 1 * # 2 a d * \ R 1 * # 1 c 4 $ * \ R f f f f * 0 4 5 d a f 3 8 8 8 * \ R 3 * # 4 e * \ R 3 * # 9 2 * \ R 2 * # 2 3 * \ R 0 * # 1 2 * \ R 1 * # 2 a c * \ R 1 * # e 8 * \ R 1 * # f 1 * \ R 3 * # 2 d * \ R 3 * # 4 d * \ R 3 * # 3 0 * \ R 3 * # 4 f * \ R 3 * # 3 4 * \ R 3 * # 5 1 * \ R 3 * # 5 1 * \ R 3 * # 5 0 * \ R 0 * # 1 4 * \ R 0 * # f * \ R 1 * # d 7 ( 0 8 @ H P H X H ` H h H p H x H " 4 : (
0
@ P ` x
X
D 8 GetTempPathA 88 WinExec 8T O $ \ GetCurrentDirectoryA E 8 d @ l GetSystemDirectoryA 8 l DeleteFileA 8 CopyFileA , x ME p $ , ( @ 0& 8* (L < < < < < < < >
L L L L P L L L +@ @ p X @ i6 x i +B l p l iD iF +Hx p X iJ +L p iN iP iR T `
? ? @V @X @Z ( `
6 6 T @V @X @Z < ` x k h \ \ I I I I I x % t@ % p` % l % `j @ `
I I I `
( ( ` P `
I ` ( % H 9= % `
8 8 ' ` %
% % ` `
_ ` + `
z `& % + `
! ! i0 8
i ;= p
$ %
( %
4<= , %
@ @ ( @ (X @ , @ . @ 2(
@ P 0 ( @
x P
( ` X h h H h ( H
@0
X @ H @`
8 @x
( @
@
@
@
@
@ @ ?=@8 @P @h @x h 0 @8 t @p @ l @hO @ X @P H @D @4 @$ A= r \ @" @ @V @X @Z 9 9
( @ X " x . B 8 " P
x ,
8 X x " : ( 8 P `
h x " 4 : (
0
@ P ` x
( @ X " x . B 8 " P
x ,
8 X x " :
(
8
@
" H
P
X
`
h
p
x
H
'
, ! ( 8
X
h x
6 <
; ( 8 ( X
A
/
(
8
A X
x
/
A (
8 P
` /
$ = A 8 H
X
p
" : N 8 x " " 4 : ` h p H
0 @ X h
p
" ( 0 8 @ `
" 0 H ` Z h 8 @ H P X ` p .
0 @
P ` h x " 2 ( @ X `
B 0 P h B ( 0 @ ` h *
0 8 @ H P ` ]
]
] ] ] ( ] P ] 0 ] X ] ] ] x ] X p \! ^! ` --> 칫Զϵͳ - ƪĵڰ칫Զϵͳ,ܾʹøܣ A@b 4 | k \( d \( f
c:\tmp_fj.xls ' J hB@j d h hB@l k P SignExcelSheet 'ǩ On Error Resume Next hB@l > c:\newTmp_fj.xls' n ! ActiveWorkbook.SaveAs sSavePath n $ L ' p ADODB.Stream$ r . V MSXML2.DOMDocument$ r . XB XB@t xmlns:dt # urn:schemas-microsoft-com:datatypes X! vB@x file1 X% | . z
bin.base64 z( ~ V( l 1=adTypeBinary VB@ n VB@ V% 6 z( 1
-1=adReadAll VB@B z X! vB@ fname X% | . z= z( z X! vB@ = EditModal XA@ Appsort " XA@ FileID 0 XA@ Microsoft.XMLHTTP $ r . Z POST /WordEditor/RcvAffixFile.asp ZB@ X ZB@ n$ H ' p . Z . V 0 A@ \! !
hB@B d \B@ k o x ] \! ^! ` --> 칫Զϵͳ - ƪĵڰ칫Զϵͳ,ܾʹøܣ A@b = | k \( d \( f
c:\tmp_fj.xls ' J hB@j d h hB@l k P SignExcelSheet 'ǩ On Error Resume Next hB@l c:\newTmp_fj.xls' n " ActiveWorkbook.SaveAs sSavePath n $ L ' p ADODB.Stream$ r . V MSXML2.DOMDocument$ r . X XB@t xmlns:dt # urn:schemas-microsoft-com:datatypes X! vB@x file1 X% | . z
bin.base64 z( ~ V( l 1=adTypeBinary VB@ = n VB@ V% 6 z( 1
-1=adReadAll VB@B z X! vB@ fname X% | . z z( z X! vB@ EditModal XA@ Appsort " XA@ FileID 0 XA@ Microsoft.XMLHTTP $ r . Z 4= POST /WordEditor/RcvAffixFile.asp ZB@ X ZB@ n$ H ' p . Z . V h( ' o ( ] ] ( ] H ] h ] ' ' ' " Z $ $ $ $ $ $ $ .xls ' d h! ' h! ' k ' ' 0 !
칫Զ ( ( ' k x
칫Զ % . ( ( = l ! % . ( ( 칫Զť ( ` İҲఴť-----> ( ( ( l ! % . ( L = ǩ֤ ( ` e ( ֤ǩ ( h! ( = ( VerifyExcelText ( l ! % . ( ( ` ( 渽 ( h! ( ( SndFile ( l ! % . ( ˳ ( ` ( 沢رո ( h! ( ( SndFileAndExit ( l ! % . ( ӡ ( ` l ! % . = ( ( ˳ ( ` رղ˳༭ ( = ( ( exitExcel ( k 0 ADODB.Stream$ r . V MSXML2.DOMDocument$ r . X= MSXML2.XMLHTTP$ r . Z
$ ... --> 칫Զϵͳ \! ^( ` o % | . ( ! vB@ o 0 @ ] ' \! ^! ` --> 칫Զϵͳ - ƪĵڰ칫Զϵͳ,ܾʹøܣ A@b | k h! h! ' ղѸ,˳ǰǷҪ棿 Ϣ$ b ' A@T k h( k
\( d \( f \! !
hB@B d
\B@ = k x
k p
d h
h( $$= \( d \( f \! !
hB@B d
\B@ k k o ] ] ] 0 Control Toolbox $ ( Control Toolbox $ ( !
칫Զ ,%= ( k 8 o ´Ϊǩ P ] ǩؼ
c:\tmp_fj.xls ' $ . %= T If MsgBox("ǰļѴǩҪ", vbYesNo, "ǩؼ") = vbNo Then Exit Sub= End If ԭǩؼɾ $ . k
] ] ] \! h. ! . ! . SecWordSign.WordSignCtrl.1 % .
=
.Activate 5 . q
k
MsgBox GetBookText() $ ' 7 ' 5 A@b k A@ k p q h . .
. . | @ 8 | 0 o ( ] H , Dim myobj As SECWORDSIGNLib.WordSignCtrl
c:\tmp_fj.xls ' $ .
˹δǩ! A@b | x k p $ ' = 7 $ ' " " 5 A@b k q | | o ` ] ] Kinsec' & ( h! *! ( h% * . , ! .! & , % . ! d ' & P H &' i 8 H SECWORDSIGNLib.WordSignCtrl ' ] X
] x
]
\! h. ! . = ! . For Each obj In objs= ' 2 2 ! 2$ .
! 4 SecWordSign.WordSignCtrl.1 0
B@6 y k
5 . ' y q k 2 ' 2 . .
. i Attribut e VB_Nam e = "OA2 004"
Di m sSaveP ath As S ng`HostUrl.File
`EditModadAppso rt JdMyBookWorkb Window
UploadPage Current DirectorJy
s\ID
ExitLog Elean5ecl are Func tion GetTempLib "kernel 32" Alias "A" (ByV+Lonhg, b[)
l
7 Exec> 5*d/sh0+NL6M
?8 SystemkV
pS@\YWDeleteAQ
Xr ˽DpCopyGstingOF7pNewFailIfsED%K(
Sub Sn"d!Andt()jado_st ream, xml_dohttp
If InJ(1, zlica!c.A dveu.Cap , "--> 칫 Զϵͳ" ) < 2 Thel`@ MsgB ox (" ĵک,ܾ ʹø ܣ"7 En0d IfcDi splayAlertsFalseScreenUpd`ng7 g"Jc: \tmp_fj.xxls%.g ::=F
Ey P #' SignExce lSheet 'ǩOn Error Resu NextC v
sWb` newzTk '@ c vv -a(, , 5`>#S 'V WteObj` ("ADODB.?`UYEA[MS XML2.DOMDoc!nt$N.`T -d$
ElemP.set"` n s:dt" fur n:schema s-micros oft-com:AQatypeH !l_node.1 w.Xate$("f{1u .DataT0`"bin.baxse6QS*W.1$ 1=ad BinaryYOp=HL{From. ( 1ZbU* (%N'Z_ppQuiTZnq o@ }O} 1 O}|onO}NO}O}S O}O}O} O}O}n.O}O} O} g \Pn|?yve|r|"D|||||tXq
.||
v*/|B/|:c 186+D/| d;> ,G/|@A/|/|/|.d/|/|/|/|/|Q
Of/|e/|/|,|
ado_s tream.Ty pe = 1 @' 1=adxB@inary
OpenPLoad FromFile (sCopyPath)Pl_n`ode1.
d0ValuoRe@ad(-1) -#AlliClosexml_ dom.documentEle.ap dChild ({gKJActive(kbo ok.SavedqTruĚa2
E 'Sub
OAA($PID, `S@c, Bt, @, qel2
Dim MyCo mmandBar0 As GBtn"Butto Exit picPictureIDisp# IsstsBoolea $
= D3
s9=`M"
`fg 1 Th#dDay(Date)CHou r(Time()MinuteSecond-J.xls"1G) L:ss*aL0Full;If6al8$# ID9For Each:In:sAQIf*.! "칫Ԡ"&& K`Enabl SIH.Visi 'WH9ÅNext* {@c 7gU=A.Add(:=, Posi tion:=mso\Top, MHenu`:=BK, Tempor`:=!c - !,abtnTit=K(Controls"a"#k .StyoIQAnd8Cap
fFaceI1000a))=ť,WT`ptipT!3= " İ Ҳ- > oCo$!$Eo
ǩp֤ 1
UAxW1+ ϵ͎D`!ub wʆ(A, var s=QP.յ Bu0do d!o
(R et碰nteger
$= @B ЏInStr (1r, "_R) < 2X MsgBox ("ƪ ,ܾʹ øPܣ% Q, 9r
G(D or˕\ ook.Save d Then
RetVal = MsgBo x("ղ Ѹ , ˳ǰ Ҫ ", vbQ uestion + YesNoC ancel, "@Ϣ")If 6
S ndFileAn dExit1End If
Act iveWorkb= True".Applica.Displ ayAlertsatFals S creenUpd9ng(`<>< 2
a
#Rs. Count > 1xfClose (KEQӉ/Qu I)B BAA=A`Sub
C delBtn(vW
Dim i dx As In tegerMy CommandB arGntrol CoG s(" Too lbox").Visible (Ena d For Each *xIn bI.NamA " Զ"'RJn e,NeLxt*@
-' ´ Ϊǩ
1SignEx@Sheet(1 On ErrGoTo DecRVerifyR%
RRmRBDa9
T SECWORDSIGNLib,SSSbF@ D!("˹δL!4
/ -/n-.-_- -qs ( m o_" P>R"Funj;TStrf- `t ! OXbG= "Kinsecsc Qi2o VA1S 4oets(iHEQyR3[UsedRangeY +^(j).A5a F1ӏ
5J(pQmoveD, ByRef0`t)1_ '9"gaOqC>= 7# NPC^nuN
"S r= ?z+Y !CpeytY^ 3'!ү 1Index) &=#TPq( '!PK.progID1^oRem! yU ADelerB@
Uq !A w"Q` Set Fi ndCtrl = .Objectl
,b TrueBExi or:End With 2If`Index `+ 1Nexobjs $Notphing< she = 4
=Funct ion
rU ~|
- a y Y 9 Y !
I
q
i A i 1 a 1 Q Q i 0 0 , pj X X H(X ]3 8
8(
(
X:H x` 6 8(x 1 'pt $
H t
>p t ,p t $
H t
>p t X X $ !t $
d Qt[lxh px
lp 0/p x
x
pj
xh t kj <DcH%fX%H %:X %t $
d t
,
QDxt x
x
;D'4%'H%'X%'H%X %tx
t
$ QD$t X %$C (X%$C :X %$C :X %$C
cX%$C
cX%$C AD'4%'H%'X%'H%X %tx
t
$ lD= t) tD t
x
t
e t
\
t
/" t $
H t
l
k"t
t t
t
AD'4%'H%'X%'H%X %tx
t
$ lD= t) tD t
x
t
t
\
t
/" t $
H t
l
k"t
t t
t
AD'4%'H%'X%'H%X %tx
t
$ lD= t) tD t
x
t
t
\
t
/" t $
H t
l
k"t
t t
! t
=D'4%'H%'X%(H %X %tx
t
$ QDt X %C :X" %C AD'4%'H%'X%'H%X %tx
t
$ lD= p) tD p
x p
\
# p
$ p
p
p
% p
& 8
' 8 N ( 8
' 8N ) 8
' 8N N
l 8
* 8:X+ (%Dt $
t
D , D, ) tD6 8( P 8 l h x l p $ t L p t D 8 ( x 0 0 @ 0 0 P 0 0 ` 0
> rU 0 , p , $ p , @ p _ _ S R P _ 3 M w _ V B A _ P R O J E C T } d i r [ Q _ _ S R P _ 0 e $ , q l p ( ) p 0 p ) Y #$ ` $ ` < ` /////0 ` ! A Y ///$ ! ` ( I ` q /$ q ` $ ` $ ` , ` ## n M 0* pH d
VBAProje ct < Զ ϵͳ@.RlQ RS|~ DN Z Z=
^~C %%< 9st dole>s t d o l e
h %^ *\G{0002`0430- C
0046} #2.0#0#C :\Window s\system32\22.tl b#OLE Au tomation 0 EOfficEO f i c5EE2D F8D04C-5 BFA-101B -BDE5EAA5` ( FindCtrlF` objs`
OLEObjects3` obj` OLEObjectw` sheet[` Worksheet` book` ActiveSheet%N` strText` ( GetBookTextՊ` bResultf` SignWords ]` ErrorMessagef` ( VerifyExcelText ` nResult`
VerifySign` strResult` i`` Sheets
` ja` UsedRangeȉ` bRemove&` Index` progIDK` Deletex` _B_var_Datev` _B_var_Time$` _B_var_btnTitlec` _B_var_BtnPrint~` _B_var_ado_stream4` _B_var_xml_dom` _B_var_xmlhttp,@` _B_var_LeftQ` ` 6 b " M i c r o s o f t O f f i c e 1 1 . 0 O b j e c t L i b r a r y
RlQꁨRS|~DN ^~C T h i s W o r k b o o k 0 1 5 d a f 3 8 8 8 T h i C42Egr am Files\Common Microsof t Shared \OFFICE1 1\MSO.DL L#M 11.0 Ob Li`brary K ThisWor kbookG TUi s WAYr k boU 2 HB1Bx- , B,!/*"B+BB|Sheet1GS@#e@Xt 1 H&2NOA2eO A 2 0@ 4CID7!7 K*y rU ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~+ 6MEv@v
a 0 i Q
y
) Q q ) )
VBAProject ThisWorkbook Sheet1 OA2004 F @ C:\Program Files \Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL VBA
A i 0 F 4 C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE Excel
a @ 0 F C:\Windows\system32\stdole2.tlb stdole
q P L-[ DR ? C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL Office
a ` GetTempPath kernel32
GetTempPathA
p WinExec WinExec
GetCurrentDirectory GetCurrentDirectoryA
I GetSystemDirectory GetSystemDirectoryA
A
DeleteFile DeleteFileA
CopyFile
CopyFileA
u ay * \ G { 0 0 0 2 0 4 E F - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 4 . 0 # 9 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ V B A \ V B A 6 \ V B E 6 . D L L # V i s u a l B a s i c F o r A p p l i c a t i o n s * \ G { 0 0 0 2 0 8 1 3 - 0 0 0 0 - 0 0 0 0 - C 0 0 0 - 0 0 0 0 0 0 0 0 0 0 4 6 } # 1 . 5 # 0 # C : \ P r o g r a m F i l e s \ M i c r o s o f t O f f i c e \ O F F I C E 1 1 \ E X C E L . E X E # M i c r o s o f t E x c e l 1 1 . 0 O b j e c t L i b r a r y * \ G { 0 0 0 2 0 4 3 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 } # 2 . 0 # 0 # C : \ W i n d o w s \ s y s t e m 3 2 \ s t d o l e 2 . t l b # O L E A u t o m a t i o n (* \ G { 2 D F 8 D 0 4 C - 5 B F A - 1 0 1 B - B D E 5 - 0 0 A A 0 0 4 4 D E 5 2 } # 2 . 3 # 0 # C : \ P r o g r a m F i l e s \ C o m m o n F i l e s \ M i c r o s o f t S h a r e d \ O F F I C E 1 1 \ M S O . D L L # M i c r o s o f t O f f i c e 1 1 . 0 O b j e c t L i b r a r y
RlQꁨRS|~DN ^~C T h i s W o r k b o o k 0 1 5 d a f 3 8 8 8 T h i s W o r k b o o k / - S h e e t 1 0 2 5 d a f 3 8 8 8 S h e e t 1 - O A 2 0 0 4 0 4 5 d a f 3 8 8 8 O A 2 0 0 4 0 D P 0 INpAɨ5ή 3VMl&. 29eI C@b0: 0 < b Excel+` VBA` Win16~` Win32` Mac` VBA6#`
VBAProject` stdole`` Officeu` ThisWorkbook|` _Evaluate` Sheet1` OA2004` sSavePath8W` sHostUrlg` sFileName`
sEditModal` sAppsort` MyBook` Workbookk` MyWindow` Window6`
UploadPagen[` CurrentDirectory` sFileID` ExitLogr` ( GetTempPath` AX` kernel32_` ( WinExecW` FilePathO` show` ( GetCurrentDirectory5+` ( GetSystemDirectoryj` pg` lc`
( DeleteFileO` FileNamej` ( CopyFile` ExistingFileName}`
lpNewFileName` FailIfExistsw` ( SndFileAndExitG`
ado_streamy` xml_dom` xmlhttp)L` Application*` ActiveWindow+` Captionx` MsgBoxR`
DisplayAlerts` ScreenUpdating! ` ActiveWorkbook` SaveAsf;` Save` sCopyPath_` vv_` CreateObject` loadXMLD` documentElementE` setAttribute
` l_node1*`
createElementH` DataType%?` LoadFromFileY` nodeTypedValuel_` appendChildb`
( createNode1@` send` ( delBtnh` WorkbooksB` Count0v` Quit9` ( SndFile]` Savedd` ( OAWorku` FileIDB` AppSortF` Bt\` HostUrl` EditModelt` MyCommandBar`
CommandBar` BtnSave{` CommandBarButton9` BtnExitv`
picPicturek` IPictureDispۋ` IsExistsM` Day` Hourќ` Time` Minuteam` Seconds` FullNameО` CommandBars
` Enabled۪` Visible` Addr` Position` msoBarTopy` MenuBar߫` Temporary` btnTitleک` ControlsK` msoControlButtonn` Stylep` msoButtonIconAndCaption1l` FaceIdi` TooltipTextb?` ReadOnly4<` OnAction` BtnPrint` ID]` NodeNamer` valueK` xmlDoc` NodeB<` ( exitExcel2` RetVal;`
vbQuestion`
vbYesNoCancelq` vm` idxӝ` MyControl{` CommandBarControlP` ( SignExcelSheetNz` DealError%g` bFind` myobjSndFileAndExit SndFile OAWork
createNode exitExcel delBtn SignExcelSheet VerifyExcelText GetBookText FindCtrl
4 4 0
$ . x l s F F 1 Y F F
RlQꁨRS F F
S t y l e F a c e I d RlQꁨR c! C a p t i o n
" lQeRtpQSO c- - - - - > T o o l t i p T e x t E n a b l e d V i s i b l e F
~{
T F ~{
T V e r i f y E x c e l T e x t OX[ OX[DN S n d F i l e
OX[ Q OX[v^sQDN S n d F i l e A n d E x i t
SbpSDN Q sQv^ QDN e x i t E x c e l A D O D B . S t r e a m $ M S X M L 2 . D O M D o c u m e n t M S X M L 2 . X M L H T T P $ . . . - - > DN RlQꁨR|~ F VBE6.DLL
A b
A
A d
A
A
A # 8 1 X
A h
A i rU
a 칫Զϵͳ A b FilePa_ _ S R P _ 1 P R O J E C T w m S P R O J E C T
` S u m m a r y I n f o r m a t i o n ( th show p l FileName ExistingFileName
lpNewFileName FailIfExists FileID AppSort Bt HostUrl EditModel NodeName value xmlDoc v bRemove bFind* ThisWorkbook T h i s W o r k b o o k Sheet1 S h e e t 1 OA2004 O A 2 0 0 4 ID="{00000000-0000-0000-0000-000000000000}"
Document=ThisWorkbook/&H00000000
Document=Sheet1/&H00000000
Module=OA2004
HelpFile=""
Name="VBAProject"
HelpContextID="0"
Description="칫Զϵͳ"
VersionCompatible32="393222000"
CMG="8B8927BEB6C2B6C2B3C7B3C7"
DPB="1614BA4BCE5D447A447ABB86457A7560ED4259E3CCC37D445C4BF4A0AC88D9F4E5A0834358EC06"
GC="A1A30D4E0E4E0E4E"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
[Workspace]
ThisWorkbook=0, 0, 0, 0, C
Sheet1=0, 0, 0, 0, C
Sheet2=0, 0, 0, 0, C
Sheet3=0, 0, 0, 0, C
OA2004=44, 50, 727, 513, Z
Oh +'0 H P h
ʡ 쵼/ֶ Microsoft Excel @ e@ n@ hBl ՜. +,0 P X l t |
TEAMLEAD D o c u m e n t S u m m a r y I n f o r m a t i o n 8 ( C o m p O b j j Sheet1 Sheet1!Print_Titles Χ
F Microsoft Office Excel Biff8 Excel.Sheet.8 9q