Set XL = CreateObject( "Excel.Application" ) XL.Workbooks.Open "File A" XL.Run "'" & XL.ActiveWorkbook.Name & "'" & "!" & "File A内のファンクション名", "配列名[5000,7]" XL.ActiveWorkbook.Close False XL.Quit Set XL = Nothing ...
Dim xlApp As Object = CreateObject("Excel.Application") Dim xlBook As Object = Nothing ’Excel起動 xlBook = xlApp.Workbooks.Open("C:\Temp\test.xls") ' 各種設定 xlApp.Calculation = xlCalculationAutomatic ' 自動計算 xlApp.ScreenUpdating = True ' 画面更新する ...
Value), Columns("B"), 0) + 1 TargetSheetName = "カレンダー" Set myDic = CreateObject("Scripting.Dictionary") For Each mySheet In ThisWorkbook.Worksheets myDic.Add mySheet.Name, mySheet.Name Next mySheet If myDic.exists(TargetSheetName) Then Sheets(TargetSheetName).Activate Set ...
'PowerShell実行 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 '429 = ActiveX...
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 ...
を関数の値として出力し、Adodb.Streamを終了させる。 ADODBStreamの変数の宣言をモジュールレベルで行い、CreateObjectとNothingをモジュールレベルの プイベートSub プロシージャで行い、参照設定を回避するとともに、若干すっきりさせた。 コド全体(モジュールレベル) プイベートを使用して...
概要Excel VBAで、フォルダやファイルを操作するためのコード集を作成しました。条件に当たるファイルのフルパスをすべて取得する関数など、利用すると便利です。コードに関する動画以下の動画でこ…
SubOpenWordFile()DimwAppAsObjectDimwDocAsObjectSetwApp=CreateObject("Word.Application")Setwd=wApp.documents.Open("c:data\test.docx")wApp.Visible=TrueEndSub このコードは、Wordのコピーを開き、文書test.docxを開きます。 VBA Code Examples Add-in ...
Set MyList = CreateObject(“System.Collections.ArrayList”) 宣言 該当なし Dim MyList As Object アイテムの検索/存在確認 検索するアイテム MyList.Contains(“Item2”) アイテムの位置の検索 1.検索するアイテム Dim IndexNo As Long 2.検索を開始する位置 IndexNo = MyList.IndexOf(“Item3...