使用excel类型库可以引用单元格吗

解决方案 »

  1.   

    引用Excel 10.0
    Private Sub Command1_Click()
        Dim xlapp As New Excel.Application
        Dim xlbook  As Excel.Workbook
        Dim xlsheet As Excel.Worksheet
        
        xlapp.Caption = "test"
        Set xlbook = xlapp.Workbooks.Add
        Set xlsheet = xlbook.Worksheets(1)
        '引用B2单元格并赋字符串值
        xlapp.Range("B2").Select
        xlapp.ActiveCell.FormulaR1C1 = "dd"
        xlapp.Visible = True
    End Sub
      

  2.   

    xlapp.ActiveCell.FormulaR1C1 = "dd"