19 июн. 2013 г.

Вывод из Excel в файл

Любят бухгалтера все делать в Excel.А Диасофт 4х4 грузит из текстовых файлов.
Const BASE = 9000

Sub Макрос1()
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\clients.txt", 2, 8)

    i = 1
    Do
        If Cells(i, 1).Value = "" Then
            Exit Do
        End If
        f.WriteLine ("%КЛИЕНТ")
        f.WriteLine ("ИМЯ1      :" + Mid(Cells(i, 1).Value, 1, 40))
        f.WriteLine ("ИМЯ2      :" + Mid(Cells(i, 1).Value, 41, 40))
        f.WriteLine ("ИМЯ3      :" + Mid(Cells(i, 1).Value, 81, 40))
        f.WriteLine ("ИМЯ4      :" + Mid(Cells(i, 1).Value, 121, 40))
        f.WriteLine ("ТИП       :Ю")
        f.WriteLine ("АДРЕС1    :")
        f.WriteLine ("АДРЕС2    :")
        f.WriteLine ("ТЕЛЕФОН1  :")
        f.WriteLine ("ТЕЛЕФОН2  :")
        f.WriteLine ("КОД       :" + Trim(Str(i + BASE)))
        f.WriteLine ("ИНН       :" + Trim(Str(Cells(i, 2).Value)))
        f.WriteLine ("КПП       :" + Trim(Str(Cells(i, 3).Value)))
        f.WriteLine ("ГРУППА    :Юридические лица")
        f.WriteLine ("ДЕЙСТВИЕ  :Add")
        f.WriteLine ("%END")
        i = i + 1
    Loop
    f.Close
End

End Sub