【VBA】desktopにあるcsvファイルの読み込み

Question

エクセル/シートの中にボタンを作り
ボタンにsheet/VBAをon_clickで連動させて
事前に用意しているcsvファイルを毎回まっさらな状態で読み込むという動作をしたいです。
サンプルをお借りしたのですが
.Refresh BackgroundQuery:=False
の所で毎回エラーが出ます。

何を用いたらcsv内データをシートに転記できるかご教授いただけますでしょうか。
-----
エラー内容
実行時エラー1004
外部データ範囲を更新するためのテキストファイルが見つかりません。
テキストファイルが移動または名前が変更されていないことを確認し、再度実行してください。
[終了][デバッグ]
-----
Private Sub CommandButton1_Click()
Const CSV_FILE As String = "C:\Users\user\Desktop\test\0001.csv"
Const CSV_SHEET_NAME As String = "csv"

Dim sheet As Worksheet
Dim csvSheet As Worksheet

For Each sheet In ThisWorkbook.Worksheets
If sheet.Name = CSV_SHEET_NAME Then
Application.DisplayAlerts = False
Worksheets(CSV_SHEET_NAME).Delete
Application.DisplayAlerts = True
End If
Next

Set csvSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
csvSheet.Name = "csv"

With csvSheet.QueryTables.Add(Connection:="TEXT;" & CSV_FILE, Destination:=Sheets("csv").Range("B2"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat)
.TextFilePlatform = 932
.TextFileStartRow = 1
.RefreshStyle = xlOverwriteCells
.Refresh BackgroundQuery:=False
.Delete

End With
End Sub

Comments

[meg_]

コードは「コードの挿入」で記入しましょう。

Answer 1

Const CSV_FILE As String = "C:\Users\user\Desktop\test\0001.csv"
で示されるC:\Users\user\Desktop\test\0001.csv　が存在しないのでエラーになります。
一般的にC:\Users\user\は、C:\Users\xxx\ となります。(xxxは実際のユーザー名）
例えば、ユーザー名がyamamotoなら
C:\Users\yamamoto\　となります。
あなたのデスクトップの実際のフォルダ名を確認してください。
そして、そのフォルダ名に変えてから、マクロを実行してください。

もし、上記でもうまくいかないなら
C:の直下に0001.csvを格納し、
Const CSV_FILE As String = "C:\0001.csv"
としてマクロを実行してください。

Comments

[peace_m_aaa]

ありがとうございます。
仰る通りユーザーの所を見過ごしてしまっておりました。

.Refresh BackgroundQuery:=Falseの指定がおかしいのかと思ってばかりいたので
初歩的なところに気づけなかったです。
あとdesktopはspecialで指定し直したらエラーもなくなりました。