返回列表 上一主題 發帖

module 的位置?

回復 1# alex520188
是這樣嗎?
  1. Sub Ex()
  2.     Dim FileName As String, FilePath As String
  3.         FileName = Range("A1")          '檔案名稱
  4.         FilePath = "D:\"                '路徑
  5.         Workbooks.Open FilePath & FileName
  6.         Run FileName & "!TEST"          '每一檔案須是一樣的巨集名稱
  7. End Sub
複製代碼

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題