Excel VBA質問箱 IV

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

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


61569 / 76732 ←次へ | 前へ→

【19779】Re:マクロを削除して保存したいのですが
質問  shell  - 04/11/16(火) 22:12 -

引用なし
パスワード
   ▼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」は開いているのにどうしてエラーがおきてしまうのでしょうか?

どうぞよろしくお願いします。

0 hits

【19714】マクロを削除して保存したいのですが shell 04/11/15(月) 20:38 質問
【19716】Re:マクロを削除して保存したいのですが かみちゃん 04/11/15(月) 22:54 発言
【19717】Re:マクロを削除して保存したいのですが かみちゃん 04/11/15(月) 23:00 回答
【19733】Re:マクロを削除して保存したいのですが Jaka 04/11/16(火) 11:40 発言
【19779】Re:マクロを削除して保存したいのですが shell 04/11/16(火) 22:12 質問
【19781】Re:マクロを削除して保存したいのですが かみちゃん 04/11/16(火) 23:30 回答
【19786】自己レス反省文。 Jaka 04/11/17(水) 9:52 発言
【19846】Re:自己レス反省文。 shell 04/11/17(水) 21:41 お礼

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