Открыть csv файл и сохранить в xlsx с помощью vb6

Convert CSV into xlsx via VB6

Public Function ConvertToXlsx(filename As String, to_filename As String)
    Dim objExcel As Object
    Dim objWorkBook As Object
    
    'Instantiate Excel
    Set objExcel = CreateObject("Excel.Application")
    'open the CSV file
    Set objWorkBook = objExcel.Workbooks.Open(filename, , True, 4, , , , , , , , , , True) '= objExcel.Workbooks.Open(filename, , True, 4)
    'Save the file as excel workbook
    objWorkBook.SaveAs to_filename, 51
    
    'close workbook
    objWorkBook.Close False
    'quit excel
    objExcel.Quit
    
    'clean up
    Set objWorkBook = Nothing
    Set objExcel = Nothing
End Function
Запись опубликована в рубрике Программы, скрипты с метками . Добавьте в закладки постоянную ссылку.
Просмотров: 1 020

Добавить комментарий

Ваш e-mail не будет опубликован.

*