Question

pb importfile不能导入txt，该怎么处理

Answer 1

以下是完整的导入数据的代码：这个要求就是需要使EXCEL的标题和数据窗口的标题对应，EXCEL从第二行开始导入。如果是某些内容，那么要换一种别的方式。
string str_savename,named
int excelok,li_net
oleobject excelserver
excelserver=create oleobject
excelok=excelserver.connecttonewobject("excel.application")
//检查返回值，以确保已成功地连接到了Excel
if excelok <> 0 then
messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")
return
end if
li_net = GetFileOpenName("选择文件", str_savename,named,"xls","Excel文件(*.xls),*.xls")
if li_net > 0 then
if str_savename = "" then return
excelserver.workbooks.open(str_savename)
excelserver.activesheet.cells.copy
dw_1.importclipboard(2) //导入数据 dw_1是数据窗口名字，改成你的名字
clipboard("")
excelserver.quit()
excelserver.disconnectobject()
destroy excelserver
end if

如果只导入EXCEL的某些内容，可以用如下代码：
string ls_tmp
IF GetFileOpenName("选择文件 ", ls_Path, ls_File, "XLS", "Excel Files (*.XLS),*.XLS, Comma-separated values (*.CSV),*.csv") < 0 THEN
Messagebox('文件导入', '获取文件失败！', StopSign!)
return
END IF

// === 判断档案是否存在
IF FileExists(ls_Path) = False THEN return

// === 判断是否为Excel档案
IF Lower(Right(ls_Path, 4)) <> '.xls' AND Lower(Right(ls_Path, 4)) <> '.csv'THEN
MessageBox('文件导入', '并非可选择的文件！', StopSign!)
return
END IF

oXls = CREATE OleObject