Макрос Excel для копирования файлов CSV - PullRequest
0 голосов
/ 18 июня 2020

Привет, я пытаюсь скопировать данные из файлов csv из папки на 1 лист Excel ... часть моего кода приведена ниже. Я хотел бы знать, почему данные копируются из второй строки, а не из первой.

With Worksheets(ActiveSheet.Name)
            'MsgBox (MyFile)
            Rws = .Cells(Rows.Count, "A").End(xlUp).Row
            Set Rng = Range(.Cells(1, 1), .Cells(Rws, 100))
            'MsgBox (Wb.Worksheets("Sheet1").Rows.Count())
            Rng.Copy Wb.Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            ActiveWorkbook.Close True
        End With
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...