Собрать несколько dbf в один Эксель файл.

[Djeki]

Спасибо SAS888 за отличный макрос.

[dredy_mar]

Добрый день, отличный макрос.
А возможно такое, чтобы объединить информацию из файлов ".xls" в один фаил exel. Помогите, кто может.
В приложении файлы для объединения.

[xamillion]

Сообщение от dredy_mar

Добрый день, отличный макрос.
А возможно такое, чтобы объединить информацию из файлов ".xls" в один фаил exel. Помогите, кто может.
В приложении файлы для объединения.

Да точно так же, с небольшим изменением...

Sub XLS()

    Dim myPath As String, myName As String, Wb As Workbook
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите рабочую папку"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        myPath = .SelectedItems(1) & Application.PathSeparator
    End With
    
    myName = Dir(myPath & "*.xls")
    With ThisWorkbook.Sheets(1)
        Do While myName <> ""
            Set Wb = Workbooks.Open(Filename:=myPath & myName)
            ActiveSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + .UsedRange.Row, "A")
            Wb.Close SaveChanges:=False
            myName = Dir
        Loop
    End With
    
End Sub

[boyzik]

Макрос просто класс, а можно ли сделать так чтобы он из дбф не все столбцы брал а только определенные?

[SAS888]

Можно. Нужно знать, какие столбцы требуются и куда их нужно вставлять. Т.е. с Вас конкретно сформулированная задача. А еще лучше, пример исходного dbf-файла (файлов) и того файла, который требуется получить.

[boyzik]

Вставляться должно по порядку DOCNUM/DATENUM/NAME/SERIA/SROK/IZG/STRANA
И еще одно, можно сделать так чтобы 1-я строка с названием столбцов, вставлялась только 1 раз, т.е. пример: файл макрос пустой пришли файлы дбф от туда мы перекинули нужные значения, на следующий день пришли файлы дбф тоже перекинули в файл макрос и они добавились к предыдущим значениям, но уже без названия столбцов, т.к. названия столбцов мы внесли в файл макрос ранее.

[doober]

Желания исполнены.
Юзайте кнопку.

[SAS888]

Посмотрите еще другой вариант. По-моему, проще.
Сделал так, что обрабатываются все dbf-файлы, имеющиеся в выбранной папке. Можно сделать выбор пользователем только требуемых файлов. Но, это уже детали...

[boyzik]

сборщик 2 ошибку выдает 1004, и создает др. файл куда все сзаносит строки с столбцы(просто копирует)

[boyzik]

А так просто класс... ты гений!!!