Импорт CSV в Excel с VBA, но таблица Excel не расширяется

Question

С помощью приведенного ниже кода я могу выбрать файл CSV, и его данные будут импортированы в мой файл Excel.

Sub Append_CSV_File()

    Dim csvFileName As Variant
    Dim destCell As Range

    Set destCell = Worksheets("Sheet2").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
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
        End With

    destCell.Parent.QueryTables(1).Delete

End Sub

Тем не менее, он не расширяет фактическую таблицу, но данные CSV вставляются нижеэто и всякий раз, когда я набираю случайные данные под таблицей, оно расширяется.

Чего мне не хватает в коде для расширения таблицы?

Answer 1

Я не знаю, является ли это именно вашей проблемой

Но, пожалуйста, следуйте этому:

Файл> Параметры> Проверка

Параметры автозамены> Автоформат при вводе

Затем установите флажок «Включить новые строки и столбцы в таблицу»