回覆列表
  • 1 # 使用者3249779128415123

    返回應用程式完整路徑 Application.Path 返回當前工作薄的路徑 ThisWorkbook.Path 返回當前預設檔案路徑: Application.DefaultFilePath Application.ActiveWorkbook.Path 只返回路徑 Application.ActiveWorkbook.FullName 返回路徑及工作簿檔名 Application.ActiveWorkbook.Name 返回工作簿檔名

  • 2 # lruzf6348

    檔案 = Dir(ThisWorkbook.Path & "\*.*")Do While 檔案 "" If InStr(檔案, ".xlsm") > 0 Or InStr(檔案, ".txt") > 0 Then i = i + 1 Cells(i , "A").Value = ThisWorkbook.Path & "\" & 檔案 Else 檔案 = DirLoop

  • 中秋節和大豐收的關聯?
  • 公安局法制科是幹什麼的啊?具體職責是什麼?