https://bugs.winehq.org/show_bug.cgi?id=41981
Bug ID: 41981 Summary: export to excel in vb6 show error Product: WineHQ.org Version: unspecified Hardware: x86 OS: Linux Status: UNCONFIRMED Severity: normal Priority: P2 Component: www-unknown Assignee: wine-bugs@winehq.org Reporter: lokesh.bhandari@enjayworld.com Distribution: ---
export to excel in vb6 show below error. I have already install wps office 2016. In windows it is open but in wine it show error.
err:ole:CoGetClassObject class {00024500-0000-0000-c000-000000000046} not registered err:ole:create_server class {00024500-0000-0000-c000-000000000046} not registered err:ole:CoGetClassObject no class object {00024500-0000-0000-c000-000000000046} could be created for context 0x5
https://bugs.winehq.org/show_bug.cgi?id=41981
--- Comment #1 from Nikolay Sivov bunglehead@gmail.com --- You have to share more if you want any feedback:
- download link to WPS Office; - your vb6 program; - instructions how to use it.
Are you sure WPS Office is supposed to support MS Office COM objects? E.g. does it register itself as MS Office on Windows?
https://bugs.winehq.org/show_bug.cgi?id=41981
Nikolay Sivov bunglehead@gmail.com changed:
What |Removed |Added ---------------------------------------------------------------------------- Product|WineHQ.org |Wine Component|www-unknown |-unknown
https://bugs.winehq.org/show_bug.cgi?id=41981
--- Comment #2 from Lokesh Bhandari lokesh.bhandari@enjayworld.com --- I have installed vb6run vbrun6 jet40 msscript component and download chinese wps office
download link for vb6 application is
piracyfreeos.org/partner/down.php
WPS office download link
http://wdl1.cache.wps.cn/wps/download/W.P.S.4994.19.552.exe
https://bugs.winehq.org/show_bug.cgi?id=41981
--- Comment #3 from Lokesh Bhandari lokesh.bhandari@enjayworld.com --- please any body reply me
https://bugs.winehq.org/show_bug.cgi?id=41981
--- Comment #4 from Lokesh Bhandari lokesh.bhandari@enjayworld.com --- I have given download link. Somebody has tried this?
https://bugs.winehq.org/show_bug.cgi?id=41981
--- Comment #5 from Lokesh Bhandari lokesh.bhandari@enjayworld.com --- I have also tried this in wine-2.0-rc1 (Staging). But same problem faced. Excel.Application can not create object. code for vb6 is also given here piracyfreeos.org/partner/down.php
https://bugs.winehq.org/show_bug.cgi?id=41981
Anastasius Focht focht@gmx.net changed:
What |Removed |Added ---------------------------------------------------------------------------- URL| |http://wdl1.cache.wps.cn/wp | |s/download/W.P.S.4994.19.55 | |2.exe Status|UNCONFIRMED |RESOLVED Resolution|--- |INVALID Version|unspecified |2.0-rc1 CC| |focht@gmx.net Keywords| |download Summary|export to excel in vb6 show |Custom VB6 application |error |can't use Excel VBA Object | |model with WPS Office | |(ProgID 'Excel.Application' | |reserved for MS Office | |product)
--- Comment #6 from Anastasius Focht focht@gmx.net --- Hello Lokesh,
Nikolay already asked the right question: How compatible is Kingsoft Office/WPS Office on the Excel VBA Object model as compared to the original Microsoft Office products? Do they register all COM classes with the same ProgIDs/CLSIDs as Microsoft and implement all the objects functionality?
'Export2Excel.vbp'
--- snip --- Type=Exe Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\system32\scrrun.dll#Microsoft Scripting Runtime Reference=*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library Form=Form_Export2Excel.frm Startup="Form_Export2Excel" ExeName32="Export2Excel.exe" Command32="" Name="Proj_Export2Excel" ... --- snip ---
'Form_Export2Excel.frm':
--- snip --- ... Option Explicit Dim m_Excel As Excel.Application ... Private Function CreateExcelFile() As Boolean On Error GoTo EH Dim FSO As FileSystemObject
Dim FilePath As String CreateExcelFile = False
Set m_Excel = New Excel.Application Set FSO = New FileSystemObject
...
Private Sub ExportData() Dim ExcelWorkSheet As Excel.Worksheet Dim i As Integer, RowNo As Integer, ColNo As Integer
Set ExcelWorkSheet = m_Excel.ActiveWorkbook.ActiveSheet ColNo = 5
RowNo = 1 ExcelWorkSheet.Range("A1", "G1").Merge ExcelWorkSheet.Cells(RowNo, 1).Font.Name = "Times New roman" ExcelWorkSheet.Cells(RowNo, 1).Font.Size = 15 ExcelWorkSheet.Cells(RowNo, 1).HorizontalAlignment = xlCenter ExcelWorkSheet.Range("A1", "G1").ColumnWidth = 20 For i = 1 To 7 ExcelWorkSheet.Cells(RowNo, i).BorderAround 1, xlThin, xlColorIndexAutomatic Next ExcelWorkSheet.Cells(RowNo, 1).Value = "SAMPLE CODE FOR EXPORT TO EXCEL" ... --- snip ---
I've found an older article here:
http://www.binarynow.com/office-suite/kingsoft-office-compatible-with-micros...
--- quote --- Automating Kingsoft Spreadsheets
Before you can use any scripts written for Microsoft Excel, you will need to replace all instances of Excel.Application with et.Application. Copy the below code into a text file named example.vbs. This code will open Kingsoft Spreadsheets, add two rows of data, and save the file to C:\TEMP\example.xls. --- quote ---
They are likely reimplementing the underlying object model but can't re-use/claim the officially assigned ProgIDs/CLSIDs -> won't be legal.
Please research the capabilities of software products more carefully before trying things like this.
Regards
https://bugs.winehq.org/show_bug.cgi?id=41981
Ken Sharp imwellcushtymelike@gmail.com changed:
What |Removed |Added ---------------------------------------------------------------------------- Status|RESOLVED |CLOSED
--- Comment #7 from Ken Sharp imwellcushtymelike@gmail.com --- Closing bugs marked as invalid.
-
wine-bugs＠winehq.org