VB操作EXCEL,在vb界面中对指定的excel文件写入数据

发布网友 发布时间：2022-04-26 14:40

我来回答

共2个回答

热心网友 时间：2022-06-29 07:54

可以的。
1楼办法还行，不过要是已经有1万行了，那就要先循环1万次在添加数据。
所以，要先获取最后一行的行数，然后加1，这个就是那个空单元格，就在这个单元格里填写数据了。

热心网友 时间：2022-06-29 07:54

'在工程中添加对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