datagrid1给excel赋值

Question

现在窗体1上，datagrid1的指针在记录1上，我想单击当前记录1,记录1中的字段id中的值赋给我excel1中的a1.记录2中的字段id中的值赋给excel1中的a2。请问这个语句，怎么写，关键是第二条语句，我不会写：“记录2中的字段id中的值赋给excel1中的a2”。请教各位，会的请麻烦您写一下。

Answer 1

给段写EXCEL的代码参考：Option Explicit
    Dim xlapp As Variant
    Dim xlBook As Variant
    Dim xlSheet As VariantPrivate Sub Command1_Click()
    Set xlapp = CreateObject("excel.application")
    xlapp.Visible = True
    Set xlBook = xlapp.Workbooks.Add
    Set xlSheet = xlBook.worksheets(1)
    xlSheet.Cells(1, 1) = Date$
    xlSheet.Cells(1, 2) = Time$
    xlSheet.Cells(1, 3) = "123"
    xlSheet.Cells(1, 4) = "ABC"
End Sub

Answer 2

  Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
        Set xlapp = CreateObject("excel.application")
            Set xlbook = Workbooks.Open("d:\data\job.xls")
            Set xlsheet = xlbook.Worksheets(1)
   
     With DataGrid1
      
       xlsheet.Range("a1") = Adodc1.Recordset.Fields("id")
     
    End With         xlbook.Save
            xlbook.Close
            xlapp.Quit
            Set xlapp = Nothing
    
End Sub就是不知道怎么把第二条记录中字段id的值赋给b1.

Answer 3

    Dim xlapp As Excel.Application 
    Dim xlbook As Excel.Workbook 
    Dim xlsheet As Excel.Worksheet 
        Set xlapp = CreateObject("excel.application") 
            Set xlbook = Workbooks.Open("d:\data\job.xls") 
            Set xlsheet = xlbook.Worksheets(1) 
  
    With DataGrid1 
      
      xlsheet.Range("a1") = Adodc1.Recordset.Fields("id") 
      Adodc1.Recordset.movenext
      xlsheet.Range("a2") = Adodc1.Recordset.Fields("id") 
    
    End With         xlbook.Save 
            xlbook.Close 
            xlapp.Quit 
            Set xlapp = Nothing 
    
End Sub 

Answer 4

  Dim xlapp As Excel.Application 
    Dim xlbook As Excel.Workbook 
    Dim xlsheet As Excel.Worksheet 
        Set xlapp = CreateObject("excel.application") 
            Set xlbook = Workbooks.Open("d:\data\job.xls") 
            Set xlsheet = xlbook.Worksheets(1) 
  
    With DataGrid1 
      
      xlsheet.Range("a1") = Adodc1.Recordset.Fields("id") 
    
    End With   '这两条没用上        xlbook.Save 
            xlbook.Close 
            xlapp.Quit 
            Set xlapp = Nothing 
    
End Sub 

Answer 5

    Dim xlapp As Excel.Application 
    Dim xlbook As Excel.Workbook 
    Dim xlsheet As Excel.Worksheet 
        Set xlapp = CreateObject("excel.application") 
            Set xlbook = Workbooks.Open("d:\data\job.xls") 
            Set xlsheet = xlbook.Worksheets(1) 
  
    
   with Adodc1.Recordset  
      .movefirst 
      while not .eof
          i=i+1
          xlsheet.Range("a" & i) = .Fields("id")
          .movenext 
      wend
   end with
        xlbook.Save 
            xlbook.Close 
            xlapp.Quit 
            Set xlapp = Nothing 
    
End Sub