Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/100: Рейтинг темы: голосов - 100, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 06.12.2011
Сообщений: 9
1

Собрать данные из нескольких документов в один

12.12.2012, 16:39. Показов 18901. Ответов 17
Метки нет (Все метки)

Доброго времени суток, я сам начинающий, и у меня вопрос, как сделать обработку, например бат файл, чтобы он собирал все файлы в один, или указываешь на какой то определенный каталог(папку) и он берет из нее EXCEL файлы и собирает в один EXCEL - файл.Заранее спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2012, 16:39
Ответы с готовыми решениями:

Собрать данные из нескольких файлов в один
Добрый день! Уважаемые хакеры нужна ваша помощь. Проблема: есть папка в которой...

Как собрать данные из нескольких файлов в один
Доброго времяни суток! Помогите плиз Ламеру, сломал голову. Есть задача собрать данные (2 столбца)...

Собрать данные из нескольких листов Excel на один лист
Добрый день! Подскажите как решить следующую задачку: Нужно собрать данные с листов Эксель,...

Объединение нескольких документов в один
Приветствую. Нашел код который объединяет все документы в один файл. Каким образом сохранить...

17
5462 / 1142 / 50
Регистрация: 15.09.2012
Сообщений: 3,450
12.12.2012, 17:06 2
Новичёк1000000, сначала нужно уточнить:
  1. или в самом коде или с помощью диалогового окна вы указываете, из какой папки обрабатывать книги Excel. Нужно учесть: обрабатывать книги во вложенных папках или нет;
  2. как вы собираетесь добавлять данные в книгу-сборник - просто данные заносить на лист или листы переносить.
0
0 / 0 / 0
Регистрация: 06.12.2011
Сообщений: 9
13.12.2012, 09:34  [ТС] 3
Скрипт, я думаю макрос с этим справится, если его написать на VBA, похожий нашел, но необходимо немного изменить под требования
1. все файлы собираться должны на одном листе (а не добавлять листы в книгу)
2. копирование записей должно начинаться с 2-ой строчки (не добавлять шапку при многократном переносе информации)
3. желательно кнопку вывести для того чтобы (этот факт не важен)
можете подсказать как, или описать(выложить) готовый пример...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

(она работает, только листы добавляет, а надо чтобы все в один писала)
0
15037 / 6361 / 1726
Регистрация: 24.09.2011
Сообщений: 9,971
14.12.2012, 10:05 4
Приведу свой код 2007 года с другого форума.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub FiziK()
 
Const strStartDir = "c:\test" 'папка, с которой начать обзор файлов
Const strSaveDir = "c:\test\result" 'папка, в которую будет предложено сохранить результат
Const blInsertNames = True  'вставлять строку заголовка (книга, лист) перед содержимым листа
 
Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
    i As Integer, stbar As Boolean, clTarget As Range
 
On Error Resume Next    'если указанный путь не существует, обзор начнется с пути по умолчанию
ChDir strStartDir
On Error GoTo 0
With Application    'меньше писанины
arFiles = .GetOpenFilename("Excel Files (*.xls), *.xls", , "Объединить файлы", , True)
If Not IsArray(arFiles) Then End 'если не выбрано ни одного файла
Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
    .ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
 
For i = 1 To UBound(arFiles)
    .StatusBar = "Обработка файла " & i & " из " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), ReadOnly:=True)
    For Each shSrc In wbSrc.Worksheets
        If IsNull(shSrc.UsedRange.Text) Then 'лист не пустой
            Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
                clTarget = ">>> " & wbSrc.Name & " -- " & shSrc.Name
                Set clTarget = clTarget.Offset(1, 0)
            End If
            shSrc.UsedRange.Copy clTarget
        End If
    Next
    wbSrc.Close False   'закрыть без запроса на сохранение
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
 
On Error Resume Next    'если указанный путь не существует и его не удается создать,
                        'обзор начнется с последней использованной папки
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
arFiles = .GetSaveAsFilename("Результат", "Excel Files (*.xls), *.xls", , "Сохранить объединенную книгу")
 
If VarType(arFiles) = vbBoolean Then 'если не выбрано имя
    GoTo save_err
Else
    On Error GoTo save_err
    wbTarget.SaveAs arFiles
End If
End
save_err:
    MsgBox "Книга не сохранена!", vbCritical
End With
End Sub
1
0 / 0 / 0
Регистрация: 21.01.2013
Сообщений: 5
15.05.2013, 14:53 5
Добавлено через 1 минуту
Казанский,

