VBScriptについて

VBSでEXCELマクロ実行

pushd E:\test
RunMacro.vbs マクロ.xlsm

--
RunMacro.vbs (macro1はEXCELマクロの名前)

Dim BookPath
Dim FS, Folder
Dim Excel, Book, Sheet

main

If Err.Number = 0 Then
	WScript.Quit(0)
Else
	MsgBox Err.Description

	If IsNull(Excel) Then
		Excel.Quit
	End If

	WScript.Quit(1)
End If

Sub main()

	BookPath = WScript.Arguments(0)

	Set FS = WScript.CreateObject("Scripting.FileSystemObject")
	Set Folder = FS.GetFolder(".")

	If Mid(BookPath, 1, 1) <> "\" And Mid(BookPath, 2, 1) <> ":" Then
 		BookPath = Folder.path + "\" + BookPath
	End If

	Set Excel = WScript.CreateObject("Excel.Application")

	Excel.Visible = False
	Excel.DisplayAlerts = False

	Excel.Workbooks.Open BookPath

	Set Book = Excel.Workbooks(1)
	Set Sheet = Book.Sheets(1)

	Excel.Run "macro1"
	'①②③はどちらでもマクロファイルを保存なしで終了する
	'Book.Saved=true
	'②
	'Book.Close False 
	'③
	Excel.DisplayAlerts = False 
	'マクロファイルを保存して終了する
	'Book.Save
	'Book.Close
	Excel.Quit

End Sub

VBSでIEを開く

 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Visible = True

 objIE.FullScreen = False
 objIE.Top = 100
 objIE.Left = 1480
 objIE.Width = 430
 objIE.Height = 150

 objIE.Toolbar = False
 objIE.MenuBar = False
 objIE.AddressBar = False
 objIE.StatusBar = False

 objIE.Navigate2 "http://server/solar/default.asp"

 Set WSHShell = WScript.CreateObject("WScript.Shell")
 WSHShell.AppActivate "Explorer"