EXCEL VBA：使用 vba 打開 XLSM excel

Question

我無法弄清楚代碼中的錯誤

If cboUnit.Text = "MARINER" Then
Application.ScreenUpdating = False
Application.Workbooks.Open Filename:=ThisWorkbook.Path & "\UNIT" & "\MARINER"
ThisWorkbook.Activate
Workbooks("TOUKEI DATA REPORT GRAPHING").Close
End If

我只想打開文件夾單元上的 xlsm 文件，但我總是遇到錯誤：

運行時錯誤 '1004' 得到的文件是 'xlsx' 擴展名

Answer 1

如果你使用這樣的東西，它至少應該使調試更簡單。 然后替換我在這一行中提供的代碼：

Application.Workbooks.Open Filename:=ThisWorkbook.Path & "\UNIT" & "\MARINER"  

使用其他變量聲明變量。 我理解你的問題是“水手”是文件名。 如果不是，您將需要更改 fileNPath。

Dim path As String, fileNPath As String

'add these two values above your code
path = ActiveWorkbook.path
fileNPath = path & "\UNIT\MARINER.xlsm"

Application.Workbooks.Open fileName:=fileNPath   'Change this line 

完成此操作后，您可以在調試模式下看到文件路徑的值，在該模式下，您擁有的版本將沒有值，直到無論如何都不起作用的行。 因此，通過這種方式，您可以在嘗試使用之前看到發生了什么。

注意：要啟用宏的工作簿，它必須是 .xlsm，而不是 .xlsx