🚀 go-pugleaf

In article <01bcbc1a$963bbc00$11a59fd2@namihei>, kawa@marygold.com says...
>
>Dim ffd As WIN32_FIND_DATA
>Dim lFile As Long
>
>  lFile = FindFirstFile("Excel.exe",ffd)
>

 $BNc$($P!">e5-$N%3!<%I$K2C$($F!"8!:w$K<:GT$7$?>l9g!"(B

(1) $B8=:_$N%G%#%l%/%H%j2<$N%5%V%G%#%l%/%H%jL>$rNs5s$9$k(B
(2) $B3F!9$N%5%V%G%#%l%/%H%j$K$D$$$F!"8!:w=hM}$r:F5"8F$S=P$7(B
 $B$9$k!#(B

$B$H$$$&%3!<%I$r5-=R$9$l$P!"$&$^$/9T$/$G$7$g$&!#(B($B$*$9$9$a(B
$B$7$^$;$s(B)

 $B$7$+$7!"(BExcel $B$J$IFCDj$N%"%W%j%1!<%7%g%s$K4X$7$F$O!"$b$C$H(B
$BJXMx$J5/F0J}K!$,$"$j$^$9!#(BVisual Basic $B$N(B CreateObject $B4X?t$d(B
GetObject $B4X?t!"$^$?(B Win32 API $B4X?t$N(B ShellExecute $B4X?t$r(B
$B;H$&J}K!$G$9!#(B

$BNc(B: Excel $B$r5/F0$9$k!#(B

Dim X as Object
Set X = CreateObject("Excel.Application")
X.Visible = True

 $BL\E*$N%"%W%j%1!<%7%g%s$,>e5-$NJ}K!$G<B9T$G$-$k$+$I$&$+!"(B
$BD4$Y$F$_$F$O$$$+$,$G$7$g$&$+!#(B

-- 
$B:4F#@59((B <masahiro@cij.co.jp>