🚀 go-pugleaf

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>