如何打开指定其path的工作簿

Sub openwb() ChDir "E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY" Workbooks("D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm").Open End sub 

在这里，我收到一个错误，说下Subscript out of range的第三行。 我应该怎么做才能打开一个指定其path的工作簿？

Answer 1

Workbooks.open("E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm")

或者，以更结构化的方式…

 Sub openwb() Dim sPath As String, sFile As String Dim wb As Workbook sPath = "E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\" sFile = sPath & "D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm" Set wb = Workbooks.Open(sFile) End Sub 

Answer 2

您也可以通过提示打开所需的文件，这有助于您从不同path和不同文件中select文件。

 Sub openwb() Dim wkbk As Workbook Dim NewFile As Variant NewFile = Application.GetOpenFilename("microsoft excel files (*.xlsm*), *.xlsm*") If NewFile <> False Then Set wkbk = Workbooks.Open(NewFile) End If End Sub