我想实现一个VB程序可以和已存在的EXCEL表格连接,修改某一个sheet里面的某一个数值 15
另外输入数值是在我建立的VB界面输入的,比如说我在一个Textbox输入数值,自动就会修改对应的Excel中某一个sheet里面某一个对应的数值,求高手作答,谢谢!如果能...
另外输入数值是在我建立的VB界面输入的,比如说我在一个Textbox输入数值,自动就会修改对应的Excel中某一个sheet里面某一个对应的数值,求高手作答,谢谢!如果能帮我解决此问题,我还会追加分。
展开
展开全部
'引用excel library
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls") '打开已经存在的EXCEL工件簿文件
'xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) = 值 '给单元格(row,col)赋值
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls") '打开已经存在的EXCEL工件簿文件
'xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) = 值 '给单元格(row,col)赋值
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询