我如何解决：“ ole错误未知com状态代码”在Foxpro

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

是我的代码。在“ oleobject.cells（nrow，1）.value = viber_exp.h”行中返回错误：“ ole错误未知com状态代码” 我在做什么错？

Answer 1

您尚未提供任何单元格。尝试在createObject（）之后添加oleobject.workbooks.add（）。除了解决此错误之外，这也不是传输数据excel（.value = ...）的方式。

而是使用CopyFromRecordSet或QueryTables.ADD-（搜索为您处理的VFP2Excel函数）。

也从... XL8导入的也是您不应该使用的。检查 https：//foxite.com/archives/archives/0000153776.htm 现在，您可以将Cursoradapter与OLEDB或ODBC一起使用。 IE：

Local loAccess As CursorAdapter,;
  oConn As ADODB.Connection,;
  oRS As ADODB.Recordset, ;
  oException As Exception, ;
  cConnString As String, ;
  lcSheetName

lcDataSource = 'c:\myFoler\MyFile.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