如何给字符型STRING数组赋值

alex2008alex

如下： 提示不能给数组赋值，请指教！
Sub TTTT()

Dim t() As String
Dim I As Integer

t = Array("TYPEDOC", "Typedocx", "TYPEEPS", "TYPEHTM1", "TYPEJPEG", "TYPEJPF")
I = InputBox("请输入：")
MsgBox t(I)

End Sub

zxsea_7426

Dim t() As String===》Dim t

cokoed4

Dim t() As String----> Dim t() As Variant  

alex2008alex

cokoed4 发表于 2022-12-7 13:36
Dim t() As String----> Dim t() As Variant

T()必须是string类型

lss001

…………………………

lcluck2002

alex2008alex 发表于 2022-12-7 13:37
T()必须是string类型

为什么？为什么不能是Variant?

ykcbf1100

你这代码中，t是一个数组，所以，不能定义为$格式，可以改成这样：Dim t

alex2008alex

lcluck2002 发表于 2022-12-7 13:53
为什么？为什么不能是Variant?

后面的代码要引用这个t参数，如果定义为variant,就提示类型不匹配，定义为string后就能通过了。

大灰狼1976

能不能变通一下：

1. Sub TTTT()
   
2. 
   
3. Dim t() As String
   
4. Dim I As Integer
   
5. 
   
6. t = Split("TYPEDOC,Typedocx,TYPEEPS,TYPEHTM1,TYPEJPEG,TYPEJPF", ",")
   
7. I = InputBox("请输入：")
   
8. MsgBox t(I)
   
9. 
   
10. End Sub

复制代码

alex2008alex

如果分别独立赋值是可以的，如T(0)=  ,T(2)=.....,如果值多的话，这样写比较麻烦，如果能用数组赋值比较简单一点。