- ベストアンサー
VBAでEXCELシートにアフェリエイト表示
ウェブサイト(amazonのアフェリエイトバナー)をExcelシート上に表示するマクロを作成しています。 現在、以下の処理に悩んでいます。 1.端末のオンライン・オフライン状態を取得し、オフラインの場合プログラム終了 →オンライン状態を取得する方法 2.シート上表示したMicrosoft Web browser上のリンクをクリックした際 Web browserコントロールではなくIEを起動させる。 →強制的にIEにてリンク先を開く方法 どうぞご回答よろしくお願いします。
- none1963
- お礼率100% (2/2)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- Web Browserに表示中のhtmlについて[VBA]
こんにちは。 AccessのVBAでMicrosoft Web Browserを使用しています。 Web Browserで表示中のhtmlについて、下記の様なことをしたいのですが、方法がわかりません。 ・htmlファイルのサイズを取得する。 ・htmlファイルの内容を読み込む。 （例）表示中のhtmlに「あいうえお」が含まれているか検索したいんです。 よろしくお願いします。
- 締切済み
- Visual Basic
- [Excel VBA]シートの
Visual Basic Editorを起動し、"プロジェクト エクスプローラ"と"プロパティウィンドウ"を表示した状態で、適当なシートを選択すると、"プロパティ ウィンドウ"の一番上の"（オブジェクト名）"欄に、今現在設定してある値が表示されます。 で、その値は"プロパティ ウィンドウ"から直接変更することは簡単にできますが、マクロから変更する方法が分かりません。 私がやりたいのは、マクロからシートを追加し、シート名と、この"(オブジェクト名)"を設定することです。 どなたか方法を知っている方がいましたら、是非ご教授お願い致します。
- ベストアンサー
- Visual Basic
- エクセルのVBAマクロで隠れシートを表示させる方法について教えて下さい
エクセルのVBAマクロで隠れシートを表示させる方法について教えて下さい。 エクセルで”書式→シート→表示しない”を実行するとエクセルのシートを非表示にすることが出来ます。 逆に”書式→シート→表示する”にすると隠れているシートが表示出来ます。 この非表示のシートを表示させるVBAマクロの記載を教えて下さい。 但し、”Sheets(シート名).Visible = True”の様にシート名を記載すれば非表示のシートが表示されるのは知っています。今回知りたいのは、シート名の分からない全ての非表示のシートを表示させるVBAマクロの記載方法を教えて下さい。
- ベストアンサー
- その他MS Office製品
- Excel2003 VBA6.0です シートの整理をしたい
エクセルのファイルにシートの数が大量になってきました。 どうしても同じファイルにしておきたいのですが、開くたびに、シートを探す動作が発生して面倒です。 それで先頭のシートを目次にして、開くたびに必ず目次のシートが表示され、かつ目次のリストの一覧から当該セル（ボタン）をクリックすると、目的のシートにジャンプするようにセルを設定したいのですが、マクロまたは関数を使う方法などで教えてください。 １．開くたびに必ず目次のシートが表示されるようにする。または、閉じるときに、先頭のシートにジャンプして閉じるようにする。 ２．目次のシートのシートリストをクリックして、当該シートを表示させる。 以上２点です。その他アドバイスがありましたらお願いします。
- ベストアンサー
- Visual Basic
- <ACCESS VBA -> EXCEL>getObjectしたEXCELファイルのシートを指定したい
ACCESSのVBAマクロでEXCELファイルを指定してデータを取得しようとしています。 GetObject("C:\ファイル名.xls", "Excel.Sheet") でEXCELファイルを取得するまでは良いのですが、そのファイルのシートを指定する方法がわかりません。 基本かもしれませんが、ご教示をお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA シートの移動について。
シートの構成は順番に『1』～『10』『メイン』となっているとします。 『メイン』以外は非表示にしています。 しかしメインシートで、番号を指定してマクロを実行すると新しいウインドウを開き指定した番号のシートが表示されるようになっています。 例えばメインシートで『1』を指定して実行すると、ウインドウが2つになり、『1』『メイン』のシートが表示されている状態になります。 問題はここからで、1～10のシートにはマクロでシートセレクトできるようにしているのですが、下記載のマクロを実行すると『メイン』を表示しているウインドウも一緒に表示が変ってしまうことです。 Sub 2に移動() Worksheets("2").Visible = True '非表示のシートを表示 ActiveSheet.Visible = False 'シートを非表示にする。 Sheets("2").Select End Sub 『1』『メイン』が表示されているときに、『1』で上のマクロを実行すると、『メイン』が表示されているウインドウもシート『2』に移動してしまうことなんです。 これをどうにかして、その実行したウインドウだけ移動するようにしたいのですが、何か方法はないでしょうか？ 一応シートの1～10を非表示にせず、表示したままならこの現象は起こらないのですが、どうにかして使用していないシートを非表示にした状態を保ったままやりたいのです。
- ベストアンサー
- その他MS Office製品
- エクセルVBA 非表示シートがあるとエラー
VBA初心者です。 エクセル2007を使用しております。 同一ブック内にある全てのシートで特定のマクロ(下記の例では×××)を実行するようにVBAマクロを個人用マクロブック上に作成しております。 Sub シート一括処理() Dim Sht As Worksheet For Each Sht In Worksheets Sht.Select Call ××× Next Sht End Sub ブック内に非表示シートがあった場合、エラーとなります。 ===================== 実行時エラー'1004' 'select'メソッドは失敗しました: ===================== 下記のような要件を満たすにはどのように修正すればよいでしょうか。 ・非表示シートに対しても、×××マクロは適応したい。 ・非表示シートは暫定的に表示してもよいが、最終的には非表示の状態にしたい。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- ＥＸＣＥＬでのシートの再表示（マクロ）
あるエクセルのブックで、マクロを使い、複数のシートを非表示にしていました。 うっかり、そのマクロを削除してしまいました。 非表示にしたシートを、再表示する方法をお教えください。 なお、非表示にしたシートは、複数あり、シート名も不確かです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel2007のVBAでPreviewすると
初めまして。 Excel2007のVBAで困っていることがあり解決方法を探しています。 もともとExcel97で稼働していたマクロ＋VBA付きのシートをExcel2007で稼働させようとしています。 マクロ・VBAで作成されたシート(sheet2)をフォームに配置した印刷ボタンをユーザーに押してもらうことでプレビューを表示します。 印刷ボタンを押したときのプレビューのコード Worksheets("sheet2").PrintOut Copies:=1, Preview:=True でプレビュー画面を表示したところ、印刷ボタンや印刷設定ボタン等の上部にあるボタンが薄いグレーの配色で押せなくなりました。 調べた結果、ScreenUpdatingがfalseだと同じ状態になるとわかったので Application.ScreenUpdating = True Worksheets("sheet2").PrintOut Copies:=1, Preview:=True と書き換えましたが、不具合は解消されませんでした。 またブックを閉じずに、マクロを再起動させて同様の動作をおこなうと 何故かちゃんとボタンが押せるプレビューが表示します。 その状態のブックを保存して改めて開くと同じようにプレビューのボタンが押せなくなっています。 同じような現象で解決された方いらしたら解決方法を教えて頂ければありがたいです。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- エクセルのシートにブラウザコントロールを貼り付けたのですが、シート移動をするとエラーが出ます
Microsoft Excelのsheet1に、Microsoft Web Browser（コントロール）を貼り付けて sheet1がアクティブならwebページを表示するように sheet1に下記のコードを記述しました。 Private Sub Sheet1_Activate() WebBrowser1.GoHome End Sub すると表示はうまくいくのですが、sheet1からsheet2へ移動すると 「問題が発生したため、Microsoft Office Excel を終了します。 ご不便をおかけして申し訳ありません。」と表示されてしまいます。 このコードの書き方に問題があるのでしょうか？ 環境は windows XP Proffesional SP1 Excel 2003 です。 よろしくお願いします。
- 締切済み
- Visual Basic
お礼
ありがとうございました。