人に聞けない痔の悩み、これでスッキリ >>

お世話になっております。
データベースソフトからエクセルのVBAを呼び出し処理の手助けとしております。
しかし、VBAが実行される度に、エクセルのロゴが表示されてしまいます。
非表示とすることは可能でしょうか?
(なお、アクセスでは可能なことは判明しております。)

このQ&Aに関連する最新のQ&A

A 回答 (2件)

>データベースソフトからエクセルのVBAを呼び出し処理の手助けとしております。


具体的に、どうやって呼び出しているのでしょう?

>しかし、VBAが実行される度に、エクセルのロゴが表示されてしまいます。
>非表示とすることは可能でしょうか?
こちらの「/e」オプションが使えるかもしれません。
http://support.microsoft.com/kb/291288/ja
    • good
    • 1
この回答へのお礼

早速のお返事ありがとうございます。
目から鱗が落ちました。
今回は誠にありがとうございました。

お礼日時:2009/09/02 20:52

こんばんは。



>VBAが実行される度に、エクセルのロゴが表示されてしまいます。
コードを見せていただいたほうがよいですね。

たとえば、以下のようにオートメーションで開ければ、ロゴは出なかったと思います。

'-------------------------------------------
Private Sub コマンド1_Click()
Dim xlApp As Object
Dim xlWb As Object
Dim fn As String
On Error GoTo ErrHandler
Set xlApp = CreateObject("Excel.Application")
  'パスは、アプリケーションのデフォルトパス
 fn = xlApp.DefaultFilePath & "\TestBook1.xls"
 xlApp.Visible = True
 Set xlWb = xlApp.Workbooks.Open(fn)
 '作業
 'xlWb.Close True
 'xlApp.Quit
ErrHandler:
Set xlApp = Nothing

End Sub
'-------------------------------------------
    • good
    • 1
この回答へのお礼

早速のお返事ありがとうございます。
コードが職場にありますので、明日早速貼り付けてみます。
今回は誠にありがとうございました。

お礼日時:2009/09/02 20:51

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcel2010 スプラッシュ画面について

Excel.EXE /eと起動スイッチ /e をつけて起動をすると、スプラッシュ画面なし、新規ブックなしで起動が出来ると教えて頂いたのですが、
具体的にどういう方法でやれば出来るのでしょうか?

当方パソコン初心者ですので、
出来ましたら分り易くご説明頂ければ大変助かります。

何卒、ご教授よろしくお願い致します。

Aベストアンサー

