Запись данных в закрытую книгу

[FormAlDeGid]

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

[Pavel55]

открыть книгу для записи всё равно придётся )

1. Открываете книгу
2. дописываете данные с перерывом в одну строку
3. сохраняете и закрываете файл

[FormAlDeGid]

так я каждый день делаю =)
хочется автоматизации процесса

[Dophin]

хочется пример увидеть

[FormAlDeGid]

Эти строки надо вставить в другую книгу. исключая строку заголовков.

[0mega]

если не трудно - продублируйте в ZIPe

[KOSTIK1]

Уважаемый 0mega могу предложить такой RAR который не требует инсталляции.
Сохраните его в программах и запустите, и не видать вам проблем с "разрариванием"

[0mega]

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

Уважаемый 0mega могу предложить такой RAR который не требует инсталляции.

За предложенье - благодарен,
Поклон примите до земли.
Вас огорчить боюсь, приятель...
Для MAC-a rar, а не WIN-ды

[Pavel55]

Встройте этот макрос в тот файл, куда нужно копировать данные (т.е. основной файл, не CSV) и запускайте этот макрос на том листе, куда нужно вставить данные из файла CSV

Sub GetInfoFromCSVFile()
Dim FD As FileDialog, iFullFileName As String, SourceSheet As Worksheet
Dim iThisSheet As Worksheet, iNewName As String

    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Filters.Clear
        .Filters.Add "Текстовые файлы ", "*.txt; *.csv"
        .Filters.Add "Файлы Microsoft Excel", "*.xl*"
        .Filters.Add "Все файлы", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        .Title = "Открытие документа"
        .ButtonName = "Открыть"
        If .Show = False Then
            MsgBox "Вы не указали нужный файл!", 48, "Ошибка"
            Exit Sub
        Else
            iFullFileName = .SelectedItems(1)
        End If
    End With
    Set FD = Nothing
    Set iThisSheet = ActiveSheet
    iNewName = Left(iFullFileName, Len(iFullFileName) - 3) & "txt"
    Name iFullFileName As iNewName
    Application.ScreenUpdating = False
    Workbooks.OpenText Filename:=iNewName, StartRow:=2, DataType:=xlDelimited, Semicolon:=True
    Set SourceSheet = ActiveSheet
    With iThisSheet
        SourceSheet.UsedRange.Copy .Cells(.UsedRange.Rows.Count + 1 + .UsedRange.Row, "A")
    End With
    ActiveWorkbook.Close SaveChanges:=False
    Name iNewName As iFullFileName
    Application.ScreenUpdating = True
    MsgBox "Данные из файла " & iFullFileName & " скопированны!", 64, ""
    'если нужно удалить файл CSV, то
    'Kill iFullFileName
End Sub

[FormAlDeGid]

Pavel55
макрос копирует данные сам в себя...не из указанного файла а из самого себя. сейчас в книге почти 10000 записей а он делает 37000 , по всей видимости копирует неоднократно.
И еще. дело в том что перед тем как занести данные в итоговую таблицу я форматирую исходный файл (привожу в должный вид) то есть мне все равно приходится открывать два файла.

0mega
для Вас ZIP