タイトル : Re: VB6上の表をエクセルシート2に表示させる方法 投稿日 : 2019/06/13(Thu) 11:55 投稿者 : 魔界の仮面弁士
> 最後行で「インデックスが有効範囲にありません」メッセージが発生して前に進めません。 Excel 本体の [ファイル]-[オプション] の全般タブにある 《新しいブックの作成時》の [ブックのシート数] が 1 なのではないでしょうか。 ちなみにこの値は xlsApp.SheetsInNewWorkbook を通じて変更できます。 > Set xlsBook = xlsApp.workbooks.Add > Set xlsSheet = xlsBook.sheets("Sheet1") > Set xlsSheet2 = xlsBook.sheets("Sheet2") シート名の代わりに連番指定でも操作できますね。 Debug.Print xlsBook.Worksheets.Count Set xlsSheet = xlsBook.Worksheets(1) Set xlsSheet2 = xlsBook.Worksheets(2) |