Метка: 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

Добавляет вкладки, и чинит скролл в visual basic 6, отчего становится немного удобнее)

Страница дополнения.

Установочный файл (после установки компьютер перезагрузить).

Пример использования связанных переменных в sql-запросе

Dim rs_s As New ADODB.Recordset
Dim cn_s As New ADODB.Connection
Dim cm_s As New ADODB.Command

cm_s.CommandText = "select * from test where id=?"
cm_s.Prepared = True
cm_s.Parameters.Append cm_s.CreateParameter("id", adInteger, adParamInput, 8, Null)
cm_s.ActiveConnection = cn_s

cm_s("id") = n_id
rs_s.Open cm_s
'..
rs_s.Close

Так получилось, что я стал связан с программированием на Visual Basic 6 🙂 Буду иногда выкладывать заметки по нему для себя.

Visual Basic 6 (vb6) на Windows7 (32) выдает ошибку при использовании Common Controls.

решение найдено тут: http://clubs.ya.ru/4611686018427472918/45

Для 32-разрядных систем, берём файл отсюда c:\Windows\Microsoft.NET\Framework\v4.0.30319\regtlibv12.exe и копируем его в папку C:\Windows\System32\.

Затем через командную строку вводим:

cd C:\Windows\System32
regtlibv12 C:\Windows\System32\msdatsrc.tlb
regtlibv12 C:\Windows\System32\mscomctl.ocx

И все должно заработать.