ＶＢＳファイルを使ってエクセル2007を自動起動する方法
- ＶＢＳファイルをスタートアップフォルダに入れておいて、エクセル2007の特定ファイルをそのＶＢＳファイルにより自動起動させる方法を教えてください。
- 作成したＶＢＳファイルでエクセル2007を起動させることができません。どのように修正すれば良いでしょうか？
- Option Explicit 'オブジェクト変数の宣言とWshShellオブジェクトの作成。 Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 1000 '1秒待機 objWshShell.Run "C:￥Program Files￥Microsoft Office￥Office12￥EXCEL.exe"
- ベストアンサー
ＶＢＳファイルをスタートアップフォルダに入れておいて、
エクセル2007の特定ファイルをそのＶＢＳファイルにより自動起動させる方法を教えてください。ちなみに、次のようなＶＢＳファイルを作成しましたがエラーとなってしまいます。 Option Explicit 'オブジェクト変数の宣言とWshShellオブジェクトの作成。 Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 1000 '1秒待機 objWshShell.Run "C:￥Program Files￥Microsoft Office￥Office12￥EXCEL.exe" です。
- mszjmszj
- お礼率55% (32/58)
- Windows Vista
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
単に、そのExcelファイルのショートカットをスタートアップフォルダに置いておくだけで、済みそうな気もしますが、それはともかく。 こんなのとか： With WScript.CreateObject("WScript.Shell") .Run "C:\Docume~1\osamuy\Mydocu~1\Book1.xls" End With Windowsのファイルはたいてい実行権が付いてるので、そのまま実行するという。 開こうとしているファイルのパスに空白が入ると面倒なのでmangleしてます。
関連するQ&A
- スタートアップフォルダにエクセルファイルを入れてＰＣ起動時の自動が実行可能ですか？
現在 [メモ帳.vbs]ファイルとして、次のような記述のファイルをスタートアップフォルダに入れてあります。 Option Explicit 'オブジェクト変数の宣言とWshShellオブジェクトの作成。 Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 10000 '10秒待機 '例としてメモ帳起動 objWshShell.Run "C:\Windows\System32\notepad.exe" これですと、notepad.exeファイルは自動実行されます。 しかし[エクセル.xlsm]というエクセルファイルを同様に単純にパスを通して[エクセル.vbs]ファイルを作成し、 スタートアップフォルダに入れてもエラーが出て実行されません。記述がわかる方いらっしゃったら、ぜひ教えててください。 お願いします
- 締切済み
- Windows Vista
- VBSでレジストリキー名に円マークをつける
「SQL\INSTANCE」という名前のキーをレジストリに作成したいのですが、円マークを入れると階層化されてしまうので、困っています。 カンタンな質問かもしれませんがどなたか教えてください。 以下、VBSで作成 Option Explicit On Error Resume Next Dim objWshShell ' WshShell オブジェクト Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then objWshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\SQL\INSTANCE", "SQL", "REG_SZ" WScript.Echo "ODBC設定変更:完了" Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing
- ベストアンサー
- その他（プログラミング・開発）
- vbsでexcelのクリアとフォームの表示をしたい
お世話になっております。 vbsの以下の記述でexcelを開いています。 開くところまでは行くのですが、その後のsheet1のデータのクリアとUserForm1の表示がどうしてもできません。 申し訳ありませんが、どなたかおわかりの方、教えていただけないでしょうか。 宜しくお願いいたします。 Dim oApp Dim objWshShell Dim scriptPath 'Excelオブジェト作成 Set oApp = CreateObject("Excel.Application") 'WScript.Shellオブジェクト作成 Set objWshShell = CreateObject("WScript.Shell") oApp.Visible = True '不可視にする oApp.UserControl = True 'Excelファイルを開く scriptPath = WScript.ScriptFullName scriptPath = left(scriptPath,len(scriptPath)-len(WScript.ScriptName)) oApp.Workbooks.Open scriptPath & "共同資料.xlsm"
- ベストアンサー
- その他（プログラミング・開発）
- 何とかFireFox用のVBSを作ってみたのですが、
何とかFireFox用のVBSを作ってみたのですが、 下のような記述ですとサイトの種類分ブラウザも 起動してきてしまいます。 タブで開きたいのですが、 どのように記述すればいいのでしょうか。 よろしくお願いいたします。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Option Explicit Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") objWshShell.Run """c:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab http://www.google.co.jp" objWshShell.Run """c:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab http://www.msn.co.jp" objWshShell.Run """c:\Program Files\Mozilla Firefox\firefox.exe"" -new-tab http://www.yahoo.co.jp" Set objWshShell = Nothing
- ベストアンサー
- Visual Basic
- バッチファイルファイル→VBS→エクセル マクロを有効にして起動
Win/XP エクセル2002使用です。 VBSからエクセルのマクロを有効にして立ち上げたいのですが、 上手くいきません。 バッチファイル側 cd /D c:\ C:\***.vbs exit /B VBS側 'エクセル起動 Set WshShell = CreateObject("WScript.Shell") WshShell.CurrentDirectory = "C:\***" WshShell.Run "C:\***\***.xls",3 WScript.Sleep(5000) WshShell.SendKeys("E") '←マクロを有効にする WScript.Sleep(5000) WshShell.SendKeys("U") '←データソースへのリンクを更新 エクセル側（マクロ） Sub Auto_open() Application.OnTime TimeValue("13:00:00"), "Action" End Sub Sub Action() ・・・（省略）・・・ End Sub ----------------------------- また、エクセルマクロは、VBSではなく手動で立ち上げますと、 問題なく時間になった時（13時）に作動します。 VBSのRunメソッドが、 エクセルマクロの Application.OnTime を待たずに走ってしまうことで、 エクセルマクロが無効になってしまっているのではないか？ もしくは、データ更新のための sendkey("U")によって マクロが無効になってしまっているのはないか？ と思っています。 恐れ入りますが、 よろしくアドバイスの程お願いします。
- ベストアンサー
- オフィス系ソフト
- VBSのsendkeysで日本語を出力したいです
WshShell.Run "explorer" WScript.Sleep 100 WshShell.AppActivate "explorer" WScript.Sleep 100 WshShell.SendKeys "C:\Users\Default\" WScript.Sleep 100 WshShell.SendKeys "デスクトップ" WScript.Sleep 100 WshShell.SendKeys "｛ＥＮＴＥＲ｝" WScript.Sleep 100 *.VBS ファイルに書き込んで、直接実行したいのですが、エラーになります。 どんなコマンドを足すといいのですか？
- ベストアンサー
- その他（プログラミング・開発）
- vbsでからプログラムを、オプションを指定して起動したい。
vbsから、プログラムを実行する歳に、オプションを指定する方法を教えてください。 Firefoxを起動する際に以下のオプションをつけて実行したいのですが 上手くいきません。 (1)-new-tabオプション (2)URL ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Option Explicit Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") objWshShell.Run """c:\Program Files\Mozilla Firefox\firefox.exe""" Set objWshShell = Nothing Firefoxを起動するだけであれば上の記述でいけますが (1)と(2)は objWshShell.Run """c:\Program Files\Mozilla Firefox\firefox.exe""" の後ろにどのように記述すればいいのでしょうか。
- ベストアンサー
- その他(Windows)
- VBSについて
VBSの中でDOSのコマンドを実行したいのですが、VBS内で使用した変数を Runで使うことはできないのでしょうか？ ################################################ Set WSHShell = CreateObject("WScript.Shell") x = "C:\Documents and Settings\user" WSHShell.Run "cmd.exe /K dir x" ################################################ たとえば上記のようなプログラムを作ったときに最終行のcmd.exeの 実行で変数xを使用したいのですが、可能でしょうか？ このまま実行するとコマンドプロンプトの窓が開いて「ファイルが見つかりません」と表示されてしまいます。 何か方法があればご教授ください。よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- VBSで2バイト文字の送り方の質問です。
VBSで質問です。環境はXP Proです。 InputBoxで入力した日本語を他のアプリケーションに入力をしたいのですが、Sendkeysが2バイト文字は不可とわかり頓挫しました。sendkeys以外で使える技を教えてくださいませ。下記のコードを考えてましたが挫折しました。 -------------------------------------------------- Option Explicit Dim Name Name = InputBox("名前を入力してください") 'シェルを用意 Dim objWshShell Set objWshShell = Wscript.CreateObject("Wscript.Shell") 'notepad起動 objWshShell.Exec "notepad.exe" 'notepadアクティブにする objWshShell.AppActivate "objWshShell.Exec.ProcessID" wscript.sleep 1000 'notepadに名前を入力する objWshShell.Sendkeys Name ***sendkeys以外で文字を送る技を期待しています。
- ベストアンサー
- その他（プログラミング・開発）
- JP1からvbs(PSExec)が起動できない
突然失礼します。 以下のサーバーAにあるvbsを、JP1から起動しようとしていますが、うまく起動しないので、もし原因が分かる方がいたら、ご教授願いたいです。 起動しようとしているサーバーAの「test.vbs」は、簡単に言うと、PsExecを利用して、サーバーBの「hoge.bat」を実行する内容です。 ***test.vbs*** Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "PsExec.exe サーバーBIPアドレス -u 実行ユーザ -p 実行ユーザーパスワード cmd" WshShell.AppActivate "cmd " WScript.Sleep 3000 WshShell.SendKeys "cd C:\" WshShell.SendKeys "{enter}" WshShell.SendKeys "hoge.bat" WshShell.SendKeys "{enter}" WScript.Sleep 10000 WshShell.AppActivate "cmd" WshShell.SendKeys "exit" WshShell.SendKeys "{enter}" ************************ 上記バッチを手動で実行するとうまくいくのですが、 JP1で起動しようとすると、うまくいきません。 そもそもPsExecが実行出来ていないかも。。。。 宜しくお願いします。
- 締切済み
- Visual Basic
