VB操作EXCEL,在vb界面中对指定的excel文件写入数据
举个简单的例子吧,vb界面中有一个text1,一个command1。要求1:在text1中写入数据“xx“,然后点击command1,就可以把"xx"显示在excel表格...
举个简单的例子吧,vb界面中有一个text1,一个command1。
要求1:在text1中写入数据“xx“,然后点击command1,就可以把"xx"显示在excel表格的A1单元格里,比如excel表格的路径在"d:\11.xls"。录入数据后,要自动保存。
要求2:再次打开vb,录入数据,比如在text1中写入"xxx",点击command1时,因为刚才excel中,A1单元格已经有数据了,所以"xxx"要显示在A2单元格里,依次类推,显示在A3,A4,A5单元格里,也自动保存。
这样可以实现吗?谢谢了,我把分都给你。不过,零头就不给了,呵呵,留着压口袋。 展开
要求1:在text1中写入数据“xx“,然后点击command1,就可以把"xx"显示在excel表格的A1单元格里,比如excel表格的路径在"d:\11.xls"。录入数据后,要自动保存。
要求2:再次打开vb,录入数据,比如在text1中写入"xxx",点击command1时,因为刚才excel中,A1单元格已经有数据了,所以"xxx"要显示在A2单元格里,依次类推,显示在A3,A4,A5单元格里,也自动保存。
这样可以实现吗?谢谢了,我把分都给你。不过,零头就不给了,呵呵,留着压口袋。 展开
2个回答
展开全部
'在工程中添加对Excel的引用
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功!"
End Sub
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功!"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |