|
Kein さん、はじめまして。
さっそく教えていただき、ありがとうございます。
ファイル選択をキャンセルした際の抜け方は、教えていただいた方法で成功しました。
わからない部分があるのですが、
> For Each x In FName
> Set TgB = Workbooks.Open(x)
> With TgB.Worksheets(1)
> NyS.Range("A6").Value = .Range("G1").Value
> MyS.Range("B6").Value = .Range("G2").Value
> For i = 0 To 4
> MyS.Range(MyS.Cells(6, i + 20), MyS.Cells(19, i + 20)) _
> .Value = _
> .Range(.Cells(17, CAry(i)), .Cells(30, CAry(i)).Value
> Next i
> End With
↑部分の Withステートメント
> NyS.Range("A6").Value = .Range("G1").Value
で実行時エラー'424'オブジェクトが必要です。とエラーが出ます。
Withステートメントをコメントアウトして、オブジェクトを指定してもエラーになるのですが、どこを見ればいいのでしょうか?
お手数をかけますが、お時間がありましたらご教授ください。
|
|