Vba 将CSV添加到现有excel文件，而无需选择CSV位置

我能够得到一个简单的VBA脚本来自动将csv信息导入我的主列表excel文件。但是，我需要手动导航到存储CSV文件的位置。假设CSV位置和文件名不会发生任何更改，如何使此过程自动化。我目前正在使用以下VBA脚本。任何帮助都将不胜感激

子附加\u CSV\u文件

Dim csvFileName As Variant
Dim destCell As Range

Set destCell = Worksheets("master").Cells(Rows.Count, "A").End(xlUp).Offset(1)      'CHANGE SHEET NAME

csvFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv),*.csv", Title:="Select a CSV File", MultiSelect:=False)
If csvFileName = False Then Exit Sub

With destCell.Parent.QueryTables.Add(Connection:="TEXT;" & csvFileName, Destination:=destCell)
    .TextFileStartRow = 2
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
    .Refresh BackgroundQuery:=False
End With

destCell.Parent.QueryTables(1).Delete

---

End Sub

只需硬编码变量csvFileName的值

i、 e.变化

csvFileName = Application.GetOpenFilename(
FileFilter:="CSV Files (*.csv),*.csv", 
Title:="Select a CSV File", MultiSelect:=False)

到

---

顺便说一句，如果我想添加csv作为一个通配符，这会工作吗？csvFileName=C:*.CSV？？否。您需要计算出符合通配符的所有单独文件，并单独处理它们。

csvFileName  = "C:\MyCSVFIle.CSV"