|
変数の取り方を教えて下さい。
画面からファイルを選択させて、そのopenしたファイルの
セルA1にカーソルを移したいのですが、変数を記述すると
公文エラーになります。
物理ファイルのパスを指定すると正しく読み込みます。
変数は正しく取得できているようですが、記述の仕方を教えて下さい。
お願いします。
エラーの箇所は★の()の中の記述です。
'●ファイルオープン処理
OpenFileName = Application.GetOpenFilename("xlsファイル,*.xls" _
, , "ファイルを選択してください")
'●キャンセルボタンが押された場合
If OpenFileName = False Then
MsgBox "処理がキャンセルされました"
Exit Sub
Else
' MsgBox "ファイル名 : " & Dir(OpenFileName)
Workbooks.Open Filename:=OpenFileName
End If
MsgBox OpenFileName
★Windows("OpenFileName").Activate
Range("A1").Select
|
|