hur.cn - 华软网

 热门搜索

怎么从execl到如dw啊

  作者:未知    来源:网络    更新时间:2017/9/26
怎么从execl到如dw啊
------华软网友回答------
//***************************************************************//  
//  函数名称:GF_EXCEL_TO_DATAWINDOW                                                                                                                              
//  函数功能:  EXCEL文件导入DATAWINDOW                                                                                                                            
//  参数类型:  DWTAWINDOW                                                                                                                              
//  参数名称:  str_dw                         
//  RETURN TYPE :  STRING
//  RETURN  :  str_name  SUCCEED      
//  DATE    :  2005.3 demoz修改                                                                                                                                                            
//***************************************************************//  
 
int    excelok,li_ret
string str_name,ls_str_name

li_ret = getfileopenname('请指定数据文件路径及文件名',str_name,ls_str_name,'xls','EXCEL File (*.xls),*.xls,Text Files (*.txt),*.txt')

IF li_ret = 1 then
if right(str_name,3) = 'txt' or right(str_name,3) = 'TXT' then
str_dw.reset()
str_dw.importfile(TEXT!,str_name)
return  str_name  
else
  oleobject  excelserver  
excelserver=create  oleobject    
excelok = excelserver.connecttonewobject("excel.application")    
 
//检查返回值,以确保已成功地连接到了Excel  
if excelok  <>  0  then    
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")    
return  '连接EXCEL失败'
end  if    

str_dw.reset()  
excelserver.workbooks.open(str_name)    
excelserver.activesheet.cells.copy  
//导入数据,如果文件第一行有标题,则从第二行开始,用:dw.importclipboard(2)
str_dw.importclipboard()    
clipboard("")    
 
excelserver.quit()    
excelserver.disconnectobject()    
destroy  excelserver    
return  str_name  
end if
ELSE
str_dw.reset()
return '请选择要导入的文件'
END IF

------华软网友回复------
参考:
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=199509
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=199512
------华软网友回复------
这个帖子黑多   搜索一下可以找到
------华软网友回复------
老大,根本就不管用
我是说从execl转dw的问题
运行
没提示,直接就不动了
------华软网友回复------
跟踪调试啊
------华软网友回复------
li_d_s(我是小鬼-日货?送我都不要,哪怕是丰田和日产的轿车) 发的就是我根据faq中的修改的,注意上面的断行,格式被csdn改变了,还有变量。

我现在用的就是这个,没有问题
------华软网友回复------
何来这么麻烦~~看偶的

//***************************************************************//
// 函数名称: GF_EXCEL_TO_DATAWINDOW                                                              
// 函数功能: EXCEL文件导入DATAWINDOW                                                             
// 参数类型: DWTAWINDOW                                                              
// 参数名称: DW                                                              
// RETURN  : 1 SUCCEED   -1 ERROR                                                              
// DATE    : 2004 3.1                                                                            
//***************************************************************//

string str_savename,named,s_grxh
int  excelok,li_net
long li_count,i


oleobject excelserver
excelserver=create oleobject 
excelok=excelserver.connecttonewobject("excel.application") 

//检查返回值,以确保已成功地连接到了Excel
if excelok <> 0 then 
messagebox("信息提示","连接EXCEL失败,请检查计算机中是否安装了EXCEL!") 
return -1
end if 
li_net = GetFileOpenName("选择文件", str_savename,named,"xls","Excel文件(*.xls),*.xls") 
if li_net > 0 then
if str_savename = "" then  return -1
dw.settransobject(sqlca)
dw.reset()
excelserver.workbooks.open(str_savename) 
excelserver.activesheet.cells.copy
li_count = dw.importclipboard(2)  //导入数据 
clipboard("") 

excelserver.quit() 
excelserver.disconnectobject() 
destroy excelserver 
return 1
else
messagebox('信息提示','没有指定导入文件!')
return -1
end if

------华软网友回复------
这个不行我吃了他   我就是用的这个   你稍微改一点点就行了
------华软网友回复------
有这么复杂吗?
我记得曾经 用一个datawindow的import方法就搞定了。
------华软网友回复------
搞错了,是ImportFile方法。
string ls_path,ls_named
GetFileOpenName("选择文件",ls_path,ls_named)
Dw_TableData.ImportFile(ls_path)
------华软网友回复------
excel行列数目不定把
------华软网友回复------
大部分人都是在用这个的,肯定没有问题      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。