🚀 go-pugleaf

$B$O$8$a$^$7$F!"BgDM$H?=$7$^$9!#(B

VB5$B$+$i(BExcel97$B$r5/F0$7$F(BExccel$B$O$=$N$^$^$G!"?F$G$"$k(BVB$B$N(B
$B%W%m%0%i%`$r=*N;$5$;$k$K$O$I$&$9$l$P$h$$$N$G$7$g$&$+!)(B

$B6qBNE*$K$O!"(B

Private AppXl as object
Private BookXl as object
Private WsXl as object

Sub Command1_Click()

  set AppXl = CreatObject("Excel.Application")
  set BookXl = AppXl.workbooks.add
  set WsXl = AppXl.activesheet
	AppXl.visible = True			
'$BMe@~$NIA2h(B
'$B=q<0$N@_Dj(B
'$B%G!<%?$NF~NO(B
' Excel$B$O5/F0$7$?$^$^!*(B				
  set WsXl = Nothing
  set BookXl = Nothing
  set AppXl = Nothing

end sub

$B$N$h$&$K$7$F$$$k$N$G$9$,!"(BExcel$B$N(Bbook$B$rJD$8$h$&$H$9$k$H(B
$B%Z!<%80cH?$N%(%i!<$,=P$^$9!#!J(BExcel$B<+BN$N=*N;$OLdBj$"$j(B
$B$^$;$s!#!K(B
$B%*%V%8%'%/%H$N2rJ|$r9T$J$o$J$1$l$P(Bbook$B$rJD$8$F$b%(%i!<(B
$B$O=P$^$;$s$,!"(BExcel$B$h$jA0$K?F$G$"$k(BVB$B$N%W%m%0%i%`$,=*N;(B
$B$9$k$3$H$b$"$k$N$G!"(Bunload$B;~$K%*%V%8%'%/%H$r2rJ|$9$k$H(B
$B$$$C$?$3$H$b$G$-$^$;$s!#(B

FAQ$B$+$b$7$l$^$;$s$,$h$m$7$/$*4j$$$7$^$9!#(B
$B$^$?!"(BVB$B$+$i30It%W%m%0%i%`$r5/F0$9$k:]$N:nK!$J$I$b(B
$B%"%I%P%$%9$7$F$$$?$@$1$k$H4r$7$$$G$9!#(B

------------------------------------------------------
Department of applied physics, university of Tokyo
				Yuichi OTSUKA ($BBgDM(B $BM:0l(B)
e-mail:  otsuka@pothos.t.u-tokyo.ac.jp
------------------------------------------------------