Имя: Пароль:
1C
1С v8
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
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
(9) а эта тема самая похожая :))
автор жжет!

v8: Загрузка ёкселя
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
ОффПланктон покинул нас.