Private Sub Command1_Click() Dim i As Long Dim j As Long , ) As Long Dim xlApp, WS, WB Set xlApp = CreateObject("Excel.Application") Set WB = xlApp.WorkBooks.Add ) WS.Cells(i + , j + ).Value = myData(i, j) '写入第i+1行,第j+1列 Next j Next i xlApp.Visi…
办公用品管理系统VB——库存数量导出EXCEL,SaveEXCEL 总体来说,VB的EXCEL导出效率还是蛮低的,就是一个小型化的办公用品管理软件,不再优化了. 时间紧迫,就没有从头到尾的用C#编写,从网上看见有源码就直接COPY下来的,添加了一点小功能,编译后给了朋友使用. VB6.0编写的,蛮古老的开发语言,算是学习编程时第一个学会的语言,真是许久没有使用,有些生疏了. 上一下运行效果: Private Sub SaveEXCEL_Click() Dim Introws As Integer…