|   |   | 
| 
 | v8: СоедИнить в один файл | ☑ | ||
|---|---|---|---|---|
| 0
    
        ОффПланктон 07.12.12✎ 13:52 | 
        Имеем выгрузку путей к файлам, находятся они в табличном поле Формы. Пример: 
  C:\Documents and Settings .... .xls C:\Documents and Settings .... .xls C:\Documents and Settings .... .xls необходимо соединить их в один документ. Пример: C:\Documents and Settings .... .xls помогите плиз. | |||
| 1
    
        butterbean 07.12.12✎ 13:53 | 
        что значит "соединить их в один документ"??     | |||
| 2
    
        Нуф-Нуф 07.12.12✎ 13:54 | 
        Файлы.Объединить()     | |||
| 3
    
        НЕА123 07.12.12✎ 13:54 | 
        C:\Documents and Settings  ....  *.xls     | |||
| 4
    
        Fedot200 07.12.12✎ 13:55 | 
        Sub CombineWorkbooks()  
  Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Files to Merge") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "Не выбрано ни одного файла!" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub | |||
| 5
    
        ОффПланктон 07.12.12✎ 13:55 | 
        (1) 
  в один Exel документ, там одинаковые колонки, подходит по смыслу с конкотенацией | |||
| 6
    
        ОффПланктон 07.12.12✎ 13:56 | 
        (4) а на понятном 1С языке?...     | |||
| 7
    
        Пеппи 07.12.12✎ 13:56 | 
        на разные листы?     | |||
| 8
    
        ОффПланктон 07.12.12✎ 13:57 | 
        (7) на один     | |||
| 9
    
        Fedot200 07.12.12✎ 13:58 | 
        вот похожая тема v8: из эксель в 1с 8,2. несколько листов     | |||
| 10
    
        ОффПланктон 07.12.12✎ 13:58 | 
        и как отключить OVR в 1С )     | |||
| 11
    
        rphosts 07.12.12✎ 13:59 | 
        (8) причём величина заголовка(количество строк) в общем случае не известно.... только программно     | |||
| 12
    
        ОффПланктон 07.12.12✎ 13:59 | 
        (9) прикольно     | |||
| 13
    
        zsergey 07.12.12✎ 14:02 | ||||
| 14
    
        Fedot200 07.12.12✎ 14:19 | 
        (13) не подетцки     | |||
| 15
    
        Wobland 07.12.12✎ 14:30 | 
        что, опять???     | |||
| 16
    
        ОффПланктон 07.12.12✎ 14:30 | 
        эт не я =)))     | |||
| 17
    
        Wobland 07.12.12✎ 14:31 | 
        вот тут всё написано: v8: Загрузка ёкселя     | |||
| 18
    
        rotting 07.12.12✎ 14:33 | 
        Ну загрузи все в ТЗ в 1С, а от туда в один файл екселя     | |||
| 19
    
        ОффПланктон 07.12.12✎ 14:38 | 
        (18) согласен с тобой, самый нормальный способ, а как реализовать его?     | |||
| 20
    
        samozvanec 07.12.12✎ 14:39 | 
        (19) писать код     | |||
| 21
    
        Wobland 07.12.12✎ 14:39 | 
        (19) позвать программиста?     | |||
| 22
    
        ОффПланктон 07.12.12✎ 14:40 | 
        (21) вот что ты прикалываешся, вот тебе это надо? а?!     | |||
| 23
    
        Reset 07.12.12✎ 14:41 | 
        (0) Замечу, что пример окуенен(зачеркнуто) недостаточно нагляден     | |||
| 24
    
        Wobland 07.12.12✎ 14:42 | 
        (22) да. какой сегодня день недели?     | |||
| 25
    
        Fedot200 07.12.12✎ 14:43 | 
        (19) см. в (9)     | |||
| 26
    
        cw014 07.12.12✎ 14:44 | 
        Никто внимания не обратил?
  Тему создал ТС, который и создал тему про v8: Загрузка ёкселя | |||
| 27
    
        ОффПланктон 07.12.12✎ 14:44 | 
        (24) вот ты меня честно - БЕСИШ очень!!! не лезь в мои темы плизззззззззззззззззззз!!!!!!!!!!!     | |||
| 28
    
        Fedot200 07.12.12✎ 14:44 | 
        (25) + поправить только не с листов, а новый файл открывать     | |||
| 29
    
        Wobland 07.12.12✎ 14:45 | 
        (27) настойка пустырника укрепит твои силы     | |||
| 30
    
        Fedot200 07.12.12✎ 14:45 | 
        (26) давно обратили в (13)     | |||
| 31
    
        Wobland 07.12.12✎ 14:46 | 
        а вообще, каковы вопросы/речи, такова и моя реакция     | |||
| 32
    
        ОффПланктон 07.12.12✎ 14:46 | 
        (29) а тебе кляп)))     | |||
| 33
    
        Wobland 07.12.12✎ 14:46 | 
        (32) у меня и так одна рука, мне плохо ;)     | |||
| 34
    
        User_Agronom 07.12.12✎ 14:49 | 
        Гм, а если просто перебором?
  Цикл по файлам, дописывать в конец. Или есть некий индекс и нужно некоторые поля суммировать? | |||
| 35
    
        ОффПланктон 07.12.12✎ 14:50 | 
        (33) жаль что есть одна...;)     | |||
| 36
    
        ОффПланктон 07.12.12✎ 14:51 | 
        (34) там пример есть, осталось только собраться и разобраться...     | |||
| 37
    
        ОффПланктон 07.12.12✎ 14:53 | 
        (33) чё молчишь гад?     | |||
| 38
    
        Wobland 07.12.12✎ 14:58 | 
        (37) а больше не петросянится     | |||
| 39
    
        H A D G E H O G s модератор 07.12.12✎ 15:03 | 
        ОффПланктон покинул нас.     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |