½Ð°Ý¦p¦ó¦ÛÀɮ׸ô®|ªº¦r¦ê¤¤¡A©î¥X¸ô®|©MÀɦW?
- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 1# examsuper
Windows("F:\§Úªº¤å¥ó\9908\filename.xls").Activate ³o»yªk¦ü¥G¨S¥²n..?
¦]¬°¦P¤@®É¶¡,¤£·|¶}¨âÓ¦P¼ËÀɦWªº excel ÀÉ®×.. |
|
|
|
|
|
|
- ©«¤l
- 133
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 147
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2024-11-11
|
±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 |
|
|
|
|
|
|