Excel VBA質問箱 IV

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

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


16432 / 76738 ←次へ | 前へ→

【65774】Re:Microsoft XPS Document Writerにつて
お礼  ma  - 10/6/27(日) 3:36 -

引用なし
パスワード
   neptuneさん くそひねりさん 教えていただきましてありがとうございました。

neptuneさんの

>開くのはC++とか、C#とか、VBなどでラッパーというんですか、DLL
なりを作成して、やればできるような????

を調べてみたのですが自分ではDLL作成できるほど知識は全然ないのです。
ただ、HPの中に「XPS ドキュメント API の概要」との記事があったのでAPIと言う物を設定すればいいのかな?考えています。


くそひねりさんの方法でも、呼び出せました。ありがとうございました。


とりあえず、自分なりに作ってみました。
どうも、初歩的なことで躓いています。

動作環境  XP SP3
      インターネットエクスプローラは7

xps と Exeecl BOOKは、同じフォルダに保存されています。


Sub tensou()
'Microsoft XPS Document Writerからのコピー貼り付けマクロ

Dim mypath As String
Dim myid As Long

mypath = ActiveWorkbook.Path & "\"

myid = Shell("C:\Program Files\Internet Explorer\iexplore.exe " & mypath & "発注一覧表.xps", vbNormalFocus)

AppActivate myid

↓ここからの、キーが送れていないみたいです。ここから、ディバックしていっても何も起こりません。

SendKeys "^A", True   'ctrl+A を転送する。全部指定
SendKeys "^C", True   'コピーする。

Application.Windows("商品一覧.xls").Activate

SendKeys "^V", True


End Sub


APIの設定が、できればいいのかな?

APIの設定をしたことが無いので、お分かりになる方がいらっしゃいましたらヒントなどを教えていただければと想います。

よろしくお願い致します。

自分でも、もう少し考えてみます。
0 hits

【65769】Microsoft XPS Document Writerにつて ma 10/6/26(土) 13:43 質問
【65771】Re:Microsoft XPS Document Writerにつて neptune 10/6/26(土) 21:02 発言
【65772】Re:Microsoft XPS Document Writerにつて くそひねり 10/6/26(土) 21:56 発言
【65774】Re:Microsoft XPS Document Writerにつて ma 10/6/27(日) 3:36 お礼
【65778】Re:Microsoft XPS Document Writerにつて ma 10/6/27(日) 14:32 発言
【65789】Re:Microsoft XPS Document Writerにつて neptune 10/6/28(月) 11:19 発言
【65790】Re:Microsoft XPS Document Writerにつて neptune 10/6/28(月) 11:26 発言
【65796】Re:Microsoft XPS Document Writerにつて ma 10/6/28(月) 15:41 お礼

16432 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free