[已解决]VB中生成的数组如何赋值到新建EXCEL中

事后诸葛亮

我用VB做的COM加载宏
VB中，我定义了一个数组
Public Arr临时数组(1 To 65530, 1 To 7) As String
并通过程序给该数组进行赋值。
请问，我如何将这个数组的值 填充到一个新建的EXCEL文件中？
请帮忙写一下代码。

另请提示是否需要引用什么东西？？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-23 17:29

workbooks.add
activecell.resize(ubound(arr),ubound(arr,2)).value=arr

你转成VB时，记得架前缀。

跳转到最佳答案楼层

hwc2ycy

range("a1").resize(ubound(arr),ubound(arr,2)).value=arr

hwc2ycy

workbooks.add
activecell.resize(ubound(arr),ubound(arr,2)).value=arr

你转成VB时，记得架前缀。

事后诸葛亮

hwc2ycy 发表于 2013-7-23 17:29
workbooks.add
activecell.resize(ubound(arr),ubound(arr,2)).value=arr

你的代码出错，“要求对象。。”

我是在VB6.0中写代码。
然后  用VB 新建一个EXCEL文件
将 数组的值 填充到这个新建的表格中。

就是不会加前缀呢。呵呵。

hwc2ycy

你不是要定义一个EXCEL对象嘛。加个这个对象名前缀。

无聊的疯子

假设是给文件名为 “工作薄1.xls" 的 ”sheet1“ 表写数据
在Excel中的完整用法是

workbooks("工作薄1.xls").sheets("Sheet1").range("A1").resize(ubound(arr,1),ubound(arr,2)).value=arr

那么这个代码基本上可以直接抄到 vb6 里面去使用了

如果你的 vb6 是自己新建的 Excel 程序 如 这个程序名称叫 ExcelApp 那么你再把这个添加到前面就行了

还有简单点的用法，就是使用变量，你在新建工作薄时，使用 Set NewBook=  新建工作薄代码  
变量名称自己修改，那么 workbooks("工作薄1.xls")  就可以直接使用 newbook 了

自己多测试，什么都明白了！！ 在Excel中尽量使用完整的书写方法，这样基本上都可以直接Copy到 Vb6 上面使用