dotNETportal.cz

Zdravime Vas vsechny visualbasicove nadsence :)

potrebovaly bychom vytvorit macro, do openoffice db, pro export do xls, csv, nebo klidne i do txt (oddelene carkou, ci strednikem)

je to pro nas velmi dulezite, ale tomuto programovacimu jazyku zcela nerozumime :) daly jsme dohromady pouze toto a ke vsemu je to jeste z netu a vuubec nevime, jestly je to ok:

Private Sub Command1_Click()

Set xl = CreateObject("excel.Application")

xl.Workbooks.Open ("C:\my documents\JAN.MUCHA\Plocha\fresh.xls") ' substitute your file here

xl.Visible = True

'do any operation here

End Sub

Private Sub Command2_Click()

ActiveWorkbook.Save

xl.Application.Quit

Set xl = Nothing

Unload Me

End Sub

potrebujeme macro spustit v openoffice db (soubor.odb)

predem mooc diky!!!!