作成者	カテゴリ	返答の対象		公開
pico 12/07/2007 04:24 PM		Excel VBAの「:=」がエラーとなる。

こんな感じでは。

Dim xlApp , xlbook , xlsheet

Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open( "C:\aa.xls" )

With xlbook
.Worksheets("Sheet1").Select
x=.Worksheets("Sheet1").Copy( ,xlbook.Worksheets( 1 ))
Set xlsheet = xlbook.Worksheets("Sheet1 (2)")
End With

xlApp.Visible=True