Excel怎样加工以下数据?
发布网友
发布时间：2022-08-13 00:35
共2个回答
热心网友
时间：2024-03-14 12:28
如图：公式为：=IFERROR(INDEX($B$2:$B$10,SMALL(IFERROR(IF($A$2:$A$10=$D2,ROW($1:$100),""),""),COLUMN(A1))),"")数组公式，shift+ctrl+enter结束，然后右拉，再下拉，如果右边最后的还有数据继续右拉，知道最右边显示为空
热心网友
时间：2024-03-14 12:28
//无返回，参数：类型datawindow，名称idw_dw
string path,filename
integer value,result
value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")
if value<>1 then return
if right(path,3)='xls' or right(path,3)='XLS' then
OLEObject ObjExcel
ObjExcel = CREATE OLEObject
result = ObjExcel.ConnectToNewObject( "excel.application")
if result <> 0 then
messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!")
Return
else
ObjExcel.Workbooks.Open(path) //ls_rj是文件的路径
ObjExcel.ActiveSheet.Cells.Copy
ObjExcel.Application.Visible = false
idw_dw.SetTransObject(SQLCA)
idw_dw.ImportClipboard(2) //将系统剪切版上的内容粘贴到数据窗口中,其中2为起始行参数
Clipboard("") //请空剪切版上的内容
ObjExcel.Quit()
ObjExcel.DisconnectObject() //断开与OLE的连接
Destroy ObjExcel
end if
elseif right(path,3)='txt' or right(path,3)='TXT' then
idw_dw.importfile(path,2)
elseif right(path,3)='dbf' or right(path,3)='DBF' then
idw_dw.importfile(path,1)
end if
这个函数可以读取dbf、txt和xls文件的数据。
【注意】从第二行开始读的，因为一般第一行是题头！
