我现在有个excel模板。表头和表尾都是固定好的信息。我现在想往模板中间加东西。客户加到表尾的时候就会把表尾的信息给覆盖了。我怎么样才能让表尾往下串行。在模板的中间想加多少都可以,表尾自动往下传行
解决方案 »
- 用什么函数可以把Ascii码转换成中文?
- 请教如何使用API 为注册表中某一项增加用户权限?
- 求教一个关闭文件Session的Api函数
- 关于datagrid控件的问题,谢谢!!
- 很急的问题,希望大家给予帮助。
- 机器人
- 求救一下,winsock接收单片机数据的问题
- 看到CSDN的问题,小弟(午夜黎明)想建立一个VB论坛,帖子+实时聊天回答,免得一个回复等老半天.赞成和有建议的朋友请跟贴!!
- 我想保存Log文件!但又想能对Log文件实现查找,列表、排序等方法,(类似win2000的事件查看器)我又不想用数据库,能用文本文件实现吗?
- 有两个窗体,如何把form2作为form1的子窗体?
- 求助:用mschart绘图 出现从曲线终点到零点(0,0)的一条直线
- vb中mschart统计图生成的问题
Rows("7:9").Insert Shift:=xlDown
xlsheet.Range("a2").CopyFromRecordset rs
这里是EXCEL类,有相关的代码。
Dim ExcelID As Excel.Application
Set ExcelID = New Excel.ApplicationExcelID.Visible = True
' ExcelID.Workbooks.Add
ExcelID.Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\按开台服务员查询提成菜\附件一.xls")
ExcelID.Rows(14).Insert Shift:=xlDown
ExcelID.Rows(14).Insert = 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8
End Sub
ExcelID.Rows(14).Insert Shift:=xlDown
ExcelID.Cells(14, 1) = "ddd"
ExcelID.Cells(14, 2) = "123"
ExcelID.Cells(14, 3) = "csdn"
……
a2是数据区域的左上角,rs是记录集
Dim ExcelID As Excel.Application
Set ExcelID = New Excel.Application
dim i as integerExcelID.Visible = True
' ExcelID.Workbooks.Add
ExcelID.Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\按开台服务员查询提成菜\附件一.xls")
ExcelID.Rows(14).Insert Shift:=xlDown
for i=1 to 8
ExcelID.Cells(14, i)=grid.TextMatrix(14,i)
End Sub
Private Sub cmdPrint_Click()
Dim ExcelID As Excel.Application
Set ExcelID = New Excel.Application
dim i as integer ExcelID.Visible = True
' ExcelID.Workbooks.Add
ExcelID.Workbooks.Open ("C:\Documents and Settings\Administrator\桌面\按开台服务员查询提成菜\附件一.xls")
ExcelID.Rows(14).Insert Shift:=xlDown
for i=1 to 8
ExcelID.Cells(14, i)=grid.TextMatrix(14,i)
next i
End Sub