さまざまなバージョンの Microsoft Office アプリケーションで GetObject 関数と CreateObject 関数を使用するときに発生するさまざまな動作について説明します。
新しいオブジェクトを作成したり、別のアプリケーションから既存のオブジェクトを取得したりするには、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 ソース中に、異常終了の...
次のスクリプトは、FactoryGlobals にある 実際の PrintReport 関数です。ここでは、Crystal Reportsを使用するため、遅延バインディングを実行します。ここではまず、RegOpenKeyEx関数を使って、Crystal Reports がマシンにインストールされているかどうかをチェックしています。インストールされて...
Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(cmdStr) Dim exitCode exitCode = oExec.exitCode ' Java ソース中に、正常終了の場合、main関数の最後で、System.exit(666); ' Java ソース中に、異常終了の場合、System.exit(1); ...
With CreateObject("Scripting.FileSystemObject").CreateTextFile(fileName, True) For i = 1 To numRows For j = 1 To numCols .Write data(i, j) If j < numCols Then .Write "," Next j .WriteLine Next i .Close End With ' 完了メッセージを表示する ...
SubLoopThroughFiles()DimoFSOAsObjectDimoFolderAsObjectDimoFileAsObjectDimiAsIntegerSetoFSO=CreateObject("Scripting.FileSystemObject")SetoFolder=oFSO.GetFolder("C:\Demo")i=2ForEachoFileInoFolder.Files Range("A"&i).value=oFile.Name i=i+1NextoFileEndSub ...
FileSystemObject メソッドでは、最初に変数を宣言し、オブジェクト関数を作成し、ファイルのパスを割り当て、次に DeleteFile 関数を使用します。 完全なコードを以下に示します。Sub DeleteFileWithFSO() Dim FileSysObj Dim FileToDel As String Set FileSysObj = CreateObject("Scripting.FileSystemObject"...
Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile Application.UserLibraryPath & name & ".xla" Set fso = Nothing Application.CommandBars("Cell").Controls(name).Delete MsgBox "削除が完了しました。もし削除されていない場合は、Excelをすべて閉じた後に再度実行してください。" ...
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 ...