А если необходимо объединить два и более текстовых документа doc в один конечный doc. Эту процедуру запускать из БД access в форме по нажатию кнопки. Пути нахождения документов известны. Конечный документ создается или можно в ранее созданный документ.
Как то я встретил макрос по объединению, но он нарушал структуру содержимого документа. Как исправить так и не разобрался.
0
259 / 7 / 1
Регистрация: 22.01.2013
Сообщений: 47
15.05.2013, 21:04 6
я пользуюсь прикреплённым макросом.
но нашёл ещё
2.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Собираем_диапазоны_выбранных_книг_и_всех_листов()
    
    Dim iRng As Range
    Dim iRngAddress As String, oAwb As String, oFile
    Dim lLastRow As Long, lLastRowMyBook As Long
    Dim iLastColumn As Integer
    Dim Str() As String
     
     
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .InitialFileName = "*.*"
        .Title = "Выберите файлы"
    If .Show = False Then Exit Sub
    For Each oFile In .SelectedItems
        Workbooks.OpenText fileName:=oFile
        oAwb = Dir(oFile, vbDirectory)
     
        Application.ScreenUpdating = False
        Workbooks(oAwb).Activate
    For Each Sheet In Sheets
        Sheet.Activate
        lLastRow = Cells(1, 1).SpecialCells(xlLastCell).Row
        iLastColumn = Cells(1, 1).SpecialCells(xlLastCell).Column
        lLastRowMyBook = ThisWorkbook.Worksheets(1).Cells(100, 1).SpecialCells(xlLastCell).Row
        iRngAddress = Range(Cells(lLastRowMyBook, 1), Cells(lLastRowMyBook + lLastRow, iLastColumn)).Address
        Sheet.Range(Cells(1, 1), Cells(lLastRow, iLastColumn)).Copy Destination:=ThisWorkbook.Worksheets(1).Range(iRngAddress)
         
    Next Sheet
        Workbooks(oAwb).Close False
    Next oFile
     
    End With
     
    Application.ScreenUpdating = True
End Sub
Вложения
Тип файла: xls Tips_Macro_Consolidated.xls (49.0 Кб, 296 просмотров)
2
4 / 4 / 0
Регистрация: 18.07.2014
Сообщений: 14
18.07.2014, 14:50 7
Добрый день! Могли бы подсказать, а есть ли аналогичный макрос, только для документов Word, а именно: есть папка с документами, в открытый документ скопировать надпись или строку таблицы из всех документов в этой папке (желательно не открывая документы в папке). Спасибо!
0
0 / 0 / 0
Регистрация: 23.11.2013
Сообщений: 3
15.11.2014, 17:28 8
Здравствуйте!
Столкнулся с проблемой сбора данных с текстовых файлов в книгу Excel.
С всех текстовых файлов в папке нужно, начиная с третьей строки и вниз, перенести в книгу Excel в столбец "А"; затем информацию со второй строки текстовых файлов поместить напротив значений в столбце "А".
Примеры текстовых файлов и шаблон книги Excel в приложении.

Очень прошу помочь.
Вложения
Тип файла: 7z Стелажность.7z (6.2 Кб, 19 просмотров)
0
0 / 0 / 0
Регистрация: 13.11.2014
Сообщений: 13
25.03.2015, 13:01 9
Всем Доброго дня,
У меня несколько сложнее задача,
Мне нужно скопировать из разных файлов в один. Проблема в том что файлы не идентичные.
Файл не до конца корректен.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub ww()
Const strStartDir = "C:\Users\tt\Desktop"
Const strSaveDir = "C:\Users\tt\Desktop"
Const blInsertNames = True
Dim a As Integer
Dim b As Integer
 
Dim r As String
r = InputBox("111", "aa")
 
Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
    i As Integer, stbar As Boolean, clTarget As Range
On Error Resume Next
ChDir strStartDir
On Error GoTo 0
With Application
arFiles = .GetOpenFilename(FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")
If Not IsArray(arFiles) Then End
Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
.ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
    
For i = 1 To UBound(arFiles)
    .StatusBar = "12 " & i & " ?? " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), ReadOnly:=True)
    For Each shSrc In wbSrc.Worksheets
