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

½Ð°Ý¦p¦ó¦ÛÀɮ׸ô®|ªº¦r¦ê¤¤¡A©î¥X¸ô®|©MÀɦW?

¦^´_ 1# examsuper

Windows("F:\§Úªº¤å¥ó\9908\filename.xls").Activate ³o»yªk¦ü¥G¨S¥²­n..?
¦]¬°¦P¤@®É¶¡,¤£·|¶}¨â­Ó¦P¼ËÀɦWªº excel ÀÉ®×..

TOP

±q¦r¦ê¨úÀɦWªº¤è¦¡,¥i°Ñ¦Ò.
http://gb.twbts.com/index.php?topic=4068.0

¦pªG¥Î°j°é³B²z..
a = "F:\§Úªº¤å¥ó\9908\filename.xls"
For i = Len(a) To 1 Step -1
    If Mid(a, i, 1) = "\" Then
        file_name = Right(a, Len(a) - i)
        file_path = Left(a, i - 1)
        Exit For
    End If
Next i

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD