さまざまなバージョンの Microsoft Office アプリケーションで GetObject 関数と CreateObject 関数を使用するときに発生するさまざまな動作について説明します。
CreateObject関数で作成したWscript.ShellのSpecialFoldersプロパティで、 特殊フォルダを示す文字列を引数に指定して特殊フォルダを取得します。 WScript.Shell WScript.Shellを使うには、 CreateObject関数(ActiveXオブジェクトへの参照を作成して返す)を使います。
新しいオブジェクトを作成したり、別のアプリケーションから既存のオブジェクトを取得したりするには、CreateObject関数またはGetObject 関数を使用します。 VB ' Start Microsoft Excel and create a new Worksheet object.SetExcelWorksheet = CreateObject("Excel.Sheet")' Start Microsoft Excel and open...
cmdStr = "java -jar c:\xxx\xxx\xx\tool.jar param1 param2" Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(cmdStr) Dim exitCode exitCode = oExec.exitCode ' Java ソース中に、正常終了の場合、main関数の最後で、System.exit(666); ' Java ソース中に、異常終了の...
Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(cmdStr) Dim exitCode exitCode = oExec.exitCode ' Java ソース中に、正常終了の場合、main関数の最後で、System.exit(666); ' Java ソース中に、異常終了の場合、System.exit(1); ...
FileSystemObject メソッドでは、最初に変数を宣言し、オブジェクト関数を作成し、ファイルのパスを割り当て、次に DeleteFile 関数を使用します。 完全なコードを以下に示します。Sub DeleteFileWithFSO() Dim FileSysObj Dim FileToDel As String Set FileSysObj = CreateObject("Scripting.FileSystemObject"...
DOSコマンド実行関数 Function getCmd(sCmd As String) As String() Dim WSH, wExec, Result As String Set WSH = CreateObject("WScript.Shell") Set wExec = WSH.Exec("%ComSpec% /c " & sCmd) tmp_str = "" Do tmp_str = tmp_str & wExec.StdOut.ReadAll ...
Set psExec = VBA.CreateObject("WScript.Shell").Exec(cmdTxt) 'PowerShellがコールバックするまで待機 Dim i As Long Do While scrCtrl Is Nothing DoEvents: i = i + 1 '無限ループ防止用。作者環境では5000弱はループする。 If i > 100000 Then Err.Raise 429 ...
SubLoopThroughFiles()DimoFSOAsObjectDimoFolderAsObjectDimoFileAsObjectDimiAsIntegerSetoFSO=CreateObject("Scripting.FileSystemObject")SetoFolder=oFSO.GetFolder("C:\Demo")i=2ForEachoFileInoFolder.Files Range("A"&i).value=oFile.Name i=i+1NextoFileEndSub ...
Sub Send_Mail() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .to = "test@test.com" .Subject = "Test Email" .Body = "Message Body" .Attachments.Add ActiveWorkbook.FullName .Display End ...