If IsNull(shSrc.UsedRange.Text) Then
Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
clTarget = "" & wbSrc.Name & " -- " & shSrc.Name
                Set clTarget = clTarget.Offset(0, 1)
            End If
            Cells.Find(What:=r, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        a = ActiveCell.Row
        b = ActiveCell.Column
        
            shSrc.Range(a, b).Copy clTarget
        End If
    Next
    wbSrc.Close False
    
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
On Error Resume Next
 
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
arFiles = .GetSaveAsFilename("name", "Excel Files (*.xls), *.xls", , "aasd")
End With
End Sub
0
6856 / 2791 / 529
Регистрация: 19.10.2012
Сообщений: 8,520
25.03.2015, 13:12 10
Определяете в чём эта неидентичность и как её кодом опознать, для каждой пишите свой вариант обработки.
0
0 / 0 / 0
Регистрация: 13.11.2014
Сообщений: 13
25.03.2015, 14:43 11
В ексель файлах информация находится не одинакова в одних и тех же ячейках, могуть быть выше на строчку, или ниже
Заранее благодарю
0
6856 / 2791 / 529
Регистрация: 19.10.2012
Сообщений: 8,520
25.03.2015, 16:30 12
И чем этот код не годится? Только не повторяйтесь
0
0 / 0 / 0
Регистрация: 13.11.2014
Сообщений: 13
25.03.2015, 16:43 13
Друзья,
Я разобрался сам. Выкладываю вам мою версию

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub ww()
Const strStartDir = "C:\Users\Desktop"
Const strSaveDir = "C:\Users\Desktop"
Const blInsertNames = True
Dim r As String
r = InputBox("Data", "Inputs")
 
Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
    i As Integer, stbar As Boolean, clTarget As Range
On Error Resume Next
ChDir strStartDir
On Error GoTo 0
With Application
arFiles = .GetOpenFilename(FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")
If Not IsArray(arFiles) Then End
Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
.ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
    
For i = 1 To UBound(arFiles)
    .StatusBar = "12 " & i & " ?? " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), ReadOnly:=True)
    For Each shSrc In wbSrc.Worksheets
    
 
    
If IsNull(shSrc.UsedRange.Text) Then
Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
            Cells.Find(What:=r, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
a = ActiveCell.Row
b = ActiveCell.Column
clTarget = "" & wbSrc.Name
                Set clTarget = clTarget.Offset(0, 1)
            End If
            shSrc.Cells(a, b + 1).Copy clTarget
            
        End If
    Next
    wbSrc.Close False
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
On Error Resume Next
 
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
arFiles = .GetSaveAsFilename("name", "Excel Files (*.xls), *.xls", , "????????? ???????????? ?????")
 
If VarType(arFiles) = vbBoolean Then
GoTo save_err
Else
    On Error GoTo save_err
    wbTarget.SaveAs arFiles
End If
End
save_err:
    MsgBox "Not saved", vbCritical
End With
 
End Sub
0
7 / 7 / 4
Регистрация: 05.04.2012
Сообщений: 143
02.08.2019, 21:08 14
Цитата Сообщение от Казанский Посмотреть сообщение
Приведу свой код 2007 года с другого форума.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub FiziK()
 
Const strStartDir = "c:\test" 'папка, с которой начать обзор файлов
Const strSaveDir = "c:\test\result" 'папка, в которую будет предложено сохранить результат
Const blInsertNames = True  'вставлять строку заголовка (книга, лист) перед содержимым листа
 
Dim wbTarget As New Workbook, wbSrc As Workbook, shSrc As Worksheet, shTarget As Worksheet, arFiles, _
    i As Integer, stbar As Boolean, clTarget As Range
 
On Error Resume Next    'если указанный путь не существует, обзор начнется с пути по умолчанию
ChDir strStartDir
On Error GoTo 0
With Application    'меньше писанины
arFiles = .GetOpenFilename("Excel Files (*.xls), *.xls", , "Объединить файлы", , True)
If Not IsArray(arFiles) Then End 'если не выбрано ни одного файла
Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
    .ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
 
For i = 1 To UBound(arFiles)
    .StatusBar = "Обработка файла " & i & " из " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), ReadOnly:=True)
    For Each shSrc In wbSrc.Worksheets
        If IsNull(shSrc.UsedRange.Text) Then 'лист не пустой
            Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
                clTarget = ">>> " & wbSrc.Name & " -- " & shSrc.Name
                Set clTarget = clTarget.Offset(1, 0)
            End If
            shSrc.UsedRange.Copy clTarget
        End If
    Next
    wbSrc.Close False   'закрыть без запроса на сохранение
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
 
On Error Resume Next    'если указанный путь не существует и его не удается создать,
                        'обзор начнется с последней использованной папки
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
arFiles = .GetSaveAsFilename("Результат", "Excel Files (*.xls), *.xls", , "Сохранить объединенную книгу")
 
If VarType(arFiles) = vbBoolean Then 'если не выбрано имя
    GoTo save_err
Else
    On Error GoTo save_err
    wbTarget.SaveAs arFiles
End If
End
save_err:
    MsgBox "Книга не сохранена!", vbCritical
