5,139
社区成员
发帖
与我相关
我的任务
分享
long ll_RowCount,ll_ColCount //总行数和总列数
long ll_Row,ll_Col
string ls_temp //临时变量,统一转换成字符串处理,需要数据窗口的各列也都是字符串类型。如果楼主有特殊需要,则要自己处理
long ll_NewRow
ll_Row = excelserver.activesheet.UsedRange.Rows.count //总行数
ll_ColCount = excelserver.activesheet.UsedRange.Column.Count //总列数
for ll_Row = 1 to ll_RowCount
ll_NewRow = dw_1.InsertRow(dw_1.RowCount()+1) //数据窗口中新增一行
for col = 1 to ll_ColCount
ls_temp = string(excelserver.activesheet.Cells(ll_Row,ll_Col).Value)
dw_1.SetItem(ll_NewRow,ll_Col,ls_temp) //数据窗口中写入数据
next
next