Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2063 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70099】［無題］ 信 11/10/15(土) 10:01 質問[未読]
【70237】Re:［無題］ ちん 11/10/21(金) 22:09 発言[未読]
【70240】有難うございました 信 11/10/23(日) 6:08 お礼[未読]
【70245】Wordは開けましたっがpdfファイルは開けま... 信 11/10/23(日) 10:24 質問[未読]
【70246】Re:［無題］ ちん 11/10/23(日) 17:21 回答[未読]
【70255】pdfファイル上手く開けません 信 11/10/24(月) 9:29 質問[未読]
【70256】ちん様。pdfファイル開けました。 信 11/10/24(月) 9:39 お礼[未読]
【70099】［無題］
質問  信  - 11/10/15(土) 10:01 -
引用なし
パスワード
   ExcelVBAでWord文章、PDF文章を開かせたいのですが。
【70237】Re:［無題］
発言  ちん  - 11/10/21(金) 22:09 -
引用なし
パスワード
   ▼信 さん：
>ExcelVBAでWord文章、PDF文章を開かせたいのですが。
こんばんわ、信さん、ちんといいます。
レスつかないので、参考になるところを紹介します。

word文書を開くには、禁止語句が含まれているので全角で書きます。
ｈｔｔｐ://www.asahi-net.or.jp/~zn3y-ngi/YNxv9d362.html

PDF文書を開くには、
ｈｔｔｐ://pdf-file.nnn2.com/?p=5

以上、参考までに・・・
【70240】有難うございました
お礼  信  - 11/10/23(日) 6:08 -
引用なし
パスワード
   ちん様。信です。
助言有難うございました。VBAは初心者ですので、時間が掛かると思いますが
早速試してみようと思っております。
また、つまずいたらコメントをお願いいたします。
【70245】Wordは開けましたっがpdfファイルは開け...
質問  信  - 11/10/23(日) 10:24 -
引用なし
パスワード
   新聞をスキャナーで読み取り、Word形式とpdf形式で保存し、同じﾌｫﾙﾀﾞに保存後
Excel2003VBAで開くﾌﾟﾛｸﾞﾗﾑを作成するのが目的です。pdfファイルはAdobe　Reader Xで開いています。

Worwは、次のようにたら開くことが出来ました。
まず、VBAの参照設定を　Microsoft　Word　11．0　Object　Libraryにﾁｪｯｸをいれ
Option Explicit
　　Dim objWord As New Word．Application　　
　　Dim objWordDoc As Word．Document　　　　
Sub Word_Open()
With objWord
　．Visible = True
　．Documents．Open ActiveWorkbook．Path & "\新聞記事2．doc"
End With
Set objWord = Nothing
Set objWordDoc = Nothing
End Sub
で実行するとＯＫでした。

同じような方法で、pdfファイルを開くにはどうしたら良いのでしょうか。
【70246】Re:［無題］
回答  ちん  - 11/10/23(日) 17:21 -
引用なし
パスワード
   こんばんわ、信さん。ちんといいます。

API関数をしようすると、たいていのファイルを起動できます。ので、
サンプルとして、記述します。

'先頭に宣言
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'関数
Sub OpenFile()
'関連付いたアプリケーションで立ち上げる


　　Dim Fname As String
　　Fname = "C:\???.pdf"
　　Call ShellExecute(0, "open", Fname, vbNullString, vbNullString, 1)

　　Fname = "C:\???.doc"
　　Call ShellExecute(0, "open", Fname, vbNullString, vbNullString, 1)

End Sub


以上、参考までに・・・
【70255】pdfファイル上手く開けません
質問  信  - 11/10/24(月) 9:29 -
引用なし
パスワード
   ちん様。何時も直ぐに回答を頂き感謝しております。
アドバイス通りに次のように記述して実行しましたがpdfファイルが開けませんでした。何処が間違っているのでしょうか。

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　　　
'関数
Sub OpenFile()
'関連付いたアプリケーションで立ち上げる
　　　　
　　　　
　　Dim Fname As String
　　Fname = ActiveWorkbook.Path & "\新聞5．pdf"
　　Call ShellExecute(0, "open", Fname, vbNullString, vbNullString, 1)
　　
End Sub
【70256】ちん様。pdfファイル開けました。
お礼  信  - 11/10/24(月) 9:39 -
引用なし
パスワード
   ちん様。pdfファイル開けました。
ファイル名の後のドットの後にスペースが入っていました（新聞5. pdf)ので、削除したら開きました。

本当に有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2063 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free