End With
End Sub
Код отличный,если Запустить в Visual Basic из под Excel,то всё работает,но когда сохраняю в notepad++ в .vbs выдаёт ошибку:
Миниатюры
Собрать данные из нескольких документов в один  
0
6856 / 2791 / 529
Регистрация: 19.10.2012
Сообщений: 8,520
02.08.2019, 23:40 15
Насколько помню - в vbs нет типов переменных.
0
7 / 7 / 4
Регистрация: 05.04.2012
Сообщений: 143
03.08.2019, 00:15 16
Цитата Сообщение от Hugo121 Посмотреть сообщение
Насколько помню - в vbs нет типов переменных.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub FiziK()
 
Const strStartDir = "C:\Users\Burnoutman\Desktop\XLSX"
Const strSaveDir = "C:\Users\Burnoutman\Desktop\XLSX"
Const blInsertNames = True
 
Dim wbTarget, wbSrc, shSrc, shTarget, arFiles,i, stbar, clTarget
 
On Error Resume Next    'если указанный путь не существует, обзор начнется с пути по умолчанию
ChDir strStartDir
On Error GoTo 0
With Application    'меньше писанины
arFiles = .GetOpenFilename("Excel Files (*.xls), *.xls", , "Объединить файлы", , True)
If Not IsArray(arFiles) Then End 'если не выбрано ни одного файла
Set wbTarget = Workbooks.Add(template:=xlWorksheet)
Set shTarget = wbTarget.Sheets(1)
    .ScreenUpdating = False
    stbar = .DisplayStatusBar
    .DisplayStatusBar = True
 
For i = 1 To UBound(arFiles)
    .StatusBar = "Обработка файла " & i & " из " & UBound(arFiles)
    Set wbSrc = Workbooks.Open(arFiles(i), ReadOnly:=True)
    For Each shSrc In wbSrc.Worksheets
        If IsNull(shSrc.UsedRange.Text) Then 'лист не пустой
            Set clTarget = shTarget.Range("A1").Offset(shTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 0)
            If blInsertNames Then
                clTarget = ">>> " & wbSrc.Name & " -- " & shSrc.Name
                Set clTarget = clTarget.Offset(1, 0)
            End If
            shSrc.UsedRange.Copy clTarget
        End If
    Next
    wbSrc.Close False   'закрыть без запроса на сохранение
Next
    .ScreenUpdating = True
    .DisplayStatusBar = stbar
    .StatusBar = False
 
On Error Resume Next    'если указанный путь не существует и его не удается создать,
                        'обзор начнется с последней использованной папки
If Dir(strSaveDir, vbDirectory) = Empty Then MkDir strSaveDir
ChDir strSaveDir
On Error GoTo 0
arFiles = .GetSaveAsFilename("Результат", "Excel Files (*.xls), *.xls", , "Сохранить объединенную книгу")
 
If VarType(arFiles) = vbBoolean Then 'если не выбрано имя
    GoTo save_err
Else
    On Error GoTo save_err
    wbTarget.SaveAs arFiles
End If
End
save_err:
    MsgBox "Книга не сохранена!", vbCritical
End With
End Sub
Строка:14
Символ:30
Ошибка:Предполагается наличие инструкции.
0
7 / 7 / 4
Регистрация: 05.04.2012
Сообщений: 143
03.08.2019, 09:10 17
Пофиг на этот vbs. Как изменить код так, чтобы информация сохранялась в этот же файл excel из которого запускается макрос, а не предлагала сохранить в новый?
0
6856 / 2791 / 529
Регистрация: 19.10.2012
Сообщений: 8,520
03.08.2019, 20:08 18
строка 15:
Visual Basic
1
Set wbTarget = thisworkbook
Ну и после строки 44 до строки 56 всё удалить. Можно дописать сохранение wbTarget, а можно и не дописывать. сохранить вручную если нужно.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.08.2019, 20:08

Извлечь оглавления из нескольких документов в один новый
Срочно нужна помощь. Есть макрос который извлекает оглавления из нескольких документов в один...

Макрос, который извлекает оглавление из нескольких документов, и помещает их в один новый документ
Здравствуйте, помогите написать макрос, который будет извлекать оглавление из нескольких документов...

Создать макрос, который извлекает оглавление из нескольких документов и помещает их в один новый документ
Добрый день. Продолжаю обучаться VBA и сейчас у меня вот такие сложности, надеюсь на вашу помощь....

Собрать данные из нескольких ячеек в одну
Доброго Вечера Всем! Уважаемые форумчане &quot;задача&quot; описана в файле. Спасибо!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
18
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.