ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ª¾¹D¤å¥ó¸ô®|,¤£¶}±Ò¤å¥ó,¯àª¾¹D¤å¥ó¨½¬O§_¦³±isheet¦W¬O"P3""

[µo°Ý] ª¾¹D¤å¥ó¸ô®|,¤£¶}±Ò¤å¥ó,¯àª¾¹D¤å¥ó¨½¬O§_¦³±isheet¦W¬O"P3""

¸ê®Æ®w¨½²VÂøµÛ2ºØexcel¤å¥ó,¥uª¾¹D2ºØ¤å¥óªº°ß¤@°Ï§O¬O¦³¨S¦³¤@±i¦W¬°"P3"ªºsheet,¦pªG¤£¶}±Ò¤å¥ó¯à¯à°µ¨ì¶Ü?
§Ú¼g¹L¤@­Ó¨ç¼Æ,¥i¥H°Ï§O2ºØ¤å¥ó,¦ý°õ¦æ¦³ÂIºC(3500­Ó¤å¥ó¥Î12¬í),¤å¥ó¶q¤j,¬Ý¬Ýª©¥D¬O§_¦³§ó¦nªº¤èªk,ÁÂÁÂ
Function Benew(fl$) As Boolean
    Dim Fname$, Fpath$, temp$, temp2
    Fname = Mid(fl, InStrRev(fl, "\") + 1)
    Fpath = Replace(fl, Fname, "")
    On Error Resume Next
    temp = "'" & Fpath & "[" & Fname & "P3'!R2C1"
    temp2 = Application.ExecuteExcel4Macro(temp)
    Benew = IIf(temp2 = "Show", True, False)
End Function
lmh

¥i§_¥ÎAPI°µ¶Ü?
lmh

TOP

¦^´_ 2# mhl9mhl9
ºô¸ô¤W§ä¨ìªº, °Ñ¦Ò¬Ý¬Ý :

¤£¶}±Ò¤u§@ï¡A¦CÁ|¤u§@ªí¦WºÙ

TOP

¦^´_ 3# luhpro

¤Ó½ÆÂø,ÁÂÁÂ
lmh

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD