Код |
---|
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 |
Вопрос по макросу
27.07.2018 07:46:22
макрос копирует листы, но ничего не делает с ячейками какой тип-то открываемых файлов? не текстовой случайно? |
|||
|
|
27.07.2018 07:49:39
тип данных csv в файле таблица как сделать чтоб создавал точно такое же расположение столбцов и строк
Строки он преносит нормально а вот все столбцы перносит в один столбец A Через точку с запятой в исходном файле ячейка A1компьютер, ячейка B1 дата проверки, при переносе создаеться лист в котором ячейка А1 копьютер;дата проверки, В1 пусто
Изменено: |
|
|
|
27.07.2018 08:19:21
Ознакомьтесь, пожалуйста, с правилами форума. Вы их должны были прочитать при регистрации.
Название темы. Об отображаемом имени - и в правилах, и в личке... |
||||
|
|
|||