【VBA】dictionary･テキストファイル･outlook･Access用にオブジェクトを生成する｜CreateObject

Public Function CreateDic() As Object
    Set CreateDic = CreateObject("Scripting.Dictionary")
End Function

Public Function CreateFSO() As Object
    Set CreateFSO = CreateObject("Scripting.FileSystemObject")
End Function

'テキストファイル用（文字列の読み込みや書き込み）
Public Function CreateST() As Object
    Set CreateST = CreateObject("ADODB.Stream")
End Function

Public Function CreateOL() As Object
    Set CreateOL = CreateObject("Outlook.Application")
End Function

Public Function CreateCN() As Object
    Set CreateCN = CreateObject("ADODB.Connection")
End Function

Public Function CreateRS() As Object
    Set CreateRS = CreateObject("ADODB.Recordset")
End Function

Public Function CreateCMD() As Object
    Set CreateCMD = CreateObject("ADODB.Command")
End Function