#basicFunction GetCellsAddress( _ ByRef CellsList As Variant _ , ByRef varObject As Variant _ , ByRef What As Variant _ , Optional ByRef After As Variant _ , Optional ByRef LookIn As Varia
【VBA】ExcelのDB化
#VBAFunction ExcelDBconnect( _ ByRef ExcelPath As String _ , Optional ByRef HeaderExists As Boolean = True _ ) As Boolean On Error GoTo Catch Const adOpenKeyset = 1 Const adLockReadOnly = 1
【VBA】2次元配列の要素追加
#VBA'2次元配列の要素追加Function AddItemsArray( _ ByRef varArray As Variant _ , Optional ByRef AddRows As Integer _ , Optional ByRef AddColumns As Integer _ ) As Boolean On Error GoTo Catch Dim temp() As
【VBA】存在確認
#VBA'存在確認Function ExistCheck(ByRef パス As String) As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(パス) Then ExistCheck = True ElseIf fso.FolderExists(パス) Then Exist
#VBA'拡張子取得Function GetExtension(ByRef パス As String) As String Dim str As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") str = fso.GetExtensionName(パス) GetExtension = SplitString(str, "]", 1)
#VBA'文字列分割Function SplitString( _ ByRef 対象文字列 As String _ , ByRef 区切り文字列 As String _ , Optional ByRef 取得位置 As Integer = 1 _ ) As Variant Dim var As Variant var