0
でLASTROWを取得しようとすると、実行時エラー9、ここに新しくオープンしたファイル
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行に失敗し、私が間違って何をやっていますか？
GetOpenFileNameの方法は、（[開く]ダイアログを表示しますが、ファイルを開けません。選択されたファイル名を返します）。 Vityataが答えたように、あなたはその後それを開いて（そして閉じて）いなければなりません。まだ開いていないブックへの参照を取得しようとしているため、エラーが発生しました。 –