|
▼Jaka さん
ありがとうございます。いろいろためしてくださっているのですね。
感激です。
かみちゃんさん、お返事ありがとうございます。
>関連するシートを全部新しいブックにコピーではいけませんか?
の方法でやってみようと思って次のように書いてみたのですが、
Sub hozon()
Dim myFileName1 As String
Dim myFileName2 As String
Dim mySht As Variant
Dim ws As Worksheet
myFileName1 = ThisWorkbook.Path _
& "\" & t & "月" & "\" & t & "月度_個人別グラフ.xls"
myFileName2 = t & "月度_個人別グラフ.xls"
Application.ScreenUpdating = False
'新規ブックを作成
Workbooks.Add
AvtiveWorkbook.SaveAs Filename:=myFileName1
'シートを新規ブックにコピー
Workbooks("個人別グラフ作成.xls").Activate
mySht = Array("基本データ", "Graph1", "Aグループ", "Graph2", "Bグループ", _
"Graph3", "Cグループ", "Graph4", "Dグループ", _
"Graph5", "Eグループ")
Sheets(mySht).Copy after:=Workbooks(myFileName2).Sheets(3)
'新規ブックから使われていないシートを削除
Workbooks(myFileName2).Activate
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If Application.WorksheetFunction.CountA(ws.UsedRange) = 0 Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
'新規ブックを保存
With Workbooks(myFileName2)
.Saved = True
.Close
End With
Application.ScreenUpdating = True
'作成終了のメッセージ
MsgBox t & "月分の個人別グラフが作成できました" _
& Chr(13) & Chr(10) & "ブックを閉じます", , "作成終了"
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
のですが、
'シートを新規ブックにコピーの
Sheets(mySht).Copy after:=Workbooks(myFileName2).Sheets(3)
のところで、「インデックスが有効範囲にありません」となってしまいます。
ちゃんと「myFileName1」は開いているのにどうしてエラーがおきてしまうのでしょうか?
どうぞよろしくお願いします。
|
|