我如何解决：在 foxpro 中"OLE error Unknown COM status code"

Question

我有代码

> lc_nmfp = GETFILE()    IF LEN(ALLTRIM(lc_nmfp)) < 1 then   
> MESSAGEBOX("ôàéë íå âûáðàí")    RETURN    endif ln_w =
> GETWORDCOUNT(lc_nmfp,"") lc_nmf = GETWORDNUM(lc_nmfp,ln_w,"") lc_f =
> GETWORDNUM(lc_nmf,1,".") lc_p = "" ln_i = 1    DO while ln_i < ln_w   
> lc_p = ALLTRIM(lc_p)+ALLTRIM(GETWORDNUM(lc_nmfp,ln_i,""))+""    ln_i
> = ln_i+1    ENDDO
> 
> CREATE CURSOR tmp(H Char(12), N char(2)) CREATE CURSOR
> xlsfile(AccountName CHAR(20), TrafficSourceCommunicationName CHAR(20),
> CommunicationScheduledFor CHAR(20), CommunicationStartDate CHAR(20),
> CommunicationTemplate CHAR(20), Fromv CHAR(12), Tov CHAR(12),
> MessageId CHAR(45),   SendAt CHAR(35), CountryPrefix  CHAR(2),
> CountryName CHAR(16), NetworkName CHAR(21), PurchasePrice CHAR(2),
> Statusv CHAR(25), Reason CHAR(25), Action CHAR(25), ErrorGroup
> CHAR(25), ErrorName CHAR(80), DoneAt CHAR(15), Textv CHAR(254),
> MessagesCount CHAR(2), ServiceName CHAR(16), UserName CHAR(19), SeenAt
> CHAR(19), Clicks CHAR(19), PairedMessageId CHAR(19), DataPayload
> CHAR(19))
> 
> IMPORT FROM lc_p+lc_f+".xls" TYPE XL8 SHEET SData
> 
> SELECT H, N FROM viber_exp WHERE VAL(N) = 1
> 
> 
> 
> 
> 
> oleObject=CREATEOBJECT('EXCEL.Application')  
> oleObject.application.Visible= .T.
> 
> 
> nRow=0
> 
> SCAN      nRow=nRow+1     oleObject.Cells(nRow,1).Value=viber_exp.H
> 
> 
>   oleObject.Cells(nRow,2).Value=viber_exp.N
> 
>    ENDSCAN

这是我的代码。在line "oleObject.Cells(nRow,1).Value=viber_exp.H"它返回错误:"OLE错误未知的COM状态码"我做错了什么?

Answer 1

您还没有提供任何单元格。尝试在CreateObject()之后添加oleObject.Workbooks.Add()。除了修复此错误外，这不是将数据传输到Excel()的方式。Value =…).

请使用CopyFromRecordSet或QueryTables。添加-(搜索VFP2Excel函数，为您处理)。

Also import from…XL8也是不应该使用的。检查https://foxite.com/archives/0000153776.htm有一点旧，现在你可以使用CursorAdapter与OleDb或ODBC。即:

Local loAccess As CursorAdapter,;
oConn As ADODB.Connection,;
oRS As ADODB.Recordset, ;
oException As Exception, ;
cConnString As String, ;
lcSheetName
lcDataSource = 'c:myFolerMyFile.xlsx'
lcSheetName = 'Sheet1'
cConnString = ;
'Provider=Microsoft.ACE.OLEDB.12.0;' + ;
'Data Source=' + m.lcDataSource + ';' + ;
'Extended Properties="Excel 12.0;HDR=Yes;IMEX=0"'

* Handle connections - insert connection code
Try
oConn  = Createobject('ADODB.Connection')
oConn.Open(cConnString)
oRS = Createobject("ADODB.Recordset")
*!*   oRS.Datasource.CursorLocation = 3   &&adUseClient
*!*   oRS.Datasource.LockType = 3   &&adLockOptimistic
oRS.ActiveConnection = oConn
oCA=Createobject("CursorAdapter")
oCA.DataSourceType = "ADO"
oCA.FetchAsNeeded = .F.
oCA.Datasource = oRS
oCA.MapBinary = .T.
oCA.MapVarchar = .T.
oCA.Alias = "SampleData"
oCA.SelectCmd = "SELECT * FROM ["+m.lcSheetName+"$]"
If !oCA.CursorFill()
Local array laError[5]
Aerror(laError)
Messagebox(laError[2])
Else
Browse Normal
Endif
Catch To oException
* Replace with exception handling code here
Messagebox(oException.Message)
Endtry