'以下演示了用 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 当成数据库操作,就像读数据库中的数据值一样。当然可以赋值给数据,分成小数组,没能理解。
只给思路,不写代码。
连接到excel后,用循环读入A列的数值,分别给数组赋值。直到读到的内容为空。
还是用循环来分小数组。用两个变量分别控制大数组下标和小数组下标。
while 变量1<=大数组最大下标
for 变量2=1 to 8
给小数组赋值
next
变量1+1
wend
我在做任务,顺便学习!
b