2021-08-21から1日間の記事一覧
Option Explicit On Error Resume Next Dim objOlApp ' outlook オブジェクト Dim objOlNs ' NameSpace オブジェクト Dim objOlFolder ' フォルダ情報 Dim objOlItem ' アイテム情報 Dim lngMsgCnt ' メッセージ数 Set objOlApp = WScript.CreateObject("Out…
■サンプルコード Accessファイル「注文管理.accdb」の「M_顧客」テーブルをレコードセットに取得 Option Explicit 'データベース接続 Dim cn Set cn = Wscript.CreateObject("ADODB.Connection") cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)…
'変数の宣言を強制 Option Explicit dim objOutlook 'objXlsにOutlookアプリケーションのオブジェクトをセットする set objOutlook = WScript.CreateObject("Outlook.Application") Dim objFOlder '受信トレイのオブジェクトとしてobjItemにセット set objIt…
'変数の宣言を強制 Option Explicit 'Excelアプリケーションのオブジェクトをセット Dim objxls set objxls = Wscript.CreateObject("Excel.Application") '開いたブックのオブジェクトをセット Dim objBook set objBook = objxls.Workbooks.Open("C:\Users\…
dim i i = inputBox("番号を入力してください") If i = 1 then MsgBox "おはよう" ElseIf i = 2 then MsgBox "こんにちは" Else MsgBox "こんばんは" end if 上記コードを実行した際の出力結果