VB中点击保存后能不能把数据自动保存到设定好的EXCEL表格中

如果在VB的界面上把一些数据填写好,点击保存后,能够把这些数据同时保存在一个已经设定好的EXCEL表格中,并能自动另存到指定的地方,... 如果在VB的界面上把一些数据填写好,点击保存后,能够把这些数据同时保存在一个已经设定好的EXCEL表格中,并能自动另存到指定的地方, 展开

 我来答

1个回答

#热议# 普通体检能查出癌症吗？

kshzs248
推荐于2016-07-18

知道答主

回答量：19

采纳率：0%

帮助的人：11.1万

我也去答题访问个人页

关注

展开全部

需要引用的Microsoft Excel 11.0对象（Excel 2003中）

昏暗前为Object

昏暗ExBook作宾语

昏暗ExSheet作宾语

私子commandbutton1_click（）

设置防爆=的CreateObject（“Excel.Application的”）

设置ExBook = Ex.Workbooks（）。添加

设置ExSheet = ExBook.Worksheets（“工作表Sheet1”）/ /打开

对于i = 0到10

ExSheet.cells（我+1,1）。值= A（I）

下一个I / /赋值

ActiveWorkbook.SaveAs（“D：\ my.xls”）/ /保存

Ex.Quit

设置xlSheet =无

集xlBook =无

集XLS =没有/ /退出

结束子

追问