Private Const 参照設定VBA As String = "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL" Private Const 参照設定Excel As String = "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" Private Const 参照設定OLE As Str…
Function 先頭文字列追加( _ ByRef 対象文字列 As String _ , ByRef 先頭文字列 As String _ , Optional ByRef 既にあれば追加しない As Boolean = True _ ) As String If 既にあれば追加しない Then 先頭文字列追加 = IIf(対象文字列 Like "*" & 先頭文字列…
Function 別ブックのシート取込( _ ByRef 対象ファイルのパス As String _ , ByRef 対象シート一覧 As Variant _ , Optional ByRef シートを表示する As Variant = xlSheetVisible _ ) On Error GoTo ■エラー処理 Dim ファイルシステム As Object Dim シート…
■関連情報 - 【VBA】別ファイルのシートコピー DB関連モジュール Option Explicit Private Const DBプロバイダ As String = "Microsoft.ACE.OLEDB.12.0" Private Const DBプロパティ As String = "Extended Properties" Private Const DBExcelバージョン As …
notionの記事公開です https://astonishing-wandflower-0b6.notion.site/notion-f4d167700caa43469cb98f4da148becc
設定シートイメージ 構成イメージ 設定の取得コード Property Get val(ByRef ParamName As String) As String Dim L As ListObject For Each L In shSetting.ListObjects If L.Name = "設定一覧" Then val = Cells(L.ListColumns("設定値").Range.Column, _ …
'####################################### '方眼フォーマット 項目範囲取得 '####################################### Sub GetFieldArea() On Error GoTo Catch Dim i As Integer Dim j As Integer Dim rng As Range Dim strMergeArea As String Dim CN As…
'####################################### '正規表現置換 '【概要】 ' 正規表現で文字列置換する '【参照設定】 ' Microsoft VBScript Regular Expressions 5.5 '【引数】 ' 対象文字列 ：変更前文字列 ' パターン ：検索条件 ' 置き換え文字列 ：置き換え…
'拡張子取得 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) If Not fso …
'文字列分割 Function SplitString( _ ByRef 対象文字列 As String _ , ByRef 区切り文字列 As String _ , Optional ByRef 取得位置 As Integer = 1 _ ) As Variant Dim var As Variant var = Split(対象文字列, 区切り文字列) SplitString = var(IIf(取得位…
'####################################### 'ExcelDB化接続 '【概要】 ' DB接続 '【引数】 ' ExcelPath ：接続先Excelのフルパス ' [省略可] HeaderExists ：ヘッダ有:True(既定値)、無:False） '【戻り値】 ' Boolean ：True：正常終了 False：異常終了 '##…
'####################################### 'ひな形 Sub '【概要】 ' ひな形です '【引数】 ' aaaaaaaa ： ' [省略可] bbbbbbb ： '####################################### Sub ひな形_S( _ ByRef aaaaaaaa As Variant _ , Optional ByRef bbbbbbb As Vari…
