🚀 go-pugleaf

$B$3$s$K$A$o(J $B$+$*$/!w$V$l$A$c(J $B$G$9!#(J

Atsushi Tanabe <tanabe@nikko.furukawa.co.jp> wrote in article
<01bccbd6$9240ee60$8f26ca9e@ws4657.ho.furukawa.co.jp>...

> $B#V#B#4$G:N<h$7$?%G!<%?$r(Jexcel$B7A<0$GJ]B8$7$?$$$N$G$9$,!"$J$K$+$&$^$$L?Na$O(J
>
$B$"$k$N$G$7$g$&$+!)#e#x#c#e#l$GJ]B8$5$l$?%G!<%?$r;2>H$9$kJ}K!$O%^%K%e%"%k$G(J

$B%"%I%P%s%95;8&$H$$$&$H$3$m$+$i!"(JExcel$B%/%j%(!<%?!<$H$$$&(J
Excel$B%U%!%$%k:n@.%D!<%k$,=P$F$$$^$9!#(J

OLE$B$O4JC1$G$9$,!"CY$$$N$G:$$j$^$9!#(J

$B!t$b$A$m$s!"(JExcel$B%/%j%(!<%?!<$N$[$&$,A4A3B.$$$G$9!#(J

In article <01bccbd6$9240ee60$8f26ca9e@ws4657.ho.furukawa.co.jp>, tanabe@nikko.furukawa.co.jp says...
>
>$B#V#B#4$G:N<h$7$?%G!<%?$r(Bexcel$B7A<0$GJ]B8$7$?$$$N$G$9$,!"$J$K$+$&$^$$L?Na$O(B

$BNc(B: Excel $B7A<0$N%U%!%$%k$r:n@.(B
'$BCm(B: Excel $B%*%V%8%'%/%H%i%$%V%i%j$r;2>H@_Dj$9$k$3$H(B
Dim Xl As Object
Dim Bk As Object

Set Xl = CreateObject("Excel.Application")
Set Bk = Xl.Workbooks.Add(xlWorksheet)

With Bk.Worksheets(1)
  .Cells(1, 1).Value = "aaa"
  .Cells(2, 1).Value = "bbb"
  
  .SaveAs "\doc\ABC.xls"
End With

Xl.Quit

 $B0J>e$NJ}K!$G$O!"$I$&$G$7$g$&$+!#(BExcel Basic $B$O>\$7$/$J$$$N$G$9$,(B
$B>e5-$N$h$&$J;v$r9T$($P!"(B*.xls $B7A<0$GJ]B8$,$G$-$k$H;W$$$^$9!#(B
 $B$?$@!"$b$7%+%s%^7A<0$N(B CSV $B%U%!%$%k$r:n@.$9$k=hM}$,$"$k$J$i$P(B

1. *.csv $B%U%!%$%k$r3+$/(B
2. *.xls $B7A<0$GJ]B8(B

$B$H$$$&=hM}$rDI2C$9$k$N$,NI$$$H;W$$$^$9!#(B

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

Atsushi Tanabe <tanabe@nikko.furukawa.co.jp> wrote in article
<01bccbd6$9240ee60$8f26ca9e@ws4657.ho.furukawa.co.jp>...

$B=i$a$^$7$F!"(BMedia io($B%a%G%#%"!&%$%*!K$N(B Masaya Hirano $B$H?=$7$^$9!#(B

> $B#V#B#4$G:N<h$7$?%G!<%?$r(Bexcel$B7A<0$GJ]B8$7$?$$$N$G$9$,!"$J$K$+$&$^$$L?Na$O(B
>
$B$"$k$N$G$7$g$&$+!)#e#x#c#e#l$GJ]B8$5$l$?%G!<%?$r;2>H$9$kJ}K!$O%^%K%e%"%k$G(B
> $B$b(B
> $BB?$/$N%Z!<%8$r$5$+$l$F$$$k$N$G$9$,!%!%(B
> $B$d$O$j%+%s%^$G$/$.$C$F#T#E#X#T7A<0$GJ]B8$9$k$7$+$J$$$N$G$7$g$&$+!)(B
> $B$I$J$?$+$N$40U8+$*BT$A$7$F$*$j$^$9!#(B
> 

$BFC$K!"$*CG$j$K$J$C$F$*$i$l$J$$$N$G!"(B

$B#V#B#4!&!&!&!&!&#3#2(Bbit$B$N%(%s%?!<%W%i%$%:HG(B
$B#E#x#c#e#l!&!&!&(BVer 7.0

$B$G$"$k$H2r<a$7$F!"OC$rB3$1$5$;$FD:$-$^$9!#(B

$B8=:_<j85$K<B:]$N%=!<%9$,$J$$$?$a!"B?>/$N3P$(0c$$$,$"$k$+$b$7$l$^$;$s$,!"(B
$B$"$i$+$8$a$4N;>52<$5$$!#(B

$B;d$,!"0JA0!";E;v$G;HMQ$7$?J}K!$O!"(B

$B!~#E#x#c#e#l$N%;%k$r!"#A#c#c#e#s#s$N#D#B$K%"%?%C%A$7!"%G!<%?%Y!<%9$H$7$F(B
$B!!#V#B$+$iFI$_=q$-$9$k!#(B

$B$3$NJ}K!$O!"EvA3#D#A#O$N#3!%#0$,$J$$$H=PMh$^$;$s!#(B
$B!J#A#c#c#e#s#s#D#B$X$N%"%?%C%A$O!"#V#B$N%3!<%I>e$+$i$b=PMh$^$9!#!K(B
$B$^$?!"%l%3!<%IE*$K%;%k$K%"%/%;%9$9$k$?$a!"2##19T$N%;%k$,#1%l%3!<%I(B
$B$KAjEv$7!"#19TFb$N$=$l$>$l$NNs$,!"%l%3!<%IFb$N$=$l$>$l$N9`L\$KAjEv(B
$B$7$^$9!#(B
$B$^$?!"#19TL\$O!"<+F0E*$K9`L\L>$K@_Dj$5$l$?$h$&$K;W$$$^$9!#(B

$B$3$NJ}K!$O!"2#JB$S$N%;%k$X$N%G!<%?$N=q$-9~$_$K$O8~$$$F$$$^$9$,!"(B
$B!V#C#4$N%;%k$K!"!G#5!GCM$r=q$-9~$`!W$H$$$&MM$J>l9g$O!"$"$i$+$8$a!"(B
$B=q$-9~$_@lMQ$N%7!<%H$D$/$j!"$=$3$+$i!"%(%/%;%k$NJ}$GL\E*$N%7!<%H$N(B
$B%;%k$K%j%s%/$rE=$k$H$$$C$?!"J}K!$r$H$i$J$1$l$P$J$j$^$;$s!#(B

$B$b$&0l$D$O(B

$B!~(BDim ExcelObj As Object
    
  Set ExcelObj = GetObject("test.xls")

$B$H$$$C$?46$8$G!"(BExel$B%*%V%8%'%/%H$r@k8@$7!"(BOLE$B$r$+$$$7$F(B
$B%"%/%;%9$9$kJ}K!$,$"$j$^$9!#(B
$B$3$A$i$N$d$jJ}$O!"(BExcel$B$NJ}$N(B VBA $B$N(B 'Cells' $B$r;HMQ$9$l$P!"D>@\(B
$B%;%k$r;XDj$7$FFI$_=q$-$,2DG=$G$9!#(B
$B$=$NB>!"%7!<%H$N0u:~$b2DG=$G$9!#(B
$B>\$7$/$O!"#V#B$N%^%K%e%"%k$N(B GetObject $B$H(B Excel$B$NJ}$N(B VBA $B$N%^%K%e(B
$B%"%k$r;2>H$7$F2<$5$$!#(B


#$B?=$7Lu$J$$$N$G$9$,!"#2HVL\$NJ}K!$O!"JL$N=j$G$3$N<jK!$rMQ$$$?%=!<%9$N(B
#$B0lIt$rM-NA$K$F8x3+$7!"4{$K9XF~$5$l$F$$$kJ}$,$*$i$l$k$?$a!"$3$l0J>e>\(B
#$B$7$/$*=q$-$9$k;v$,=PMh$^$;$s!#>e5-J}K!$r<h$i$l$F$$$kJ}$G>pJs8x3+$KLd(B
#$BBj$J$$J}!"$*$i$l$^$7$?$i!"%U%)%m!<$*4j$$CW$7$^$9!#(B

#$B$^$?!"$3$N%K%e!<%9%0%k!<%W$O>&MQMxMQ$,6X;_$G$"$C$?$H3P$($^$9$N$G!"$3(B
#$B$N>l$G$NM-NA8x3+$K4X$9$k$*Ld$$9g$o$;$K$O0l@Z$*Ez$(=PMh$^$;$s!#(B
#$B$4N;>52<$5$$!#(B

#$B$?$@$7!">e5-%=!<%9$NCx:n8"$O;d(B Masaya Hirano $B$,J];}$7$F$*$j$^$9$N$G!"(B
#$B$3$N>l$K$*$1$k!"<jK!5Z$S%=!<%9$N0lIt8x3+$O!"$J$s$iCx:n8"$K$U$l$J$$;v!"(B
#$B$^$?!"$3$NEj9F$rFI$^$l$?J}$,!"$=$N>pJs$r85$K:n@.$5$l$?$$$+$J$kCx:nJ*(B
#$B$NG[I[!"HNGd$KBP$7$F$b!";d(B Masaya Hirano $B$O$=$NCx:n8"$r<gD%$7$J$$$3(B
#$B$H$r$3$3$KIU$12C$($F$*$-$^$9!#(B
$B!J$3$NDxEY$N>pJs$G$A$g$C$HBg$2$5$G$9$,!"J]81E*$J7h$^$jJ86g$G$9$N$G(B(^_^)$B!K(B



$B>e5-!"M}M3$N$?$a!"CfESH>C<$J#R#E#S$H$J$C$F$*$j$^$9$,!"EDFiMM$N3+H/$K!"(B
$B>/$7$G$b$*Lr$K$?$F$P9,$$$+$HB8$8$^$9!#(B



--------------------------------------------------------------------
Media io _ Masaya Hirano
mailto:masayah@mbox.kyoto-inet.or.jp
http://web.kyoto-inet.or.jp/people/masayah/
$B$*OM$S!'#H#P7G:\$N!G(BLa_Vessel$B!G$K$O#V#B%i%s%?%$%`$NB>$K(BMfc42d.dll$B$r(B
$B!!!!!!!!I,MW$H$9$k$3$H$N5-:\$,$b$l$F$*$j$^$7$?!#$;$C$+$/%@%&%s%m!<%I(B
$B!!!!!!!!$7$FD:$$$?$N$K!"F0$+$J$+$C$?J}!"K\Ev$K?=$7Lu8f:B$$$^$;$s$G$7$?!#(B
--------------------------------------------------------------------