求助:vb与excel?

wxf_rj 2004-10-28 09:26:55
大家好:我是一位VB新手,正在做一个VB与Excel之间链接的数据库,我想利用VB语言来控制Excel中某个表格进行存储、调用和修改等功能,但是我不知道怎样用VB(非VBA)写程序,请教各位帮帮忙,非常感谢!
...全文
125 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
sys9933 2004-10-30
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 Sub

Private 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
回复
Alida82 2004-10-30
up楼上的
回复
lxcc 2004-10-30
//借助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,3

msgbox rs("ColumnsName")
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告