[已解决]运行时错误‘6’ 溢出

ouchen

运行时提示溢出，循环中哪里错了？
Dim ws As Worksheet       '定义工作表对象变量
Dim myTextBox As Variant       '定义保存文本框名称数组变量
Private Sub UserForm_Initialize()
     Dim i As Integer
      Set ws = Worksheets("单位信息")
      myTextBox = Array("单位名称", "法人代表", "成立日期", "联系电话", "传真", "电子邮箱", "邮政编码", "联系地址", "网址", "简介")
     For i = 0 To UBound(myTextBox)
          Me.Controls(myTextBox(i)).Value = ws.Range("B" & i + 2)
     Next i
      Me.成立日期.Value = Format(Me.成立日期.Value, "yyyy-mm-dd")
End Sub

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-20 22:56

20120304 可不是日期的,就象原师傅,再像康师傅也不真的. 在excel不认可这种数字形式为日期格式的,它只是数字,不是日期.你可以这样改一下代码
Me.成立日期.Value = Format(Me.成立日期.Value, "0000-00-00")

跳转到最佳答案楼层

hwc2ycy

最好传附件。

妞叫七七

你按F8逐句运行一下,看在哪一句出错了

ouchen

妞叫七七 发表于 2013-6-20 22:16
你按F8逐句运行一下,看在哪一句出错了

Me.成立日期.Value = Format(Me.成立日期.Value, "yyyy-mm-dd")
就在这一句提示溢出

妞叫七七

Me.成立日期.Value 有可能生成的值非日期格式.你可以用msgbox 或 debug.print显示一下,看看这个值是多少.

ouchen

妞叫七七 发表于 2013-6-20 22:21
Me.成立日期.Value 有可能生成的值非日期格式.你可以用msgbox 或 debug.print显示一下,看看这个值是多少.

晕   这个还没整过 不知道要怎么弄。能详细一些吗？

妞叫七七

Dim ws As Worksheet       '定义工作表对象变量
Dim myTextBox As Variant       '定义保存文本框名称数组变量
Private Sub UserForm_Initialize()
     Dim i As Integer
      Set ws = Worksheets("单位信息")
      myTextBox = Array("单位名称", "法人代表", "成立日期", "联系电话", "传真", "电子邮箱", "邮政编码", "联系地址", "网址", "简介")
     For i = 0 To UBound(myTextBox)
          Me.Controls(myTextBox(i)).Value = ws.Range("B" & i + 2)
     Next i
      Msgbox  Me.成立日期.Value
      Me.成立日期.Value = Format(Me.成立日期.Value, "yyyy-mm-dd")
End Sub

ouchen

妞叫七七 发表于 2013-6-20 22:29
Dim ws As Worksheet       '定义工作表对象变量
Dim myTextBox As Variant       '定义保存文本框名称数组 ...

显示20120304 应该是没错的啊 怎么还是提示溢出

妞叫七七

20120304 可不是日期的,就象原师傅,再像康师傅也不真的. 在excel不认可这种数字形式为日期格式的,它只是数字,不是日期.你可以这样改一下代码
Me.成立日期.Value = Format(Me.成立日期.Value, "0000-00-00")

顺⑦.zì繎。

妞叫七七 发表于 2013-6-20 22:56
20120304 可不是日期的,就象原师傅,再像康师傅也不真的. 在excel不认可这种数字形式为日期格式的,它只是数字 ...

哈哈。这个比喻恰当。原师傅跟康师傅 。。。方便面都上来了{:1012:}