ご解答ありがとうございます。 早速やってみましたが、できません。 私のパソコン環境が変なのでしょうか。 そもそも、 Dim Book As Variant ' Excel Book Dim Sheet As Variant ' Excel Sheet Set Book = CreateObject("Excel.Sheet") Set Sheet = Book.Worksheets(1) すら、上手く行きません。ジーと音はするものの、 なんの変化も現れないのです。 （EXCELすら起動しません） のでいつも、私はこうしてます。 Set ExcelObj = CreateObject ("Excel.Application") ExcelObj.Visible = True ExcelObj.Workbooks.Add でも、これだと、 With ExcelObj.PageSetup と指定した途端、そこで、 「インスタンスのメンバにpagesetupはない！」 と、しかられエラーになってしまうのです。 EXCELでアドインやらなにやら、使用しています。 そういうのもろもろで、駄目になってしまうのでしょうか・・ お忙しいところ、恐縮ですが、もし、良い知恵があれば、授けてくださいませ。よろしくお願いします。