Добавьте CSV в существующий файл Excel без необходимости выбирать местоположение csv

Я могу получить простой сценарий VBA для автоматического импорта информации csv в мой файл excel основного списка. Однако мне нужно будет вручную перейти к месту хранения CSV-файла. Как я могу автоматизировать этот процесс, предполагая, что в местоположении и имени файла CSV не будет никаких изменений. В настоящее время я использую следующий сценарий VBA. Любая помощь будет оценена.

Подпрограмма 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

Конец сабвуфера


csv excel vba
person James    schedule 20.03.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вы просто жестко кодируете значение переменной csvFileName

то есть изменить

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

to 

csvFileName  = "C:\MyCSVFIle.CSV"
person Nick.McDermaid    schedule 20.03.2015
comment
кстати, если я хочу добавить csv в качестве подстановочного знака, это сработает? csvFileName = C:*.CSV?? - person James; 20.03.2015
comment
Нет. Вам нужно проработать все отдельные файлы, соответствующие подстановочным знакам, и обработать их по отдельности. - person Nick.McDermaid; 20.03.2015