Developing.ru

Код: Выделить всё

Sub Create_report()
Const sName$ = "C:\Книга", sExt$ = ".csv", sDataFormat$ = "YYYYMMDDhhmm"
Dim sFile$
sFile = sName & Format(Now, sDataFormat) & sExt
    Range("A:A,C:C,D :D ,H:H,I:I,J:J").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:=sFile, FileFormat:=xlText
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
    convertCSV sFile
    Workbooks.Open Filename:=sFile
End Sub

Function convertCSV(sFile$)
...
s = Replace(s, Chr(9), Chr(59))
...
End Function

Код: Выделить всё

..............................
On Error Resume Next
f = FreeFile
Open sFile For Binary As #f
If Err.Number <> 0 Then
'Сигнализируем об ошибке (если надо)
Exit Sub
End If
sВесьФайл = String(LOF(f), Chr(0))
Get #f, , sВесьФайл
Close #f
.......

Код: Выделить всё

Public Function ReadWholeFile(sFile As String) As String
    Dim f As Integer
    Dim sВесьФайл As String
    On Error Resume Next
    f = FreeFile
    Open sFile For Binary As #f
    If Err.Number <> 0 Then
        ReadWholeFile = vbNullString
        Exit Function
    End If
    ReadWholeFile = String(LOF(f), Chr(0))
    Get #f, , ReadWholeFile
    Close #f
End Function