Excel の起動スイッチについて( http://support.microsoft.com/kb/291288/ja )を参考にしてください。

ページ中央の「Microsoft Excel ショートカットにスイッチを追加する方法」です。

Q【Excel VBA】マクロでExcel自体を終了させたい

環境:WindowsXP、Excel2003

マクロでエクセルを終了(ブックを閉じて、アプリケーション自体も終了)させたいのですが、以下のコードではアプリケーションが閉じてくれません。

ThisWorkbook.Close
ExcObj.Quit
Application.Quit

どこか悪いところはありますでしょうか?

よろしくお願いします。

Aベストアンサー

普通に考えれば質問者のコードで上手くいきそうですが
hana-hana3さんの回答にもあるようにThisWorkBook.Closeでコード終了となりますので
Application.QuitをThisWorkBook.Closeの前にもってこないといけません。
Application.Quitはそれがあるプロシージャのコードが全て終わるまで
その実行を保留するちょと特別動作をします。

'-------------------------------------
 Application.Quit
 ThisWorkbook.Close
'-------------------------------------
 
 

QOutlookの起動ロゴタイトルを非表示にしたい。

ご存知の方、ご指南願います。

Outlook2003、2007の起動時の 「Outlook」と表示されるロゴタイトルを
非常時にする方法はありませんか?

(同様に、Excel、Word、PwerPointも分かれば助かります)

Aベストアンサー

Excelは起動時のオプションで /e を追加すれば良いのは知ってましたが、後はあまり気にした事がなかったです。
(Excelの場合は空白ブックも開かなくなります)
正式には『コマンド ライン スイッチ』かな。
詳しくは以下のページが参考になるかもしれません。

Excel のコマンド ライン スイッチ
http://office.microsoft.com/ja-jp/excel/HA101580301041.aspx
Word のコマンド ライン スイッチ
http://office.microsoft.com/ja-jp/word/HP101640101041.aspx
コマンド ライン スイッチ - Outlook
http://office.microsoft.com/ja-jp/outlook/HP010031101041.aspx
PowerPoint 2007 と PowerPoint Viewer 2007 のコマンド ライン スイッチ
http://office.microsoft.com/ja-jp/powerpoint/HA101538891041.aspx

他にこんなページもあります。
http://www.itmedia.co.jp/enterprise/articles/0809/27/news013.html

Excel /e
Winword /q
PowerPoint Viewerは /s らしいですけど PowerPoint はわかりません。
Outlookはさらに解りませんでした。

試しにVBScriptから起動してみました。

CreateObject("outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Display

この1行を新規txtファイルに記述して xxxxx.txt など適当な名前で保管し、拡張子を.vbsにして、そのファイルをダブルクリックします。
一応スプラッシュ画面は出てないようだけど、もしかして微妙なタイムラグの所為なのかもしれません。あまり深く検証してないです。

Excelは起動時のオプションで /e を追加すれば良いのは知ってましたが、後はあまり気にした事がなかったです。
(Excelの場合は空白ブックも開かなくなります)
正式には『コマンド ライン スイッチ』かな。
詳しくは以下のページが参考になるかもしれません。

Excel のコマンド ライン スイッチ
http://office.microsoft.com/ja-jp/excel/HA101580301041.aspx
Word のコマンド ライン スイッチ
http://office.microsoft.com/ja-jp/word/HP101640101041.aspx
コマンド ライン スイッチ - Outlook
http:...続きを読む

QEXCELマクロを無効にして開く方法

掲題の通りなのですが、EXCEL2007で作成されたマクロ有効ファイル(XLSM形式)を
マクロ無効の状態で開く方法が分からず困っております。

マクロの内容は Workbook_Open 処理で、特定セルに入力されている
EXCELファイルを開き、自身は閉じるというものです。


Private Sub Workbook_Open()

Dim FileName As String

'1ファイル目
Range("A2").Select
FileName = ActiveCell.FormulaR1C1
Workbooks.Open FileName:=FileName
ThisWorkbook.Activate

'2ファイル目
Range("A3").Select
FileName = ActiveCell.FormulaR1C1
Workbooks.Open FileName:=FileName
ThisWorkbook.Activate

・・・・・・繰り返し

DoEvents
ThisWorkbook.Close

End Sub


上記の特定セルに設定してあるファイルパスを変更するためには
マクロを無効にして開かなければなりません。

マクロのセキュリティを変更して、「すべてのマクロを無効にする」を設定して
該当のファイルを開けば良い事は分かっているのですが、他に分かりやすい方法で
マクロ無効状態で開く方法があれば、ご教授頂ければと思います。

掲題の通りなのですが、EXCEL2007で作成されたマクロ有効ファイル(XLSM形式)を
マクロ無効の状態で開く方法が分からず困っております。

マクロの内容は Workbook_Open 処理で、特定セルに入力されている
EXCELファイルを開き、自身は閉じるというものです。


Private Sub Workbook_Open()

Dim FileName As String

'1ファイル目
Range("A2").Select
FileName = ActiveCell.FormulaR1C1
Workbooks.Open FileName:=FileName
ThisWorkbook.Activate

'2ファイル目
...続きを読む

Aベストアンサー

Win7、Excel2010、ダブルクリックでファイルを開く設定、の場合ですが、
Excelが開いていない状態で、
一旦、ファイル(またはショートカット)をクリックしてから、
Shiftキーを押し、そのまま、ダブルクリック、
以上の手順で、セーフモードでExcelとブックが開きます。
つまり、Private Sub Workbook_Open()は実行されません。
環境によって手順は異なると思いますけれども。

QVBAマクロで、図形等のオブジェクトを選択(特定)する方法ってありますか

こんにちは。VBAマクロを少しかじっています。
顔写真付きの従業員の検索システムを作りました。名前を入力(選択)したら、データシートから職員コード、住所、電話番号などの情報を検索し検索画面に表示します。この際、別のシートに顔写真を貼り付けたもの(1セルに1枚。セルに従業員名を入力してある。)から、VLOOKUP関数を使ってセル照会することで、画像も同時に表示することができます。
別の職員に切り換えたり、クリアする場合の画像の処理は、削除用のシートを用意し、そこにセルごと移動し、終了時にシートごと削除する方法をとりました。(当然、確認用のダイアログボックスが表示されます。)
前置きが長くなりましたが、問題は、用済みの画像を選択するプロシージャがあれば、あえて削除用のシートを用意する必要はありません。セルの場合は、Rangeプロパティやcellsプロパティで特定できますが、画像などのオブジェクトをセル番地などを使って特定する方法ってあるのでしょうか。
因みに、画像の選択処理を、マクロ記録でプロシージャを作成したら、
ActiveSheet.Shapes("Picture 1").Select などとなります。
よろしくお願いします。

こんにちは。VBAマクロを少しかじっています。
顔写真付きの従業員の検索システムを作りました。名前を入力(選択)したら、データシートから職員コード、住所、電話番号などの情報を検索し検索画面に表示します。この際、別のシートに顔写真を貼り付けたもの(1セルに1枚。セルに従業員名を入力してある。)から、VLOOKUP関数を使ってセル照会することで、画像も同時に表示することができます。
別の職員に切り換えたり、クリアする場合の画像の処理は、削除用のシートを用意し、そこにセルごと移動し、終了時...続きを読む

Aベストアンサー

検索シートにシェイプが1つしかなければ
ActiveSheet.Shapes(1).Select
で選択
ActiveSheet.Shapes(1).Delete
で削除できます。

Qエクセル VBA ユーザーフォームを閉じる

ユーザーフォームを開く時は
UserForm1.Showですが
閉じる時は?
UserForm1.Close
だとコンパイルエラーになります。
End
にするしかないですか?

Aベストアンサー

Unload Me とか Unload UserForm1 でユーザーフォームを閉じることができます。

QVBAでBook読み込み時の非表示方法は??

VBAでBook読み込み時の非表示方法は??

ExelのVBAでマクロを作成しています。
既存の*.exl ファイルを読み込むとき、
その内容を画面に表示しない方法があったら、
ご教示ください。

複数の既存の*.exl ファイルを連続して読み込み、
Books Objectに取得して、そのCell データを
集計しているのですが、読み込み完了と同時に
そのBookがActiveになって、画面に出現します。
この画面表示をぜずに、データ処理して
Closeし、次々に処理を進めたいと思っています。
よろしくお願いいたします。

Aベストアンサー

Application.ScreenUpdating = False
'処理
Application.ScreenUpdating = True
とすれば、画面の更新は行いません。


Application.WindowState = xlMinimized
で、最小化

http://www.happy2-island.com/excelsmile/smile03/capter00806.shtml


Application.Visible = False
とすると、エクセルの表示その物が消えます。
エラーが合った場合やその後の事はどうなるか試していませんが。

http://www.ken3.org/vba/backno/vba125.html

Q非表示になったエクセルは?

VBAマクロでパソコン画面からエクセルを非表示にする場合、

Sub TEST1()
Application.visible = False
End Sub

で画面からエクセルが消えると思いますが、消えたエクセルはどうなってしまうのでしょうか?
何もしなければいつまでもそのままなのでしょうか?
電源を切ればでてくるのでしょうか?

Application.visible = Trueで表示されるのはわかりますが、消えたエクセルにどうやってそのマクロを作動させたら良いのでしょうか?
10秒後に自動的に再表示させる方法はマクロに最初から

Application.OnTime Now + TimeValue("00:00:10) などで自動実行させればよいのでしょうが、そうでない場合の再表示方法を教えてください。

Aベストアンサー

 Application.visible = Falseで消えたExcelは、画面表示から消えただけなので、見えない状態のまま動き続けています。(^^;
 外部からExcelのオブジェクトを操作したのなら、Excelのオブジェクトを開放すれば非表示になっているExcelを終了する事もできますが。
 見えない状態のExcelを手動で操作する事はできないので、何らかの方法で外部から操作する以外に手だては無いでしょう。

 NT系のOSならば、タスクマネージャのプロセスでExcelのプロセスを見つけ出して非表示になっているExcelのプロセスを強制終了が一番簡単でしょう。
 9x系のタスクマネージャはウインドウが無いアプリケーションは表示されない(非表示状態のExcelは、ウインドウが存在しない)ので、Systemを再起動するのが一番簡単かも。
 他のプログラム(例えばWordのVBAとか、VBSとか・・・)から非表示になっているExcelのオブジェクトを操作して表示を戻す?
 これも不可能ではありませんが・・・。

 基本的には、Excelから起動したVBAで、Application.visible = Falseにしたら、そのプログラムが終了する前にApplication.visible = Trueに戻す事をしないといけませんね。

Sub TEST1()
Application.visible = False
MsgBox "ボタンを押すと、再表示"
Application.visible = True
End Sub

 ・・・とか。

 Application.visibleを操作するようなマクロをテストする時は、万一アルゴリズムやコーディングに間違いがあって非表示になったまま・・・なんて事が無いように、かならずVBA Editorを起動した状態で行いましょう。
 VBA Editorが動いていれば、間違いをその場で修正したり、その場で間に合わせのコードを実行して表示を元に戻したりできますから。

(Win9x系でも、下のURLにあるフリーソフトウエア等を常駐して置けば、非表示のプロセスの終了も可能かもしれません。
 参考までに。)

参考URL:http://www.vector.co.jp/soft/win95/util/se144469.html

 Application.visible = Falseで消えたExcelは、画面表示から消えただけなので、見えない状態のまま動き続けています。(^^;
 外部からExcelのオブジェクトを操作したのなら、Excelのオブジェクトを開放すれば非表示になっているExcelを終了する事もできますが。
 見えない状態のExcelを手動で操作する事はできないので、何らかの方法で外部から操作する以外に手だては無いでしょう。

 NT系のOSならば、タスクマネージャのプロセスでExcelのプロセスを見つけ出して非表示になっているExcelのプロセスを強...続きを読む

QVBAでシートからコンボボックスにデータを設定する方法

VBAにてフォーム起動時にシート内に設定した
値をコンボボックスに取り込みたいのですが・・。
たとえばA列に連続で入力されているデータを
取り込むなど・・。
設定データ数は動的に変化します。

Aベストアンサー

もうほとんど同じですが…

Private Sub UserForm_Initialize()
Dim i As Integer

 ComboBox1.Clear
 For i = 1 To Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
  ComboBox1.AddItem Worksheets("sheet1").Cells(i, 1).Value
 Next
End Sub

QOfficeの起動時の表示&高速化

office2003でよくwordやexcelを使うのですがとても起動が遅いので困っています。起動するときにword2003などといちいち必要ないロゴの表示を消す方法を教えてください。あと、自分のファイルを開くのにウィルスの検索するのをとめる方法をおしえてください。これをすれば速くなると思うのですが、どうでしょうか?

Aベストアンサー

>はdocとかxlsのファイルをクリックすることです。
('◇')ゞラジャ

DOCの場合、
フォルダオプションの「ファイルの種類」タブで
拡張子DOCの「詳細設定」から
太い文字になっているアクションを編集します。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング