|
>ですから、CellとかにAccessする際、Workbook, WorkSheetは
>明示しましょうといっているのです。
すみません。下記でいいでしょうか?
実行結果は同じでしたが…。
Sub シートのコピー()
Dim myBook As Workbook
Dim Bookname As String
Dim I As Long, j As Long
Dim Shname As String
With ThisWorkbook.Worksheets("Menu")
For j = 4 To 10 Step 3
For I = 5 To 29 Step 2
.Select
If .Cells(I, j).Value <> "" And .Cells(I, j - 1).Value <> "" Then
Shname = Trim(.Cells(I, j - 1).Value)
Exit For
End If
Next I
Next j
End With
For Each myBook In Workbooks '開かれたBookのチェック
If myBook.Name = ThisWorkbook.Name Then
Else
Bookname = myBook.Name
Exit For
End If
Next
MsgBox (Bookname & " " & Shname)
Workbooks(Bookname).Worksheet(Shname).Select
Sheets(Shname).Copy after:=Workbooks(Bookname).Sheets(1)
End Sub
>あと、CopyしたいSheet(shname)がどのBookにあるか教えてください。
>ついでに、"Menu" Sheetも・・・
ABC.xlsに"Menu" Sheet、Sheet(shname)が存在します。
xyz.xlsへSheet(shname)をコピー
MsgBoxには、XYZ.xls shnameが表示されます。
>Programで怒られているのは、存在しないからですよ。
意味が、わかりません。
|
|