Excel VBA質問箱 IV

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

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


55743 / 76738 ←次へ | 前へ→

【25762】Re:複数のブックのデータをひとつにまとめた...
回答  だるま WEB  - 05/6/13(月) 21:26 -

引用なし
パスワード
   >たびたびすみません。修正しましたがこんどは
>Thenの後、End If前までのコードが飛んでしまいます。
>
>If myBookName = ThisWorkbook.Name Then
>      'nop
>    Else
>      Set myBook = Workbooks.Open(myPath & myBookName)
>      For Each mySheet In myBook.Worksheets
>        With mySheet.UsedRange
>          .Copy rngDest
>          Set rngDest = rngDest.Offset(.Rows.Count, 0)
>        End With
>      Next
>      myBook.Close False
>    End If
コードが書いてある自ブックは処理しないので飛んで正常です。

ここで気が付きましたがもう一つ修正です。
自ブックの他に「BOOKA.xls」もパスしなければなりませんね。

>If myBookName = ThisWorkbook.Name Then
>  'nop
>Else

If myBookName = ThisWorkbook.Name Then
  'nop
ElseIf myBookName = "BOOKA.xls" Then
  'nop
Else
としてください。^d^
0 hits

【25749】複数のブックのデータをひとつにまとめた... KOTARO 05/6/13(月) 15:51 質問
【25750】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 17:02 回答
【25756】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 19:21 発言
【25757】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 19:48 回答
【25758】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 20:24 発言
【25760】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 20:40 回答
【25761】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 21:11 発言
【25762】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/13(月) 21:26 回答
【25765】Re:複数のブックのデータをひとつにまとめ... KOTARO 05/6/13(月) 22:16 発言
【25777】Re:複数のブックのデータをひとつにまとめ... だるま 05/6/14(火) 11:17 回答
【25783】Re:複数のブックのデータをひとつにまと... KOTARO 05/6/14(火) 17:35 発言
【25788】Re:複数のブックのデータをひとつにまと... だるま 05/6/14(火) 19:47 回答
【25805】Re:複数のブックのデータをひとつにまと... KOTARO 05/6/15(水) 9:19 発言
【25807】Re:複数のブックのデータをひとつにまと... だるま 05/6/15(水) 11:23 回答
【25822】Re:複数のブックのデータをひとつにまと... KOTARO 05/6/15(水) 17:10 お礼

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