|
▼トクちゃん さん:
>Excel からWordの指定したファイルを開きたいのですがどうしたらよいのでしょうか?
CreateObject()関数を使用してもファイルを開く事ができますよ。
【Wordファイルを開く例】
Sub Word_open()
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
With oApp
.Visible = True
.Documents.Open FileName:="ファイル名"
End With
Set oApp = Nothing
End
'
End Sub
ちなみに、同じ様にPowerPointのファイルも操作する事が可能です。
【PowerPointファイルを開く例】
Sub word_open()
Dim oApp As Object
Set oApp = CreateObject("PowerPoint.Application")
With oApp
.Visible = True
.Presentations.Open FileName:="ファイル名", ReadOnly:=msoFalse
End With
Set oApp = Nothing
End
End Sub
こちらも試してみては如何でしょうか?
|
|