VBA数组的读取-VBA80集第21集（视频下载）

winwiner · 发表于 2011-9-8 19:40

各位老师，学长们：
请指导下。附件是根据本课内容我做的练习。
  下面的代码不能正确实现功能，哪个地方不正确，不能将数组arr正确写入单元格中
  谢谢了

Sub test1()
Dim arr1, arr(1 To 5), i As Integer

'判断文件是否存在
arr1 = Range("A1:A5")
For i = 1 To 5
      If Dir(arr1(i, 1), vbNormal) = "" Then
         arr(i) = "文件不存在"
      Else
         arr(i) = "文件存在"
      End If
Next i
'下面语句不能将数组arr正确写入单元格中，不知是什么原因
Range("B1").Resize(5) = arr
End Sub

test.rar (20.58 KB, 下载次数: 10)

fansong · 发表于 2011-9-16 00:39

谢谢，下载学习了，

mqr66 · 发表于 2011-9-16 13:18

下载学习VBA数组！！！

110413234 · 发表于 2011-9-17 14:31

谢谢分享{:011:}{:011:}

auhl · 发表于 2011-9-18 21:31

呜呜，到此金币用光了，重新来过

iougongkan · 发表于 2011-9-22 09:10

谢谢~~~~~~~~~·

heqiang0128 · 发表于 2011-9-30 13:14

没有金币，下载不了了

BAIXINGR · 发表于 2011-10-6 20:31

我悄悄的下载，正如我悄悄的注册~

xjhwww · 发表于 2011-10-7 01:47

我想学VBA很久了,这正是我想要的~

氧化钙 · 发表于 2011-10-7 09:15

谢谢兰版版的分享

		自动登录	找回密码
密码			注册