求助：vb与excel？

Question

大家好：我是一位VB新手，正在做一个VB与Excel之间链接的数据库，我想利用VB语言来控制Excel中某个表格进行存储、调用和修改等功能，但是我不知道怎样用VB(非VBA)写程序，请教各位帮帮忙,非常感谢！

Answer 1

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
  If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open("D:\vb6\lianxie\a1\book1.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(2) '打开EXCEL工作表
    xlsheet.Activate '激活工作表
    xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
  Else
    MsgBox ("EXCEL已打开")
  End If
End SubPrivate Sub Command2_Click()
  If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
    xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
    xlBook.Close (True) '关闭EXCEL工作簿
    xlApp.Quit '关闭EXCEL
  End If
  Set xlApp = Nothing '释放EXCEL对象
  End
End Sub

Answer 2

//借助ADO访问Excel
//引用Microsoft Activex Data Object 2.X
然后用如下代码访问数据库
dim cn as new ADODB.Connection
dim rs as new ADODB.RecordSet
dim strSql as string
strSql="SELECT * FROM [Sheet1$]"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" rs.Open strSql,cn,1,3msgbox rs("ColumnsName")