怎么用VB与EXCEL连接,实现对数据的录入、修改、删除

 我来答
lysfox
2011-09-13 · TA获得超过388个赞
知道小有建树答主
回答量:421
采纳率:0%
帮助的人:129万
展开全部
用以下代码:
Set ObjExcel = New Excel.Application
ObjExcel.SheetsInNewWorkbook = 1
Set ObjWorkbook = ObjExcel.Workbooks.Open("e:\111.xls") ‘xls的文件名路径可以修改
Set ExcelSheet = ObjWorkbook.Worksheets(1) ’指定为sheet1
ObjExcel.Visible = True
ExcelSheet.Cells(1, 1) = “123456” ‘给第一行第一列赋值
ExcelSheet.Cells(2, 1) = “45679” ’给第二行第一列赋值
’类推,括号中第1个数表示行,第2个数表示列,比如A1就是1,1,B1就是2,1
‘同理
ExcelSheet.Cells(1, 2) = “1111” ’A2单元格
ExcelSheet.Cells(2, 2) = “2222” ‘B2单元

With ObjExcel.ActiveSheet.Range("A1:B4").Borders '边框设置
.LineStyle = xlBorderLineStyleContinuous
.Weight = xlThin
.ColorIndex = 1
End With

ObjWorkbook.Save
ObjWorkbook.Close
Set ObjExcel = Nothing
xlzzc
2011-09-13 · TA获得超过7301个赞
知道大有可为答主
回答量:4205
采纳率:50%
帮助的人:1468万
展开全部
我有示例。
代码太多呀!!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wudipaopao
2011-09-13 · TA获得超过797个赞
知道小有建树答主
回答量:1486
采纳率:0%
帮助的人:807万
展开全部
调用 ms Excel的库文件就行了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式