怎么把变量写入excel单元格(已经解决)

我在界面那里画了很多textbox，我希望运行的时候，输入text后，VB帮我写入excel指定格中，请帮我看一下。
Private Sub Form_Load()
Dim d1 As String
Dim d3 As Integer
Dim d4 As String
Dim d5 As String '这里把d1,d4,d5定义为文本，d3定义为数字
Combo1.ListIndex = 0
End Sub

Sub biaoge
Dim excelID As Excel.Application
Set excelID = CreateObject("Excel.Application")
excelID.Workbooks.Open ("C:\22.xls")
excelID.Worksheets(1).Select
excelID.Cells(11, 1) = Text12.Text '这个地方写进去了
d3 = Len(d1) '这里格子长度是16个字符，我想判断它如果大于16个字符，就分开写，d1的值在子程序bianlian那里
If d3 > 16 Then
d4 = Left(d1, 16)
d5 = Right(d1, d3 - 16)
excelID.Cells(12, 4) = d4 '从这里开始写不进去
excelID.Cells(13, 1) = d5
Else
excelID.Cells(12, 4) = d1
End If
excelID.Workbooks.Close
excelID.Quit
End Sub

Sub bianlian
d1=Text2.Text & "hao" & Text3.Text
End Sub

Private Sub Command1_Click()
Call bianlian
Call biaoge
End Sub

新建一个模块，把变量放入模块中，然后引用

[ 本帖最后由 tianskon 于 2013-8-14 16:44 编辑 ]