knowhow.txt

来自「把EXCEL中的 数据读入数据窗口中..................」· 文本 代码 · 共 21 行

long   excelok   
  string   str_savename,   str_filename   =   "D:\temp\book1.xls"   
  OLEObject   ExcelServer   
  ExcelServer   =   CREATE   OLEObject   
  ExcelOK   =   ExcelServer.ConnectToNewObject(   "excel.application"   )   
  if   excelok   <   0   then   
  messagebox("&laquo;H&reg;§","&sup3;s±&micro;excel&yen;&cent;±&Ntilde;&iexcl;M&Agrave;&Euml;&not;d&not;O§_&cedil;&Euml;¤FOffice!"   +string(excelok)   )   
  //   return   false   
  else   
  ExcelServer.Workbooks.Open(str_filename)   
  str_savename="c:\temp.txt"   
  excelserver.activeworkbook.saveas(str_savename,3)   
  excelserver.displayalerts=false   
  ExcelServer.quit()   
  ExcelServer.DisconnectObject()   
  DESTROY   ExcelServer     
  dw_1.ImportFile(str_savename)   
  filedelete(str_savename)   
  //   return   true   
  end   if