マクロでエクセル・ワード文書をひらく
Windows2000 Excel2000でマクロ作成中の超初心者です。
コマンドボタンでExcelとWord文書を開いて、その文書を利用しています。次の3点について、ご教示をお願いします。
1)この文書を開いたとき、両方ともマイドキュメントのフォルダに固定したい
2)ワード文書を開くと、タスクトレーにあらわれるため、いちいち最大化ボタンをおさなければならない。これを最初から最大化表示したい
3)他のPCでも使えるコードにしたい
ちなみに使っているコードは次の2個です。
Sub ワードをひらく()
Dim FileName As String
Dim s As String
On Error GoTo JumpError
FileName = Application.GetOpenFilename("Word文書,*.doc", 1, "Word文書を開く", , False)
Shell """C:\Program Files\Microsoft Office\Office\WINWORD.EXE""" & " """ & FileName & """"
JumpError:
End Sub
-----------------------------------
Sub エクセルをひらく()
Dim OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub
お礼
早速に回答ありがとうございました。 年始に自動でアップデイトしたときのものが悪さしていたのですね。 無事修復しました。