如何打开工作簿并指定其路径
如何打开工作簿并指定其路径
提问于 2013-10-03 18:56:44
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在第三行。要打开工作簿并指定其路径，我应该执行什么操作？
回答 2
Stack Overflow用户
回答已采纳
发布于 2013-10-03 19:15:20
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 SubStack Overflow用户
发布于 2013-10-03 22:21:55
您也可以通过提示打开所需的文件，这有助于您从不同的路径和不同的文件中选择文件。
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/19157385
复制相关文章
相似问题
腾讯云开发者
