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