vb 如何往excel中的text框中写数据阿？ 在线等

Question

小弟现在想用vb程序操作excel中的text框，怎么做，最好给出例子，比如向excel中的一个text框写数据，谢谢

Answer 1

小弟找到了，与大家共享。下面是我的代码。
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.Open("文件路径")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
objExcelSheets("sheetname").Shapes("textname").TextFrame.Characters.Text  = "填写内容"这里有一点要注意，我发现excel中text框的名字中不能含有空格，如果有空格就会出错。

Answer 2

关于上面说的空格问题，我发现并不是不允许有空格，当我放置一个text框时系统默认的名字是 text x (x代表数字)，当x<>1 时 以此sheet为基础拷贝追加一个sheet时 拷贝的text框的名字是 text 1,所以如果要往 所有的sheet中添加数据时，只有第一个可以成功地找到位置，其他拷贝生成的sheet都会出错。结帖了，给自己加分。