受講生 さん:

「実行時エラー'9' インデックスが有効範囲にありません。」
は、シートやファイルを指定する際、（カッコ）内の文字列がおかしいと出てくるエラーです。

Sub ErrorTest()
    '以下の[b], [c] では、「実行時エラー'9' インデックスが有効範囲にありません。」というエラーが出ます。

    '[a]指定されたセルが存在しないからエラー
    Range("10B").Value = 100
    
    '[b]アクティブなファイルにシート「天気予報」がない場合は、指定されたシートが存在しないからエラー
    Worksheets("天気予報").Range("B10").Value = 100
    
    '[c]ファイル「オレのこだわりファイル.xls」が開かれていない場合はエラー
    Worksheets("オレのこだわりファイル.xls").Worksheets("Sheet1").Range("B10").Value = 100
End Sub

さて、では、なぜ今回うまくいかないか？ということですが…。
ちょっと根深そうです。

ついては、まずは、以下のテストを実行しだけませんか。

ks204.xls にテストの結果をお知らせいただければ幸いです。
新しいモジュールを追加して、以下の4つのマクロ貼り付け順番に実行してみてください。

以下のそれぞれのテストでは、エラーが出て途中終了してしまった場合は、その次に実行するテストの前に「template.xls」を手動で閉じてください。

Sub TPTEST_1()
    Dim fname
    fname = "n1.xls"
    Workbooks.Open Filename:=ThisWorkbook.Path & "\template.xls"
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    Workbooks(fname).Worksheets("転記先").Range("B10").Value = 100

    ActiveWorkbook.Close
End Sub
Sub TPTEST_2()
    Dim fname
    fname = "n2.xls"
    Workbooks.Open Filename:=ThisWorkbook.Path & "\template.xls"
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fname, FileFormat:=xlExcel8, CreateBackup:=False
    
    Workbooks(fname).Worksheets("転記先").Range("B10").Value = 100

    ActiveWorkbook.Close
End Sub
Sub TPTEST_3()
    Dim fname
    fname = "n3"
    Workbooks.Open Filename:=ThisWorkbook.Path & "\template.xls"
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fname & ".xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    Workbooks(fname).Worksheets("転記先").Range("B10").Value = 100

    ActiveWorkbook.Close
End Sub
Sub TPTEST_4()
    Dim fname
    fname = "n4"
    Workbooks.Open Filename:=ThisWorkbook.Path & "\template.xls"
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fname & ".xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
    Workbooks(fname).Worksheets("転記先").Range("B10").Value = 100

    ActiveWorkbook.Close
End Sub

僕の予想では:
TPTEST_1: 無事に動作する
TPTEST_2: 無事に動作する
TPTEST_3: エラー「実行時エラー'9' インデックスが有効範囲にありません。」で強制終了
TPTEST_4: エラー「実行時エラー'9' インデックスが有効範囲にありません。」で強制終了

なのですが...。

よろしくお願いいたします。


> いつも楽しく視聴させていただいております。
>
> さて、本編7分50分前後の動作確認時に発生するエラーについて質問いたします。
>
> エラーについてですが、
> 【 Workbooks(fname).Worksheets("転記先").Range("B10").Value = 100 】において、
> 実行時エラー'9' インデックスが有効範囲にありません。
> ・・・と表示されます。
>
> なぜエラーが発生するのか、ご教示のほどお願い致します。
>
>
> Sub Macro2()
>
> Dim fname
> fname = "n.xls"
>
> Workbooks.Open Filename:="C:\Users\NEC\Desktop\ks204_mondai\template.xls"
> ActiveWorkbook.SaveAs Filename:= _
> "C:\Users\NEC\Desktop\ks204_mondai\ " & fname, FileFormat:= _
> xlOpenXMLWorkbook, CreateBackup:=False
>
> Workbooks(fname).Worksheets("転記先").Range("B10").Value = 100
>
> ActiveWorkbook.Close
> End Sub

2018/04/21 21:24