Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51052 / 76732 ←次へ | 前へ→

【30555】Re:ファイル選択をキャンセルした際の抜け方
質問  kino  - 05/10/30(日) 21:04 -

引用なし
パスワード
   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ステートメントをコメントアウトして、オブジェクトを指定してもエラーになるのですが、どこを見ればいいのでしょうか?

お手数をかけますが、お時間がありましたらご教授ください。
0 hits

【30551】ファイル選択をキャンセルした際の抜け方 kino 05/10/30(日) 18:28 質問
【30552】Re:ファイル選択をキャンセルした際の抜け方 Kein 05/10/30(日) 19:19 回答
【30553】Re:ファイル選択をキャンセルした際の抜け方 Kein 05/10/30(日) 19:20 発言
【30555】Re:ファイル選択をキャンセルした際の抜け方 kino 05/10/30(日) 21:04 質問
【30556】Re:ファイル選択をキャンセルした際の抜け方 かみちゃん 05/10/30(日) 21:13 発言
【30568】Re:ファイル選択をキャンセルした際の抜け方 kino 05/10/31(月) 2:25 お礼
【30559】Re:ファイル選択をキャンセルした際の抜け方 Kein 05/10/30(日) 21:38 発言

51052 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free