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 シート…