🚀 go-pugleaf

$BHS>B$H?=$7$^$9!#(B

 OLE$B$G(BExcel$B$r5/F0$9$k0J2<$N$h$&$J%W%m%0%i%`$r:n@.$7$?$H$3$m!"5/F0$7$?(B
Excel$B$N%&%#%s%I%&$NOH$d%D!<%k%\%?%s!"%9%F!<%?%9%P!<$OI=<($5$l$k$N$K!"(B
$B%7!<%H$d(BMDI$B$NGX7J$H$J$kItJ,$,F)$1$F$7$^$&8=>]$,H/@8$7$^$7$?!#(B

=====
    ' Excel$B$N5/F0(B $BI=<((B
    On Error Resume Next
    
    Set objExcel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set objExcel = CreateObject("Excel.Application")
        objExcel.Visible = False
    End If
        ' $B%(%i!<$,H/@8$7$?>l9g$O(B Err $B%*%V%8%'%/%H$r%/%j%"$7$^$9!#(B
    Err.Clear
    objExcel.Visible = True
=====

 $BI,$::F8=$9$k$o$1$G$O$J$/!"$3$l$G@5>o$KI=<($5$l$k>l9g$b$"$k$N$G$9$,!"(B
$B2?$,0c$&$N$+$O$^$@$o$+$C$F$$$J$$>uBV$G$9!#(B

 $B$3$N860x$*$h$SBP=hJ}K!$K$D$$$F!"2?$+%"%I%P%$%9$,$"$j$^$7$?$i(B
$B$<$R$*65$($/$@$5$$!#(B
 $B$h$m$7$/$*4j$$$$$?$7$^$9!#(B

--
$BHS>BB'M:(B (Norio Iinuma)
 ($B3t(B)$B%a%$%F%C%/(B $B;0EgBhFs%(%s%8%K%"%j%s%0%;%s%?!<=jB0(B
 $B%;%$%3!<EE;R9)6H(B($B3t(B) $B>.;3;v6H=j6PL3(B
 $B6PL3@h(B: n.iinuma@sii.co.jp