Question

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

Sub Append_CSV_File（）

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

Answer 1

您只需对变量csvFileName

的值进行硬编码

即。改变

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

到

csvFileName  = "C:\MyCSVFIle.CSV"

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

1 个答案: