Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer
xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
xlBook = xlApp.Workbooks.Open("E:\bb.xlsm") '打开EXCEL工作簿
xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlSheet.Activate() '激活工作表xlSheet.Activate()
i = 1
Do Until xlSheet.Cells(i, 1) = ""
i = i + 1
Loop
xlSheet.Cells(i, 1) = TextBox1.Text '给单元格1行驶列赋值xlSheet.Cells(1, 1) &
xlBook.RunAutoMacros(Excel.XlRunAutoMacro.xlAutoOpen) '运行EXCEL中的启动宏
xlBook.Save()
xlBook.RunAutoMacros(Excel.XlRunAutoMacro.xlAutoClose) '执行EXCEL关闭宏
xlBook.Close(True) '关闭EXCEL工作簿
xlApp.Save()
xlApp.Quit() '关闭EXCEL
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing '释放EXCEL对象
MsgBox("保存成功")
End Sub!
[图片说明](https://img-ask.csdn.net/upload/201905/05/1557039717_488488.png)![图片说明](https://img-ask.csdn.net/upload/201905/05/1557039769_163946.png)
VB.net调用Excel两个问题
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
3条回答
- qq_34300825 2019-05-07 14:01关注
换了一种方法,点一次保存对i+1,删除了xlApp.Save()EXCEL会自动保存
Public a As Integer = 1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click a = a + 1 xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 xlApp.Visible = True '设置EXCEL可见 xlBook = xlApp.Workbooks.Open("E:\会议人员名单.xlsm") '打开EXCEL工作簿 xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlSheet.Activate() '激活工作表 xlSheet.Cells(a, 1) = TextBox1.Text '给单元格1行驶列赋值 xlSheet.Cells(a, 2) = TextBox2.Text xlSheet.Cells(a, 3) = TextBox3.Text xlSheet.Cells(a, 4) = TextBox4.Text xlSheet.Cells(a, 5) = TextBox5.Text xlBook.RunAutoMacros(Excel.XlRunAutoMacro.xlAutoOpen) '运行EXCEL中的启动宏 xlBook.Save() xlBook.RunAutoMacros(Excel.XlRunAutoMacro.xlAutoClose) '执行EXCEL关闭宏 xlBook.Close(True) '关闭EXCEL工作簿 xlApp.Quit() '关闭EXCEL xlSheet = Nothing xlBook = Nothing xlApp = Nothing '释放EXCEL对象 MsgBox("保存成功") End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 matlab有关常微分方程的问题求解决
- ¥15 perl MISA分析p3_in脚本出错
- ¥15 k8s部署jupyterlab,jupyterlab保存不了文件
- ¥15 ubuntu虚拟机打包apk错误
- ¥199 rust编程架构设计的方案 有偿
- ¥15 回答4f系统的像差计算
- ¥15 java如何提取出pdf里的文字?
- ¥100 求三轴之间相互配合画圆以及直线的算法
- ¥100 c语言,请帮蒟蒻写一个题的范例作参考
- ¥15 名为“Product”的列已属于此 DataTable