Question

VB6.0操作EXCEL中的数据？

用VB6.0将excel A列中的数据赋值为数组，在这个数组基础上再以8个数据为单位赋值为数组，先形成大数组再分成小数组的VB代码怎么写，跪求！！！

Answer 1

'以下演示了用 VB 打开excel，

Dim ExlApp As Object
Dim ExlBook As Object
Dim ExlSheet As Object

Set ExlApp = CreateObject("Excel.Application") '创建Excel的应用程序实例
Set ExlBook = ExlApp.Workbooks.Add '创建Excel的工作簿
Set ExlSheet = ExlBook.Worksheets(1) '创建Excel的一张表

ExlSheet.Range("A:G").Font.Size = 9 '设置A到G列的字号
ExlSheet.Range("A:G").Font.Name = "宋体" 'A到G列字体
ExlSheet.Range("A:A").RowHeight = 24 'A到A列行高
ExlSheet.Range("A1:G1").Font.Name = "黑体" '首行字体
ExlSheet.Range("A1:G1").Font.Bold = True '首行加粗
'ExlSheet.Rows.HorizontalAlignment = xlVAlignCenter '设置水平居中
'ExlSheet.Rows(1).RowHeight = 24 '第1行的行高=24
ExlSheet.Cells(1, 1).Value = "单　位"
'------写入EXCEL表结束-----

ExlApp.Visible = True '显示Excel

Set ExlSheet = Nothing
Set ExlBook = Nothing
Set ExlApp = Nothing

这点代码你参考下吧。只是写入excel。我没能理解你的意思。而且我也只是一个初学者
如果你把excel 当成数据库操作，就像读数据库中的数据值一样。当然可以赋值给数据，分成小数组，没能理解。

Answer 2

只给思路，不写代码。
连接到excel后，用循环读入A列的数值，分别给数组赋值。直到读到的内容为空。
还是用循环来分小数组。用两个变量分别控制大数组下标和小数组下标。
while 变量1<=大数组最大下标
for 变量2=1 to 8
给小数组赋值
next
变量1+1
wend

Answer 3

我在做任务，顺便学习！

Answer 4

b