Страницы: 1
RSS
Вопрос по макросу
 
Код
CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer
 
    Application.ScreenUpdating = False  'отключаем обновление экрана для скорости
     
    'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")
 
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
     
    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        Sheets().Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        importWB.Close savechanges:=False
        x = x + 1
    Wend
 
    Application.ScreenUpdating = True
End Sub
макрос переносит все ячейки в одну (Компьютер;Дата проверки) строки переносит нормальнов а все столбцы переносить только в столбец A исходном файле это разные ячейки как сделать чтоб он переносил таблицу так как она есть
 
Цитата
макрос переносит все ячейки в одну
Откуда такая убеждённость?
макрос копирует листы, но ничего не делает с ячейками
какой тип-то открываемых файлов? не текстовой случайно?
 
тип данных csv в файле таблица как сделать чтоб создавал точно такое же расположение столбцов и строк
Строки он преносит нормально а вот все столбцы перносит в один столбец A Через точку с запятой в исходном файле ячейка A1компьютер, ячейка B1 дата проверки,
при переносе создаеться лист в котором ячейка А1 копьютер;дата проверки, В1 пусто
Изменено: ot5een - 27.07.2018 07:55:43
 
Ознакомьтесь, пожалуйста, с правилами форума. Вы их должны были прочитать при регистрации.
Название темы. Об отображаемом имени - и в правилах, и в личке...
Страницы: 1
Наверх