VBからExcelのセルのコピーを行うには？ (ID:112579)

名前

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

本文 魔界の仮面弁士さま。 大変詳しいご説明ありがとうございました。 > With AppXLS.Application > '=AppXLS.Application.Workbooks.Add この部分、確かにWorkbookのほうが自然ですよね。 ＞AppXLS.Visible = True ＞ Set objWorkbook = AppXLS.Workbooks.Add() ＞ objWorkbook.Worksheets.Add こうすることによって関連付けも分かりやすくなりました。 そこで、 > With .Workbooks(1).Worksheets(1).Range("A1") ここでご指摘された部分ですが、 上のプログラムを参考にして、下のようにしてみました。 AppXLS.Visible = True Set objWorkbook = AppXLS.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets.Add() With objWorksheet.Range("A1") .Value = "ABCDEFG" .Font.Size = 20 .Font.ColorIndex = 3 .Columns(1).AutoFit End With まだまだ理解できていないとお叱りを受けるかと思いますが、これからもよろしくお願いいたします。