CSVファイルをボタンを使用してインポートしたい

Question

CSVファイルをエクセルのシート（Sheet1）にインポートしたいです。
はじめマクロの記録でインポートしてボタンに登録して実行したのですが、２回目以降の実行で不具合が出ました。そこで、teratailにて質問しご教授いただきましたプログラムを実行しました。
該当箇所を自分のファイルに変更し試したところ、CSVファイルのインポートがどうもうまくいきませんでした。
今回の問題点

①期待する動き
挿入ボタンをクリックし、PC上からCSVファイルを選択しエクセルシートにインポート
②実際の動き
ボタンをクリックすると、メッセージボックスが開き”インポートしますか？”と出て、”はい”を選択しますとインポートされるはずですが、エラーメッセージが開きます。
③エラー内容
”microsoft visual basic 400”と表示されます。調べて見たところ、セルの未指定等が原因のようでしたので、セル、シートも指定して実行したところやはり同じエラーが出ました。
また、セルをしてすると”識別子が違います”と出ます。指定箇所が違うのでしょうか。

下記がボタンを押した際の処理です

Public Sub ImportCsvFile()

    ' 変数宣言
    Dim csvBook As Workbook
    Dim csvSheet As Worksheet
    Dim Sheet1 As Worksheet
    Dim activeCell As Range
    Dim csvBookPath As String

    If MsgBox("選択されたセルにCSVデータをインポートしてよろしいですか？", vbQuestion + vbYesNo, "確認") = vbNo Then
        Exit Sub
    End If

  
    Set Sheet1 = ActiveSheet


    On Error Resume Next
    Set activeCell = Selection
    On Error GoTo 0


    If Range("A1:D4") Is Nothing Then
        MsgBox "セルが選択されていないため処理を継続できません", vbExclamation + vbOKOnly, "処理失敗"
        Exit Sub

    End If

    csvBookPath = Application.GetOpenFilename(FileFilter:="CSV ファイル, *.csv?")

    If csvBookPath = "" Then
        MsgBox "CSVファイルが選択されなかったので処理を終了します", vbExclamation + vbOKOnly, "処理失敗"
        Exit Sub

    End If

    Application.ScreenUpdating = False

    Set csvBook = GetCsvBook(csvBookPath)

    If csvBook Is Nothing Then
        MsgBox "CSVファイルを開けなかったので処理を終了します", vbExclamation + vbOKOnly, "処理失敗"

        Application.ScreenUpdating = True
        Exit Sub

    End If

    Set csvSheet = csvBook.Worksheets(1)

    Sheet1.Unprotect

    With csvSheet.UsedRange
        csvSheet.Range(csvSheet.Cells(IIf(NEED_HEADER, 1, 2), 1), .Cells(.Cells.Count)).Copy activeCell
    End With

    csvBook.Close False

    ProtectSheet ActiveSheet

    Application.ScreenUpdating = True

End Sub

ご指摘よろしくお願いします。

Comments

[ExcelVBAer]

どうもうまくいかないって、なぞなぞですか？

[ExcelVBAer]

GetCsvBookの中身も不明です

[Zuishin]

GetCsvBook の内容も追記してください。

Answer 1

①関連リンクがあるのなら貼りましょう

TeraTailには日々たくさんの質問があがっているのですから、以前の質問が関連しているのであればせめてリンクを貼りましょう。
すべての人が質問者さんの過去の質問履歴をひとつひとつ読み返してくれるわけではありませんよ。
⇒たぶんこれ

②問題点は明確に記載しましょう

「どうもうまくいきません」では何もわかりません。
同じ環境を手元に用意し、同じコードを実行したとしても、質問者様が何を問題としているのかわからなければ再現性の確認にもなりません。

・期待する動き
・実際の動き
・問題の発生するソースコード
・エラー内容（エラーが発生している場合）

といった内容は最低限必要です。
これらの情報があれば、回答する側もある程度問題点の絞り込みができることが多いです。

あとはコード上ではどこまで期待する動きとなっており、どこから想定外の動きとなっているのかも記載してほしい内容なのですが、これが絞れる人はある程度自力で対策も立てられるのかもしれません。

再現性について

