Excelマクロで「プロジェクトまたはライブラリが見つかりません」とエラーメッセージが出てしまいます。。

Question

実現したいこと

・Excelマクロファイルと同じディレクトリにあるExcelファイルの名前＆シート名を抽出
→Excel内で選択したもの（セル内に”●”を入力）をPDFに出力したい

前提

会社で何代か前の前任者が作成したExcelマクロがあるのですが、実行しようとするとエラーになってしまい、マクロが使えません。。。

下記のソースコードの
「t_1 = Time '計測時間の初期値をセット」
がエラー時に、エラー対象として選択されているので、Timeが原因とは思うのですが、解決策がわかりません。。
コメントアウトを見るに、多分ファイル名を抽出する間の時間をメッセージボックスで表示する機能だと思われます。
したがって、マクロ機能の主目的ではないので、最悪消してもいい機能だとは思うのですが、どれを消せばいいのかさえ不明です。

どなたか教えていただけると幸いです。

このマクロを使うことで、作業時間が大幅に短縮されると思うので、ぜひ使えるようにしたいです！
よろしくお願いいたします！！

発生している問題・エラーメッセージ

プロジェクトまたはライブラリが見つかりません

該当のソースコード

Sub Excelファイル名シート名取得_検索なし()
'
' Macro1 Macro
'

'
    Dim ExcelFilePath As String
    Dim LL As Long
    Dim RR As String
    Dim i As Long
    Dim i_2 As Long
    Dim j As Long
    Dim k As Long
    Dim mRow As Long
    Dim mCol As Long
    Dim fileNo As Integer
    Dim filename As String
    Dim Sheet_Mei As String
    Dim str_tmp As String
    Dim s_1 As String
    Dim t_1 As Date
    Dim t_2 As Date
    Dim t_3 As Date

    t_1 = Time '計測時間の初期値をセット

    Application.ScreenUpdating = False

    Load UserForm1
    
    With UserForm1
        With .Label1
            .Caption = "しばらくお待ちください"
        End With
    End With
    
    UserForm1.Show vbModeless  'モーダレスダイアログボックスを表示
    UserForm1.Repaint

    MyWorkbook_name_1 = ThisWorkbook.Name
    MyWorkSheet_name_1 = ActiveSheet.Name

    f_flag = False
    
    'メインシートをクリア (10000)                          '表示領域のデータをクリアする
    メインシートをクリア (50)                          '表示領域のデータをクリアする

    If Cells(4, 2).Value = "" Then                      '指定がなければExcel実行ファイルと同じディレクトリに設定
        Excelファイル一覧を取得 ("")
        Excelシート名一覧を作成する_1 ("")
    Else
        Excelファイル一覧を取得 (Cells(4, 2).Value)      '指定されたディレクトリに設定する
        Excelシート名一覧を作成する_1 (Cells(4, 2).Value)
    End If

    'If f_flag = True Then Exit Sub
    If f_flag = True Then GoTo a_1 '非常ボタンが押されると
    UserForm1.Repaint

    Sheets("シート名一覧").Select
    LL = ActiveSheet.Range("B1").End(xlDown).Row      'データ移行
    RR = "A1:C" & LL
    Range(RR).Select
    Selection.Copy                                    'コピー：シート名一覧
    Sheets(MyWorkSheet_name_1).Select
    Range("B8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False                     'ペースト：メインシート(XLSX→PDF)

    Sheets(MyWorkSheet_name_1).Select       'ファイル名の空欄をなくす
    For i = 8 To (LL + 7)                   '一種のコントロールブレイク処理
        str_tmp = Cells(i, 2)
        If str_tmp = "" Then
            Cells(i, 2) = s_1
        Else
            s_1 = str_tmp
        End If
    Next i
    
    UserForm1.Repaint
    
    未使用項目の非表示化        '検索ワードの未使用項目の非表示化
    
a_1:
    罫線を引く     '罫線設定
    
    t_2 = Time                          '計測時間の修了値をセット

    Unload UserForm1
    
    Application.ScreenUpdating = True
    
    MsgBox "処理が終了しました。処理時間は" & Format(t_2 - t_1, "hh:mm:ss") & "です。"

End Sub```

Answer 1

「プロジェクトまたはライブラリが見つかりません」のエラーが出る場合は、
VBA の「ツール」-「参照設定」ダイアログで「参照不可」になっているライブラリがある可能性があります。
下記手順を参考にエラーになっている箇所がないか確認してみてください。

■ 定番のVBA関数でコンパイルエラーが出たときの対処法
https://www.moug.net/tech/exvba/0150128.html

Comments

[yamayamaki]

参照不可のチェックを外すことで、うまくいきました！！

ありがとうございます！！