Visual Basic 6 - Creazione di un componente aggiuntivo di automazione per funzioni di foglio di Excel

Buongiorno a tutti
Sto cercando di creare un automatismo seguendo la guida:support.microsoft.com/kb/…

ho fatto tutto alla lettera ma quando vado su excell ad installare la dll non me la fa aggiungere.
Qualcuno di voi ha avuto mai un problema simile?

Foglio crearla così da visual basic voglio aprire un file excel .csv e salvarlo in . xls

Grazie

Ma quel documento non c'entra ...

Devi aggiungere un riferimento alla libreria (Riferimenti) e creare un oggetto Application.

E dopo lo utilizzi (apri il file, lo "salvi come" ... ecc ...)

ho seguito il tuo consiglio
ho trovato quest' altra guida: support.microsoft.com/kb/…
è sono riuscito ad arrivare a questo punto,

cioè apro il mio foglio salvato su c: in .csv ma non riesco a salvarlo in .xls

accidenti .....

Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Const SW_SHOWNORMAL = 1
ShellExecute Me.hwnd, vbNullString, "C:\Enalottotto.exe", vbNullString, "C:\Enalotto.xls", SW_SHOWNORMAL

End Sub

Private Sub Command2_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

Set oXL = CreateObject("Excel.Application"
oXL.Visible = True
' Get a new workbook.
' così visualizzo il file enalotto.csv
Set oWB = oXL.Workbooks.Open("C:\Enalotto.csv"
Set oSheet = oWB.ActiveSheet

'così mi apre un nuovo foglio
' Set xlBook = oXL.Workbooks.Add
' Set xlSheet = xlBook.ActiveSheet

Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical, "Error: " & Err.Number

End Sub

dimenticavo il botton 1 serve per estrarre il file zippato

Adesso non posso provare, ma devi usare la SaveAs ... questo è un vecchio esempio da cui puoi prendere spunto (non ho provato se funziona o no ... devi esaminarlo ...)

Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.Application")

xlApp.Workbooks.OpenText "C:\Test.csv", , , xlDelimited, xlTextQualifierNone,
False, False, False, True

'Do some housekeeping...
xlApp.Selection.CurrentRegion.Columns.AutoFit
xlApp.Selection.CurrentRegion.Rows.AutoFit
xlApp.ActiveWorkbook.SaveAs "C:\Testing123.xls", xlWorkbookNormal
xlApp.ActiveWorkbook.Saved = True
xlApp.Quit

Set xlApp = Nothing

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

Set oXL = CreateObject("Excel.Application"
oXL.Visible = True
' Get a new workbook.
' così visualizzo il file enalotto.csv
Set oWB = oXL.Workbooks.Open("C:\Enalotto.csv"
Set oSheet = oWB.ActiveSheet

'così mi apre un nuovo foglio
' Set xlBook = oXL.Workbooks.Add
' Set xlSheet = xlBook.ActiveSheet

Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical, "Error: " & Err.Number

C' ho ancora un problema. come mai se apro il file enalotto direttamente da c: mi mette giustamente ogni riga e colonna nella sua cella specifica, invece se uso questo listato mi mette tutto nella cesella A1 a2 a3 a4 ecc anche il contenuto delle celle a2 a3 a4 a5 a6 ecc separate dalle virgole.
Ho provato con FileFormat xlexcel2 xlExcel4 xlExcel9597 ma niente Io ho il 2002

e poi ho provato il tuo esempio Saveas ma sembra non funzionare o meglio me lo salva ma sempre in csv ma con .xls