我现在有个excel模板。表头和表尾都是固定好的信息。我现在想往模板中间加东西。客户加到表尾的时候就会把表尾的信息给覆盖了。我怎么样才能让表尾往下串行。在模板的中间想加多少都可以,表尾自动往下传行

解决方案 »

  1.   

    如果插入多行
    Rows("7:9").Insert Shift:=xlDown
      

  2.   

    vb里这么写(假设工作表变量是xlSheet) xlSheet.Rows("7:9").Insert Shift:=xlDown
      

  3.   

    真的太谢谢你了。还有个问题想问问。就我现在是用msflexgrid从数据库里查询出信息。我想在想把查处的信息插入到模板里边。我插入一个单元格用ExcelID.Cells(14, 1) = "ddd"。我想插入一行怎么办。一行是8列
      

  4.   

    这是一次用记录集付m行n列
    xlsheet.Range("a2").CopyFromRecordset rs
      

  5.   

    参考http://bingning.net/free/source/programing/index.html
    这里是EXCEL类,有相关的代码。
      

  6.   

    Private Sub cmdPrint_Click()
    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
      

  7.   

    这是我的代码。我是excel然后往里边赋值
      

  8.   

    一下插入1行后逐个付值吧
    ExcelID.Rows(14).Insert Shift:=xlDown
    ExcelID.Cells(14, 1) = "ddd"
    ExcelID.Cells(14, 2) = "123"
    ExcelID.Cells(14, 3) = "csdn"
    ……
      

  9.   


    a2是数据区域的左上角,rs是记录集
      

  10.   

    Private Sub cmdPrint_Click() 
    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
      

  11.   

    你用msflexgrid可以这样做
    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