返回列表 上一主題 發帖

[發問] 簡單問題-檔案所在的磁碟

回復 3# pitera88
  1. Sub ex()
  2. Set fsd = CreateObject("Scripting.FilesystemObject")
  3. MsgBox fsd.getdrivename(ThisWorkbook.FullName)
  4. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 生氣,就是拿別人的過錯來懲罰自己。
返回列表 上一主題