|
>たびたびすみません。修正しましたがこんどは
>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^
|
|