运行时错误9，试图获取新打开的文件中的最后一行
运行时错误9，试图获取新打开的文件中的最后一行
提问于 2017-08-31 20:42:48
下面是我失败的代码
Dim OpenFileName As String
Dim wb As Workbook, wb2 As Workbook
Dim lastrow
'Select and Open workbook
OpenFileName = Application.GetOpenFilename(",*.csv")
If OpenFileName = "False" Then Exit Sub
Set wb = Workbooks(OpenFileName)
Set wb2 = Workbooks("MasterLogFile.xlsm")
MsgBox OpenFileName
With wb
'lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
Range("A3:ME" & lastrow).Copy
.Sheets("Log Imports").Range("A7").Paste
End With在设置的WB线上失败，我哪里做错了？
Stack Overflow用户
发布于 2017-08-31 20:47:29
将代码更改为以下代码：
Set wb = Workbooks.Open(OpenFileName)然后在结尾处关闭，如下所示：
https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbook-close-method-excel
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45981741
复制相关文章
相似问题
腾讯云开发者
