タイトル : Re^4: 最後にエクセルシート追加は可能でしょうか 投稿日 : 2016/01/08(Fri) 10:14 投稿者 : SUZUKI
回答ありがとうございます 花ちゃん 例題 NO。20を引用していますが抜けていました 申し訳ありません 指摘どおりやって見ました 数字は3としております Dim xlSheet2 As Excel.Worksheet ' xlSheet2 = DirectCast(xlSheets.Add, Excel.Worksheet) xlSheet2 = DirectCast(xlSheets.Add(After:=xlSheets.Item(3)), Excel.Worksheet) MRComObject(xlSheet2) 意図するとおり 追加されたシートが名前変更されるようになり メッセージとおりとなりました が、しかしです EXCELが停止しなくなりました これは、不思議で私の理解を超えています 何をデクリメントすべきか見当もつかない状況です |