タイトル : Re^2: VB6上の表をエクセルシート2に表示させる方法 投稿日 : 2019/06/13(Thu) 22:44 投稿者 : かわの
でふぁ様 魔界の仮面弁士様 ご教示ありがとうございました。 エクセル側でシート2を作成し、またエクセルオプション設定でブックのシート数を2に増やしましたが、当方のコードのままでは、「インデックス有効範囲外」エラーは解消できませんでした。 シート名の代わりに連番指定での操作を試してみます。 ありがとうございました。 > > 最後行で「インデックスが有効範囲にありません」メッセージが発生して前に進めません。 > > 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) |