Set WB = Nothing: Set WB = Workbooks.Open(Filename, False, True)
Set ra = sh.Range(sh.Range("a2"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 10)
shd.Range("a" & shd.Rows.Count).End(xlUp).Offset(1).Resize(ra.Rows.Count, ra.Columns.Count).Value = ra.Value
Есть файл csv и строчки из кода Вся строка файла копируется в первый столбец, а при наличии запятой переносится во второй столбец часть строки файла. Нужно поставить разделитель ; Подскажите как?
Вместо метода Workbooks.Open применяйте для текстовых файлов метод Workbooks.OpenText - там есть необходимые Вам параметры. Вернитесь, пожалуйста, к своему сообщению и отформатируйте код с помощью кнопки <...>