指定のExcelを開くには？ (ID:140898)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以下のコードにしたことで、指定のExcelは開いたのですが、 1度ファイルが開いて、同じファイルがまた開き（使用中のため読み取り専用で）、さらに新規Bookが開いてしまいます。 指定のファイルだけを開くにはどうしたらよいのでしょうか？ Dim xlApp Dim xlBook Dim xlSheet xlApp = CreateObject("Excel.Application") xlBook = xlApp.Workbooks.Open("パス・ファイル名") xlSheet = xlBook.Worksheets("シート名") xlApp.Visible = True xlSheet.Activate()