VBA：転記元のブック名を転記先シートのセルに転記したい

Question

転記元のブック名を転記先シートのA列に転記していきたいのですが、
「実行時エラー91：オブジェクト変数またはwith変数が設定されていません。」
というエラーが出て、
下記コードの
copyWb_name = copyWb.Name
が黄色くハイライトされます。

Option Explicit
Sub データ読込()
    '転記元ファイルの取得用変数
    Const FILE_PATH = "C:あいうえお"
    Dim sFileName As String

    '転記元のシートの変数
    Dim copyWb As Excel.Workbook
    Dim copyWs As Excel.Worksheet
    '転記先のシートの変数
    Dim pasteWs As Excel.Worksheet
    '出力行
    Dim iPasteRow As Integer

    '転記先のシートを取得
    'マクロが書かれているブックの、アクティブなシート
    Set pasteWs = Excel.ThisWorkbook.ActiveSheet

    '出力する空白セルの指定
    Dim pasteCell As Excel.Range
    Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "A").End(xlUp).Offset(1)

    '出力行を取得（先頭行）
    iPasteRow = pasteCell.Row

    '対象フォルダからExcelファイル名を取得
    sFileName = Dir(FILE_PATH & "*.xlsx*")
    If sFileName = "" Then
        'フォルダにExcelファイルが１つもない場合は処理終了
        Exit Sub
    End If

    '対象フォルダ内のすべてのExcelファイルをループ処理
    Do
        '転記元ブックをオープン
        Set copyWb = Workbooks.Open(FILE_PATH & "\" & sFileName)
        '転記元シートを取得
        Set copyWs = copyWb.Worksheets(1)   '先頭シート　

        '除外するものがあればここで条件を指定して転記処理に入れない
        If True = True Then
            '除外するもの以外は下記項目を転記処理
                       
            '転記元ブック名を開いている転記元からコピーして転記先にペースト
                Set pasteCell = pasteWs.Cells(iPasteRow, "A")
                
                Dim copyWb_name As Excel.Range
                With copyWb
                copyWb_name = copyWb.Name
                End With
                
                pasteCell.Value() = copyWb_name.Value()

ネットで調べていくつか入れてみたのですが、いまいちどうソースコード変更すればよいのかわかりません。

どうかお助けください。

追記：

copyWb_name = copyWb.Name

Set pasteCell = pasteWs.Cells(iPasteRow, "A")
                
pasteCell.Value() = copyWb_name.Value()
 

と試しましたら、
copyWb_nameが「コンパイルエラー：変数が定義されていません」というエラーになります。

Answer 1

Dim copyWb_name As String

Comments

[退会済みユーザー]

ご回答ありがとうございます。
ファイル名は文字だから、as stringとdimすればよかったのですね。

[ExcelVBAer]

そうです。変数を宣言した際の「型」が重要です。
宣言した型とは違う処理が実行された場合に、
ちゃんとエラーになってくれる事で、
意図しない処理を発見できるものです。

余談ながら「Dimension」の略です。
VBA Dimension　で検索すると詳しくわかるかと。

[退会済みユーザー]

型と変数を調整しまして
なんとかやっとうまく取得、転記できました！！！
ありがとうございました！！

Answer 2

わざわざ変数を定義せずとも下記のように記述すればよいのでは？

pasteCell.Value = copyWb.Name

Comments

[退会済みユーザー]

ご回答ありがとうございます。
これだけシンプルにできるのですね！

Answer 3

型の違うものに代入しようとしているからエラーになります。

                Dim copyWb_name As Excel.Range
                With copyWb
                copyWb_name = copyWb.Name ' Range型にテキストを代入しようとしている

特定のセルに代入するなら

pasteCell = copyWb.Name

だけで良いと思います。

Comments

[退会済みユーザー]

ご回答ありがとうございました。
定義がそもそもまだ理解よくできていなかったです。
ご指摘いただくことで、一人で煮詰まらず、原因すこしずつわかるので助かりました。