请问高手：怎样把excel表格sheet1里的每行的内容一一相应地读到sheet2的指定位置。谢谢！

Question

一个用VB操作excel的例程（别人写的，用来学习）：
Dim objExcelSample As Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorkSheet As Excel.Worksheet
    
    Set objExcelSample = New Excel.Application
    Set objWorkbook = objExcelSample.Workbooks.Open("c:\book1.xls")
    '前提是在C盘根目录下存在book1.xls文件  
    Set objWorkSheet = objWorkbook.Sheets("sheet1")
  
    datPrimaryRS.Recordset.MoveFirst      'datPrimaryRS为Data控件 
    If IsNull(datPrimaryRS.Recordset!姓名) = False Then 
        objWorkSheet .Cells(4, 2) = datPrimaryRS.Recordset!姓名 
    End If 
    If IsNull(datPrimaryRS.Recordset!性别) = False Then 
        objWorkSheet .Cells(4, 4) = datPrimaryRS.Recordset!性别 
    End If 
    If IsNull(datPrimaryRS.Recordset!民族) = False Then 
        objWorkSheet .Cells(4, 6) = datPrimaryRS.Recordset!民族 
    End If    objWorkSheet.PrintPreview     '打印预览
    objWorkSheet.PrintOut         '打印
    objWorkbook.Close
    Set objExcelSample = Nothing

Answer 1

用邮件合并吧。much more easier.
看看help