運行時錯誤9，試圖獲得在新打開的文件

Question

這裏LASTROW是我的代碼失敗

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 

失敗的設置白平衡線，我在做什麼錯？

Answer 1

更改代碼，這一個：

Set wb = Workbooks.Open(OpenFileName) 

那麼，在年底這樣關閉：

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbook-close-method-excel