今回提示いただいたコードと、過去の質問にあったコードを組み合わせて動作確認してみましたが、当方の環境（Windows7、Excel2010）では指定したCSV内容がアクティブシート上に展開されました。
正常動作と思えますが、やはり問題点を明確に記載いただいた方がよさそうです。

追記をお待ちしております。

---

---

追記・コメントを受けて

確認メッセージしか表示されていないということは、問題のあるコードは

Set Sheet1 = ActiveSheet

On Error Resume Next
Set activeCell = Selection
On Error GoTo 0

If Range("A1:D4") Is Nothing Then
    MsgBox "セルが選択されていないため処理を継続できません", vbExclamation + vbOKOnly, "処理失敗"
    Exit Sub
End If

csvBookPath = Application.GetOpenFilename(FileFilter:="CSV ファイル, *.csv?")

この範囲に絞られますね。

変数名の問題？

このうち最初の２つの処理Set Sheet1 = ActiveSheetとSet activeCell = Selectionについてですが、Sheet1やactiveCellという変数名はどちらもExcelVBAでは予約語です。

こちらの環境では問題なく動作しているので何とも言えませんが、コードを読む際に誤解を招く可能性もあり、変数名としてはあまりふさわしくありません。
まずは変数名を変更してみてはどうでしょうか。（宣言や利用箇所を全て変更する必要があります）

Range("A1:D4") Is Nothing？

３つめのブロックIf Range("A1:D4") Is Nothing Thenですが、Range範囲を直接指定しているのにNothingになる状況は考えにくく、あまり意味のない判定になっていると思います。
過去の質問で提供されたコードではIf activeCell Is Nothing Thenとなっていたので、デバッグ目的か何かで変更されたままになっているのだと思います。
おそらくボタン自体がフォーカスされている状態でマクロを実行した場合に、Selectionからセル範囲を取れなくなるのを回避しようとしたのではないでしょうか。

最後に選択されていたセルを取りたいのであれば、Selectionではなく予約語の方のActiveCellで取得できます。

'Dim Sheet1 As Worksheet    '廃止
'Dim activeCell As Range    '廃止
Dim shtPaste As Worksheet
Dim rngPaste As Range

'（中略）

'Set Sheet1 = ActiveSheet
Set shtPaste = ActiveSheet

'On Error Resume Next
'Set activeCell = Selection
'On Error GoTo 0
Set rngPaste = ActiveCell

'If activeCell Is Nothing Then
If rngPaste Is Nothing Then
    MsgBox "セルが選択されていないため処理を継続できません", vbExclamation + vbOKOnly, "処理失敗"
    Exit Sub
End If

'（中略）

'Sheet1.Unprotect
shtPaste.Unprotect

With csvSheet.UsedRange
    'csvSheet.Range(csvSheet.Cells(IIf(NEED_HEADER, 1, 2), 1), .Cells(.Cells.Count)).Copy activeCell
    csvSheet.Range(csvSheet.Cells(IIf(NEED_HEADER, 1, 2), 1), .Cells(.Cells.Count)).Copy rngPaste
End With

根本のエラー原因にはまだたどり着いていませんが、ひとまずお試しください。

Comments

[15DB109_hotaka]

ご指摘ありがとうございました！安易な考えの質問申し訳ありません。勉強になりました、
今後気をつけます。
ご指摘いただいた箇所の修正いたしましたので、見ていただけたら幸いです。よろしくお願いします。

[jawa]

今回の処理ではいくつかメッセージやダイアログが表示されるタイミングがあります。

Step1:確認MSG "選択されたセルにCSVデータをインポートしてよろしいですか？"
Step2:失敗MSG "セルが選択されていないため処理を継続できません"
Step3:ファイル指定ダイアログ
Step4:失敗MSG "CSVファイルが選択されなかったので処理を終了します"
Step5:失敗MSG "CSVファイルを開けなかったので処理を終了します"

このうちStep1とStep3は必ず表示されるはずです。
今回、エラーが発生するまでに表示されるのはStep1の確認メッセージだけでしょうか？

[15DB109_hotaka]

はい、確認MSGのみ表示され、インポートしますか？に対して　はい　をクリックすると
エラーになります！

[jawa]

回答に追記しました。
まだ根本原因にはたどり着いていませんが、変数名の変更など、まずはお試しください。

[15DB109_hotaka]

ありがとうございます！
修正し試してみます。