Excel VBA 質問スレ Part17at TECHExcel VBA 質問スレ Part17 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト955:デフォルトの名無しさん 11/02/13 12:58:24 >>951 Trim かけて "" と比較するのがよくない？ 大したコストじゃないでしょ。 956:デフォルトの名無しさん 11/02/13 13:05:31 >>954 まず、エラーについて 元データブックを開いた段階で、転記先ブックがアクティブじゃなくなる 従って Set 転記先 = ThisWorkbook 転記先.Activate 転記先.Worksheets("確認").Select とする 次に複数のシートを選択するには、SelectのオプションReplaceを指定する Worksheet オブジェクト.Select(Replace) 以下、Replaceについての引用 (シートでのみ使用) 既に選択しているオブジェクトの選択を解除して、 指定したオブジェクトのみを選択するには、True を指定します。 既に選択しているオブジェクトに加えて、指定したオブジェクトを選択するには、False を指定します。 957:954 11/02/13 13:32:28 >>956さん 私の書き方が悪く申し訳ありません。 転記元ブックはもともと開いており、このコードを記述しています。 [OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") ] で開くのは転記先ブックです。 いま見直して気付いたのですが、[Set 転記先 = ThisWorkbook] が間違っているとおもうのですが、どう修正したらよいでしょうか？ Worksheets("確認")は後から開いた転記先ブックにあり、 Set 転記先 = OpenFileName 転記先.Activate 転記先.Worksheets("硬質").Select としてもエラーが出ました。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch