- 締切済み
VBSからのエクセル起動について
マクロを含んだBook（自作したもの）の起動時、起動直後の「セキュリティの警告画面」を、マクロセキュリティ中の状態で、表示させないで起動するためにVBSからの起動起動を考えています。いくつかウィンドウを開いた状態で、下記のコードにてBookを開くと、最前面に表示表示してくれません。対処方を教えてください。 Option Explicit Dim objExcelApp, strPath Const BookName = "Book1.xls" Set objExcelApp = CreateObject("Excel.Application") With WScript strPath = Replace(.ScriptFullName, .ScriptName, "") End With objExcelApp.Workbooks.Open strPath & BookName, False, False Set objExcelApp = Nothing ＊VBSはまだ勉強不足で、なんとなくこのコードの意味も解る程度です。VBAに関しては、一通り基本的なことはできます。よければ、このコードの詳しい意味も教えてください。また、他の対処法があれば教えてください。よろしくお願いします。
- Hirogou32416
- お礼率66% (2/3)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- watabe007
- ベストアンサー率62% (476/760)
こんばんは >下記のコードにてBookを開くと、最前面に表示表示してくれません。 最前面に表示どころか、表示じたい、されないのでは >Set objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True
関連するQ&A
- 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"
- ベストアンサー
- その他（プログラミング・開発）
- VBSからのエクセル操作
エクセルでテキストファイルを開く作業をVBSで自動化したいのですが、下のスクリプトが上手く動作しません。どうすれば上手いこと動くように出来るでしょう？ OpenTextのVBS上での使用法がポイントだと思うんですが。 Dim objXL Set objXL = WScript.CreateObject("Excel.Application") objXL.Workbooks.OpenText "hoge.txt", ,1, xlDelimited, xlDoubleQuote, False, False, False, False, False, True, ":", Array(1, 1) objXL.Visible = True
- ベストアンサー
- オフィス系ソフト
- バッチファイルファイル→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")によって マクロが無効になってしまっているのはないか？ と思っています。 恐れ入りますが、 よろしくアドバイスの程お願いします。
- ベストアンサー
- オフィス系ソフト
- すでに開いているブックのマクロを起動させるvbｓを教えてください
お願いします。 00時から23時54分まで 常時開いていて、温度の数値をロギングしているexcelブックがあります。 1分おきにロギングし、10分おきに表に記録し、グラフ化しています。 エクセルを開き、閉じてOSを再起動、またエクセルを開く、を365日繰り返すものです。 基本的に常時無人です。 印刷、保存など、計7個の作業を Application.OnTime にて Workbook Open時にタイマーとしてマクロをかけてたのですが、 実行の信頼度が高くない（実行しない日がある）ので、 タスクスケジューラにて行おうとしました。 マクロを実行させるvbs Option Explicit Dim objxlsm Set objxlsm=CreateObject("Excel.Application") objxlsm.Workbooks.Open ("ブックパス) objxlsm.Run "Module11.DB保存" objxlsm.DisplayAlerts=False objxlsm.quit Set objxlsm = Nothing 以上を行うと、 今開いているブックではなく、保存されたブックを別で開き、そこのマクロを処理してしまいます。 現在開いているブックに処理をかける場合はどうしたらよいのでしょうか？ このブックはリアルタイム（表内に１分おきに数値を更新します）に動いている表グラフなので、 なんとか、開いている（表示している）ブックで外部からマクロを実行したいのですが。。 ご教授ください。 ちなみに、このブックは、タスクスケジューラでvbsにて開いています。（関係ありますか？） おねがいします。
- 締切済み
- Visual Basic
- VBSで起動したアプリが前面表示しない
Powerpointをコンテキストメニューに「読み取り専用」を追加するために以下のVBscriptを起動すると前面表示されません。 どうしたら前面表示されますでしょうか？ 起動コマンド wscript.exe "C:\Program Files\Microsoft Office\Office14\OpenPptAsReadOnly.vbs" "%1" 以下がVBscript（OpenPptAsReadOnly.vbs）です。 Dim strPPTFileName Dim objPPTApp '引数のチェック If WScript.Arguments.Count <> 1 Then WScript.Quit 'ファイル名取得 strPPTFileName = WScript.Arguments(0) '起動 Set objPPTApp = WScript.CreateObject("Powerpoint.Application") objPPTApp.Visible = True '読み取り専用で開く Call objPPTApp.Presentations.Open(strPPTFileName,True) '終了処理 Set objPPTApp = Nothing WScript.Quit
- ベストアンサー
- Visual Basic
- VBS(WSH)で開いたIEのウィンドウがアクティブにならない
VBSでタイトルバーのみのIEウィンドウを開き、 SendKeyでtestと入力するスクリプトを作成しています。 ですが、開いたIEのウィンドウがアクティブにならず、 SendKeyがIEに送信されません。 VBSについては全くの初心者でして、ウィンドウがアクティブにならないのが 環境の問題なのか、プログラムの問題なのか判断できません。 どなたかご教授をお願いします。 IEのバージョンは8、OSはWinXPです。 以下、ソースです。 -------------------------------------------------- 'タイトルバーのみのIEを起動する Set WshShell = WScript.CreateObject("WScript.Shell") Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate("http://www.google.co.jp/") objIE.MenuBar = False objIE.StatusBar = False objIE.ToolBar = False objIE.AddressBar = False objIE.Visible = True '表示待ちループ Do While objIE.Busy WScript.Sleep 100 Loop '[test]で検索 WshShell.SendKeys("test") WScript.Sleep(100) WshShell.SendKeys("{TAB}") WScript.Sleep(100) WshShell.SendKeys("{ENTER}") --------------------------------------------------
- ベストアンサー
- Visual Basic
- VBSを使ってフォルダを圧縮
初めましてsazzzzと申します。 恥を承知、お解りになる方に聞いてみようかとこの度投稿した次第です。 どなたか助けてください。宜しくお願いします。VBSめちゃめちゃ初心者なのです。 ☆不特定なファイルが格納されているフォルダを指定フォルダに圧縮 ☆VBSを使い、業務時間外にタスクで管理したい ☆Windows2000(いまだに...)を使用 不作VBSを書かせて頂きます。ファイルでは、動作問題なく出来ましたが、フォルダとなると無理でした。 '---------------フォルダーのコピー-------------------- 'コピーフォルダ名 strFolder= "TEST" '圧縮フォルダ名 strZipFolder= strFolder & ".zip" MsgBox strZipFolder 'コピー元パス strSource="\\Pink\Work\" & strFolder 'コピー先パス strDestinate="\\Pink\Work\BK\" Set objFS = CreateObject("Scripting.FileSystemObject") Set objFB = CreateObject("Scripting.FileSystemObject") If objFS.FolderExists(strSource) = False Then objFB.CreateFolder(strSource) End If objFB.CopyFolder strSource , strDestinate , False '--------------コピー元フォルダの削除----------------------- strPath = strSource Set objFS = CreateObject("Scripting.FileSystemObject") If objFS.FolderExists(strPath) = False Then MsgBox("指定されたフォルダが存在しません。") Else objFB.DeleteFolder strPath End If 'DOSコマンドを実行して、圧縮する Set ws = WScript.CreateObject("WScript.Shell") strDC="Makecab " & strDestinate & strFolder & " " & strDestinate & strZipFolder ws.Run strDC,0,true set ws=nothing objFS.DeleteFile(strDestinate & strFolder) Set objFS=Nothing Set objFB=Nothing
- 締切済み
- Visual Basic
- VBA 新規にエクセルを開き既存のファイルを開く
VBAで新規にエクセルのアプリケーションを起動し、 その中に既存のファイルを起動する方法は有りますか？ Sub Sample() Dim appExcel As Excel.Application Dim WSH As Variant Dim strPath As String Set appExcel = New Excel.Application Set WSH = CreateObject("Wscript.Shell") strPath = ActiveWorkbook.Path With appExcel .Visible = True .Workbooks.Add .ActiveWorkbook.SaveAs (strPath & "\ test.xls") End With Set WSH = Nothing End Sub このコードは、ネットから拾ったサンプルコードなのですが 新しいアプリケーションでエクセルを立ち上げることはできたのですが 新規のブックが開いてしまい、 更に、開きたいファイルに上書き保存してしまいそうです。 新規のブックが開く原因は .Workbooks.Addで、 上書き保存する原因は .ActiveWorkbook.SaveAs だとわかってるのですが、 この部分を同変更すればいいのかがわかりません。 Workbooks.Open?Filename:="C:\Users\test.xlsx" だと、現在実行しているvbaファイルを同じ枠内で 該当のファイルが開いてしまいます。
- ベストアンサー
- オフィス系ソフト
- VBSにてサーバー中のエクセルファイルを開いて閉じるだけの処理を行った
VBSにてサーバー中のエクセルファイルを開いて閉じるだけの処理を行ったところクライアントでのテストは上手くいくのですが、サーバーに移植すると下記問題点が発生し解決できません。お教え下さい・ １）サーバーで直接ＩＥで開くと"検索中のページには問題があるため表示できません。"になる ２）クライアント側のＩＥで開くと"Microsoft VBScript 実行時エラー エラー '800a0046' ",書き込みできません。: 'CreateObject'になる 環境 サーバーwindows 2003 server クライアント windwos XP いずれもIIS ・クライアントＰＣのＩＩＳ環境に移植しクライアントＰＣのＩＥで開くと正常動作 プログラム <%@ LANGUAGE = VBSCRIPT %> <html> <body> <% On Error Resume Next Set objExcelApp = CreateObject("Excel.Application") If Err <> 0 Then ' エラー処理 response.write "Excelを起動できませんでした" response.write "エラー:" & Err.Description & "" Else On Error Resume Next '確認ダイアログ非表示 objExcelApp.DisplayAlerts = False 'エクセルのオープン Set objExcelBook = objExcelApp.Workbooks.Open("C:\Temp\2010.xls",,True) Set objExcelSheet = objExcelBook.Sheets(1) Set objExcelSheet = Nothing objExcelBook.Close Set objExcelBook = Nothing objExcelApp.Quit Set objExcelApp = Nothing End If %> </body> </html>
- ベストアンサー
- Microsoft ASP
- ExcelVBA内のVBSで別ブックを開いたとき
ブック1で、誰のPCからでもセキュリティの警告を出さないようにブック2を開くVBSを実行し、ブック1で使用した変数xの値をブック2に渡すということをやりたいのですが、上手くいきません...。 ブック2を開く所まではできたのですが、ブック2のセルに変数xの値を入れようとすると、エラー「インデックスが有効範囲にありません。」が発生し、そもそもブック2をアクティブにできません。 ファイル名・パス等は絶対に間違えていないと思います。 原因とどう修正すれば良いか、教えて頂けないでしょうか。 下記が簡略化したプログラムになります。 Book1のプログラム Sub Book1() Dim x As String x = "aaa" CreateObject ("Shell.Application") CreateObject("Shell.Application").ShellExecute "○○.vbs" Workbooks("Book2.xlsx").Sheets("Sheet1").Range("A1") = x End Sub ---------------------------------------------------------------------------------------------------------- VBSのプログラム Dim strExcFileName Dim objExcApp strExcFileName ="○○￥Book2.xlsx" Set objExcApp = WScript.CreateObject("Excel.Application") objExcApp.Visible = True Call objExcApp.Workbooks.Open(strExcFileName,,True) objExcApp.DisplayAlerts = False WScript.Quit 以上、宜しくお願い致します。
- 締切済み
- その他（プログラミング・開発）
補足
回答ありがとうございます。下記のようにワークブックのOPENイベントに記述し、UserForm1のみ表示するようにしています。 Private Sub Workbook_Open() If Workbooks.Count = 1 Then Application.Visible = False Else Application.Windows("Book.xls").Visible = False End If UserForm1.Show False End Sub