Question

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

如题，如何修改···万分感谢 如果可运行会再追加分数··
我家里的excel是2003的可以完成的··可是公司里面的excel是2007的 无法完成 请问应该怎么弄的？打开的文件都是excel2003（.xls)的

Answer 1

Private Sub Command2_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "c:\11.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内容"
xlSheet.Shapes("文本框 3").TextFrame.Characters.Text = "设置绘图工具栏里文本框内容"
Sheets(SheetName).textbox1.Text = "设置控件工具面板里textbox内容" '给text赋值，不能直接用 xlsheet.textbox1.text

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

Answer 2

你可以先用EXCEL里的宏录进一下这个过程的代码,然后再往VB里加,VB的代码基本和EXCEL宏里的VBA大同小异的