Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11790 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14132】１つ前の画面に戻るマクロを教えて下さい ちょび 04/5/21(金) 17:35 質問[未読]
【14133】Re:１つ前の画面に戻るマクロを教えて下さい IROC 04/5/21(金) 17:52 回答[未読]
【14135】Re:１つ前の画面に戻るマクロを教えて下さい ちょび 04/5/21(金) 17:57 質問[未読]
【14136】Re:１つ前の画面に戻るマクロを教えて下さい IROC 04/5/21(金) 18:09 回答[未読]
【14137】Re:１つ前の画面に戻るマクロを教えて下... IROC 04/5/21(金) 18:13 回答[未読]
【14143】Re:１つ前の画面に戻るマクロを教えて下... ちょび 04/5/21(金) 18:34 お礼[未読]
【14139】Re:１つ前の画面に戻るマクロを教えて下さい ちょび 04/5/21(金) 18:18 質問[未読]
【14142】Re:１つ前の画面に戻るマクロを教えて下さい IROC 04/5/21(金) 18:28 回答[未読]
【14144】Re:１つ前の画面に戻るマクロを教えて下さい ちょび 04/5/21(金) 18:44 お礼[未読]
【14138】Re:１つ前の画面に戻るマクロを教えて下さい ichinose 04/5/21(金) 18:16 発言[未読]
【14132】１つ前の画面に戻るマクロを教えて下さい
質問  ちょび  - 04/5/21(金) 17:35 -
引用なし
パスワード
   教えていただきたいのですが、web上でエクセルを開き作業終了後データをセーブして
1つ前の画面（index画面なのですが）に戻りたいのです。
下記のようなマクロでエクセルの終了を組んだのですが、その下に１つ前の画面に戻る
マクロを入れられたらと思ってます。教えて下さい宜しくお願い致します。

　 Application.DisplayAlerts = False
　 Application.Quit
　 ActiveWorkbook.Save
　 ActiveWorkbook.Close
【14133】Re:１つ前の画面に戻るマクロを教えて下...
回答  IROC  - 04/5/21(金) 17:52 -
引用なし
パスワード
   「1つ前の画面」の意味が分かりません・・
【14135】Re:１つ前の画面に戻るマクロを教えて下...
質問  ちょび  - 04/5/21(金) 17:57 -
引用なし
パスワード
   ▼IROC さん：
>「1つ前の画面」の意味が分かりません・・

IROCさん、説明不足でスイマセン・・・。
エクセルを終了したら、ホームページのINDEXページへ自動で戻るようにしたいのです。
これで判って頂けますでしょうか・・。
【14136】Re:１つ前の画面に戻るマクロを教えて下...
回答  IROC  - 04/5/21(金) 18:09 -
引用なし
パスワード
   インターネットエクスプローラを起動して、
指定するURLのページを開きたい。

ということでしょうか？
【14137】Re:１つ前の画面に戻るマクロを教えて下...
回答  IROC  - 04/5/21(金) 18:13 -
引用なし
パスワード
   Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://sports.yahoo.co.jp/"

もしくは、

ShellExecute 0, "open", "http://sports.yahoo.co.jp/", "", "", 1

[API宣言]
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


かな？
【14138】Re:１つ前の画面に戻るマクロを教えて下...
発言  ichinose  - 04/5/21(金) 18:16 -
引用なし
パスワード
   ▼ちょび さん、IROCさん、こんばんは。

>教えていただきたいのですが、web上でエクセルを開き作業終了後データをセーブして
>1つ前の画面（index画面なのですが）に戻りたいのです。
>下記のようなマクロでエクセルの終了を組んだのですが、その下に１つ前の画面に戻る
>マクロを入れられたらと思ってます。教えて下さい宜しくお願い致します。
>
>　 Application.DisplayAlerts = False
>　 Application.Quit
>　 ActiveWorkbook.Save
>　 ActiveWorkbook.Close

はっきりとは意味を把握してませんが、
こんなコードを試してみて下さい。まずは、下のコード単独でね・・・。

'======================================
　 ActiveWorkbook.Saved = True
　 Application.SendKeys "%g"
　 Application.SendKeys "b"
【14139】Re:１つ前の画面に戻るマクロを教えて下...
質問  ちょび  - 04/5/21(金) 18:18 -
引用なし
パスワード
   ▼IROC さん：
>インターネットエクスプローラを起動して、
>指定するURLのページを開きたい。
>
>ということでしょうか？

本当に説明が足らなくてスイマセン(T_T)
そうです、インターネットエクスプローラを起動してエクセルを開いていまして、
エクセルを閉じる時、IROCさんのおっしゃる通りに指定するURLのページを開きたい
のです。
本当に言葉が足りなくて申し訳ありませんm(__)mこれで判って頂けますでしょうか（汗）
【14142】Re:１つ前の画面に戻るマクロを教えて下...
回答  IROC  - 04/5/21(金) 18:28 -
引用なし
パスワード
   まえに掲載したのサンプルでは、うまく行かなかったですか？
【14143】Re:１つ前の画面に戻るマクロを教えて下...
お礼  ちょび  - 04/5/21(金) 18:34 -
引用なし
パスワード
   ▼IROC さん：
>Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://sports.yahoo.co.jp/"
>
>もしくは、
>
>ShellExecute 0, "open", "http://sports.yahoo.co.jp/", "", "", 1
>
>[API宣言]
>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
>
>
>かな？

IROCさん、有難うございます！
最初の→「Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://sports.yahoo.co.jp/"」を入れてみましたら開きました！
本当に有難うございました！次回質問を投稿する際には、質問事項をまとめ上げてから
投稿する様にも心掛けます(^_^;)
【14144】Re:１つ前の画面に戻るマクロを教えて下...
お礼  ちょび  - 04/5/21(金) 18:44 -
引用なし
パスワード
   ▼IROC さん：
>まえに掲載したのサンプルでは、うまく行かなかったですか？

IROCさん、失礼致しました。
まえに掲載してくださいましたサンプル、返信投稿を書いた後に気づきまして・・。
別途お礼投稿いたしました（その後にこの投稿に気がつきまして・・・ホントすいませんです。）そちらにも書きましたが、掲載していただきましたサンプルで上手く行きました
。本当に有難うございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11790 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free