|
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
|
ОффПланктон покинул нас.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |