モジュールインポート
カレントデータベースの標準モジュールをバックアップフォルダからインポートします。
指定したモジュールはインポートしないようにします。（モジュール削除参照）
モジュール インポート▲ TOP
Sub PMoImportCom00()

''Module Import Start           2002/9/4

    Dim mypZMoname1 As String       'インポートしないモジュール名の先頭文字
    Dim mypZMoname2 As String       'インポートしないモジュール名の先頭文字

    mypZMoname1 = "A"
    mypZMoname1 = "a"

'フルパスファイル名からファイル名を取り出す
    mypActName = FPickUpName(1)

''モジュールフォルダ 選択          2002/9/4
    mypBkFolder = FMoFolderCoice(mypActName)

    mypBkUpFPath = mypBkPath & mypBkFolder & "\"

''モジュールインポート共通       2002/5/22
    PMoImport01 mypActName, mypZMoname1, mypZMoname2

End Sub

Sub PMoImport01(mypActName As String, mypZM1 As String, mypZM2 As String)

''モジュールインポート共通       2002/5/22

'    Dim mypFSO As New filesystemobject
'    Dim mypFname As File
    
    Dim mypInName As String
    Dim mypFcnt As Integer
    Dim mypMoName As String            'モジュール名
    Dim mypMoType As Integer           'モジュール型  1:標準 2:Class 3:Form
    Dim mypMoCount As Integer          'モジュール数
    Dim mypTitle As String
    Dim mypMsg1 As String
    Dim mypMsg2 As String
    Dim mypMsg3 As String
    Dim mypRetMsg As Integer

    mypTitle = "モジュールインポート"
    mypMsg1 = "インポート終了  "
    mypMsg2 = "インポートしますか。？  "
    mypMsg1 = mypMsg1 & vbCrLf & vbCrLf & mypBkUpFPath & "  [ "
    mypMsg2 = mypMsg2 & vbCrLf & vbCrLf & mypBkUpFPath & "  [ "

''モジュールインポートの確認
    mypMoName = Dir(mypBkUpFPath, vbNormal)
    mypFcnt = 0
    mypMoCount = 0
    Do While mypMoName <> ""
        mypMoName = Dir$
        mypFcnt = mypFcnt + 1
        If Right(mypMoName, 1) = "s" Then
            If Left(mypMoName, 1) = mypZM1 Or Left(mypMoName, 1) = mypZM2 Then
            Else
               mypMoCount = mypMoCount + 1
            End If
        End If
    Loop

''モジュールインポート
    mypMoName = Dir(mypBkUpFPath, vbNormal)
    mypFcnt = 0
    mypMoCount = 0
    Do While mypMoName <> ""
        mypMoName = Dir$
        mypFcnt = mypFcnt + 1
        If Right(mypMoName, 1) = "s" Then
            If Left(mypMoName, 1) = mypZM1 Or Left(mypMoName, 1) = mypZM2 Then
            Else
                mypMoCount = mypMoCount + 1
                mypInName = mypBkUpFPath & mypMoName

                ''モジュールインポート
                VBE.ActiveVBProject.VBComponents.Import mypInName
            End If
        End If
    Loop

    Beep
    mypMsg3 = mypMsg1 & mypMoCount & " ] → [ "
    mypMsg1 = mypMsg3 & mypActName & " ]"
    MsgBox mypMsg1, vbInformation, mypTitle

'        MsgBox mypMoName
'MsgBox mypMoCount & "  " & mypBkUpFPath & "  " & mypMoName

End Sub

Sub PMoImportMaster()

''Masterよりモジュールインポート       2002/10/19
'    PMoImportMaster

'    Dim mypFSO As New filesystemobject
'    Dim mypFname As File
    
    Dim mypInName As String
    Dim mypFcnt As Integer
    Dim mypMoName As String            'モジュール名
    Dim mypMoType As Integer           'モジュール型  1:標準 2:Class 3:Form
    Dim mypMoCount As Integer          'モジュール数
    Dim mypZM1 As String       'インポートしないモジュール名の先頭文字
    Dim mypZM2 As String       'インポートしないモジュール名の先頭文字
    Dim mypTitle As String
    Dim mypMsg1 As String
    Dim mypMsg2 As String
    Dim mypMsg3 As String
    Dim mypRetMsg As Integer

    mypTitle = "モジュールインポート"
    mypMsg1 = "インポート終了  "
    mypMsg2 = "インポートしますか。？  "
    mypMsg1 = mypMsg1 & vbCrLf & vbCrLf & mypBkUpFPath & "  [ "
    mypMsg2 = mypMsg2 & vbCrLf & vbCrLf & mypBkUpFPath & "  [ "

    mypZM1 = "A"
    mypZM1 = "a"
    mypBkFolder = "Master"
    mypBkUpFPath = mypBkPath & mypBkFolder & "\"

''モジュールインポートの確認
    mypMoName = Dir(mypBkUpFPath, vbNormal)
    mypFcnt = 0
    mypMoCount = 0
    Do While mypMoName <> ""
        mypMoName = Dir$
        mypFcnt = mypFcnt + 1
        If Right(mypMoName, 1) = "s" Then
            If Left(mypMoName, 1) = mypZM1 Or Left(mypMoName, 1) = mypZM2 Then
            Else
               mypMoCount = mypMoCount + 1
            End If
        End If
    Loop

''モジュールインポート
    mypMoName = Dir(mypBkUpFPath, vbNormal)
    mypFcnt = 0
    mypMoCount = 0
    Do While mypMoName <> ""
        mypMoName = Dir$
        mypFcnt = mypFcnt + 1
        If Right(mypMoName, 1) = "s" Then
            If Left(mypMoName, 1) = mypZM1 Or Left(mypMoName, 1) = mypZM2 Then
            Else
                mypMoCount = mypMoCount + 1
                mypInName = mypBkUpFPath & mypMoName

                ''モジュールインポート
                VBE.ActiveVBProject.VBComponents.Import mypInName
            End If
        End If
    Loop

    Beep
    mypMsg3 = mypMsg1 & mypMoCount & " ] → [ "
    mypMsg1 = mypMsg3 & mypActName & " ]"
    MsgBox mypMsg1, vbInformation, mypTitle

End Sub
top