投稿日 | : 2003/06/11(Wed) 16:14 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: OLEを利用してExcel(訂正) |
念のため確認してみたら取得も設定もできました。
Private Sub Command1_Click()
Dim xlObj As Object
OLE1.CreateEmbed "c:\test.xls"
Set xlObj = OLE1.object.Application
With xlObj
.Left = 0
.Top = 0
.Height = 500
.Width = 700
End With
End Sub