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

[µo°Ý] ²³æ°ÝÃD-ÀɮשҦbªººÏºÐ

[µo°Ý] ²³æ°ÝÃD-ÀɮשҦbªººÏºÐ

ActiveWorkbook.Path ¬OÀɮשҦbªº¸ô®|

½Ð°ÝÀɮשҦbªººÏºÐ ©R¥O¦¡¬O¤°»ò¡A·P®¦!!!
¤¯¥S

¦^´_ 1# pitera88
Split(ActiveWorkbook.Path,":")(0)

TOP

¦^´_ 2# stillfish00


    ÁÂÁ¦^Âгo­Ó¥Îªk¡A·P®¦!!
¤¯¥S

TOP

¦^´_ 3# pitera88
  1. Sub ex()
  2. Set fsd = CreateObject("Scripting.FilesystemObject")
  3. MsgBox fsd.getdrivename(ThisWorkbook.FullName)
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD