◆数据导入到EXCEL下处理的问题◆

Question

是这样的，现在数据导入到EXCEL下是这样显示：
------------------------
   工资表
序号  工号  姓名  工资
1     001   陈一  100
2     002   陈二  200
3     003   陈三  300
------------------------数据不知共多少页，我是按照30条记录跳页的。现在有个问题：
就是要更改成如下所示的格式，有点急。即在每页结尾处，加个统计当页的工资总额。
-----------------------
      工资表   
序号  工号  姓名  工资
1     001   陈一  100
2     002   陈二  200
3     003   陈三  300
-     -     -
-     -     -
-     -     - 
              当页共:
-----------------------程序如下，请帮忙修改，谢谢，在线等待

Answer 1

Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = True '设置EXCEL可见
Set xlbook = xlapp.Workbooks.Open("D:\xls\tua.xls") '打开EXCEL工作簿
Set xlsheet = xlbook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表  i = 4 '输出数据从第5行开始
    rs.MoveFirst
    Do Until rs.EOF
        i = i + 1
            xlsheet.Cells(i, 1) = i - 4         '序号
            xlsheet.Cells(i, 2) = rs![nb]       '工号
            xlsheet.Cells(i, 3) = rs![ne]       '姓名
            xlsheet.Cells(i, 4) = Format(rs![tot], "0.00")      '工资
                             
     If (i - 4) Mod 30 = 0 And i <> 4 Then  '每30条记录为一页
       xlsheet.Range(xlsheet.Cells(i, 1), xlsheet.Cells(i, rs.Fields.Count)).Select
       SendKeys "^{end}"           '发送一个组合键CTRL+END,使光标移到文件尾
       xlsheet.HPageBreaks.Add Before:=xlapp.ActiveCell   '添加一个分页符  
    End If
       rs.MoveNext
    Loop
xlapp.Worksheets.PrintPreview
xlapp.DisplayAlerts = False
xlapp.Quit
Set xlapp = Nothing

Answer 2

以上问题已解决，但有个新问题，手上又没资料，请帮忙下，谢谢！
现在vb下想新建一张excel表，在表上随便写点东西，然后存放在指定的路径中，请给出相应的程序。
一些相关的excel参数我这边没有，请帮忙下。

Answer 3

可以变相做一下.选在你的程序目录下建一个空的XLS文件,如果你想在指定目录下建excel表,就可以用filecopy "你程序目录的那个XLS文件","目标文件"来复制一个文件到目标地址了

Answer 4

可以用EXCEL自带的功能:录制宏工具-->宏-->录制新宏

Answer 5

可以用EXCEL自带的功能:录制宏,它会自动生成你操作所对应的VB代码工具-->宏-->录制新宏

Answer 6

Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
   
    Set xlWorkbooks = xlapp.Workbooks.Add
    xlWorkbooks.Sheets(1).Cells(1, 1) = "adb"
    xlWorkbooks.SaveAs Filename:="d:\book.xls"