🚀 go-pugleaf

$B=i$a$FEj9FCW$7$^$9!#(J
$B;%KZ$N@n8}$H?=$7$^$9!#(J

$B<+:n%"%W%j%1!<%7%g%s$+$iB>$N%"%W%j%1!<%7%g%s$r(J
$B5/F0$9$kJ}K!$K$D$$$F65<(4j$$$^$9!#(J

$B#O#S$O#W#i#n#9#5(J
$B3+H/4D6-$O#V#B#5!%#0%(%s%?!<%W%i%$%:$G$9!#(J

$B<+:n%"%W%j$+$i#E#X#C#E#L$N=j:_$rC5$7$F!"(J
$B#E#X#C#E#L$N5/F0$r9T$$$?$$$N$G0J2<$NJ}K!$r;n$_$^$7$?!#(J

$B#W#i#n#3#2#S#D#K$N!"#F#i#n#d#F#i#r#s#t#F#i#l#e7O$N4X?t$r;HMQ$7$F(J
$B3:Ev$9$k%U%!%$%k$rNs5s$5$;$F!"3:Ev%"%W%j!J#E#X#C#E#L!K$N%U%k%Q%9$r(J
$B<hF@$7!"$=$N8e#S#h#e#l#l$K$h$j5/F0$9$k!#(J

$B$=$l$G!"#A#P#I%S%e!<%"$K$h$j!"#W#I#N#3#2!2#F#I#N#D!2#D#A#T#A9=B$BN$H(J
$B#F#i#n#d#F#i#r#s#t#F#i#l#e!"#F#i#n#d#N#e#x#t#F#i#l#e!"#F#i#n#d#C#l#o#s#e$N(J
$B%W%m%H%?%$%W$r<+:n%"%W%jB&$N(J
$B%3!<%I$KE=$jIU$1$^$7$?!#(J

------------------------------------------------------------

Dim ffd As WIN32_FIND_DATA
Dim lFile As Long

  lFile = FindFirstFile("Excel.exe",ffd)

*1

$B!J%(%i!<=hM}!K(J
.....

------------------------------------------------------------

$B>e5-$N%3!<%I$G!"(J*1$B$N>l=j$G!"(Jffd.cFileName$B$r8+$?$i(J
Null$B$N$^$^$G!"La$jCM$O%(%i!<$r<($9(J-1$B$G$7$?!#(J
$B$G!"$9$G$KF~$C$F$$$k(JEXCEL$B$N%U%k%Q%9$r%Q%i%a!<%?$K$7$F$"$2$k$H(J
$B%(%i!<$K$O$J$j$^$;$s$,!"$3$l$G$O0UL#$,$"$j$^$;$s!#(J

$BL\E*$O<B9T4D6-$K1~$8$FFCDj$N%"%W%j%1!<%7%g%s$N%U%k%Q%9$r<hF@$9$k$3$H$G$9!#(J
$B$3$N$d$jJ}$G$$$$$N$+!"4V0c$C$F$$$k$H$9$l$P$I$N$h$&$K$9$l$P$$$$$N$+(J
$B65<(D:$1$k$H=u$+$j$^$9!#(J

$B$I$&$>$h$m$7$/$*4j$$CW$7$^$9!#(J

$B!t<j85$K%K%e!<%9%j!<%@!<$,(JMS$B$N$7$+L5$+$C$?$N$G4*J[$7$F2<$5$$!#(J