EXCEL2010のVBAについて教えて下さい。

質問

１つのBOOKから、
フォルダの中に入っているいろんなファイルを開くVBAです。
2002、2003では上手くいくのですが、2010で同じように記述したところ、
EXCEL以外のファイルが開きません。

どうかご教授よろしくお願いします。

With CreateObject("Scripting.FileSystemObject")
FileType = .getfile(Myfilename).Type
End With

If Right(Myfilename, 4) = ".xls" Or Right(Myfilename, 5) = ".xlsx" Then
Workbooks.Open Myfilename

ElseIf Right(Myfilename, 4) = ".doc" Or Right(Myfilename, 5) = ".docx" Then
Set objwd = CreateObject("Word.Application")
objwd.Documents.Open Myfilename
ElseIf Right(Myfilename, 4) = ".ppt" Or Right(Myfilename, 5) = ".pptx" Then
Set PttApp = CreateObject("Powerpoint.Application")
PttApp.Presentations.Open (Myfilename), ReadOnly:=msoFalse

Else
MsgBox "ファイル不正:" & FileType
Exit Sub
End If

回答No.2

imogasi · ベストアンサー

#1のご指摘の通りではないですか。
下記はＰＰＴの部分など省略してます。エクセルの中から、CreateObjectでワードを呼び出しているので、objwd.Visible = Trueを入れると文書画面が現れます。画面に見えてないだけが判るはずです。
エクセルはエクセルの中から開いているので不要でしょう。
MsgBox "ワードを開いた"は確認のためで用済み後削除のこと。
むしろGetOpenFilenameの引数の書き方で苦労した。ＰＰＴが無いので、その分を増やしてください。
そして、「ファイルを開く」のダイアロウグの、「ファイルの種類」の▼をクリックして、エクセルやワードやＰＰＴの拡張子を指定することになります。するとそれに絞られたファイルの一覧がでます。
ーー
Sub test01()
myFileName = Application.GetOpenFilename("エクセル ファイル(*.xls),*.xls,エクセル ファイル(*.xlsm),*.xlsm , ワード ファイル(*.doc),*.doc,ワード ファイル(*.docx),*.docx")
If Right(myFileName, 4) = ".xls" Or Right(myFileName, 5) = ".xlsx" Then
Workbooks.Open myFileName
MsgBox "エクセルを開いた"
Workbooks.Close
ElseIf Right(myFileName, 4) = ".doc" Or Right(myFileName, 5) = ".docx" Then
Set objwd = CreateObject("Word.Application")
Set wd = objwd.Documents.Open(myFileName)
objwd.Visible = True
MsgBox "ワードを開いた"
wd.Close
Set objwd = Nothing
ElseIf Right(myFileName, 4) = ".ppt" Or Right(myFileName, 5) = ".pptx" Then
Set PPtApp = CreateObject("Powerpoint.Application")
PPtApp.Presentations.Open (myFileName), ReadOnly:=msoFalse
Else
MsgBox "ファイル不正:" & FileType
Exit Sub
End If
End Sub

お礼

ありがとうございます。

Visible = True
で開くことは出来ましたが、EXCELの画面に已然と隠れたままです。
全面にするにはEXCELを縮小化する事も書く必要がありそうですね。

回答No.1

Cor_moriyan

もしかして。
開かないのでは無く、開いた Word , PowerPoint が見えないだけ(Visible = False)では？
CreateObject で OfficeApplication を実行した場合、Application.Visible の規定値は False です。

objwd.Documents.Open の下に
objwd.Visible = True を追加してみて下さい。

同様に、PttApp.Presentations.Open の下に
PttApp.Visible = True を追加してみて下さい。