Question

vb 控制excel文本框以及Rectangle ，我要vb编程改变一个xls文件里面的Rectangle（或者文本框）里面的内容

如题···回答可以运行的我会再加分的···
我家里的excel是2003的可以完成的··可是公司里面的excel是2007的 无法完成 请问应该怎么弄的？打开的文件都是excel2003（.xls)的

Answer 1

先要在VB里添加excel 11.0的引用，这个知道吧？否则 访问不了EXCEL。
假设你的文本框名是 textbox1，工作表和路径按你自己的实际修改。

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls"
SheetName = "sheet1"
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表

xlSheet.Shapes("textbox1").DrawingObject.object.Text = "设置textbox内容" '给text赋值，不能直接用 xlsheet.textbox1.text

xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象