# Re: 帮帮忙~~~

Posted by 小琳 on August 28, 1999 at 15:35:20:

In Reply to: 帮帮忙~~~ posted by eddy on August 28, 1999 at 14:44:48:

: 在VB6中如何用excel将其已key 好的数值结果存在定义好的阵列

:::先建立一个Excel档，然后程式如下：
Option Explicit

Private Sub Command1_Click()
Dim temp As Excel.Application
Dim abc(20) As Integer, i As Integer
Set temp = CreateObject("excel.application")
temp.Workbooks.Open "F:\其他\book2.xls"
temp.Visible = False
For i = 1 To 20
abc(i) = temp.Range("a" & i)
Next i
Set temp = Nothing
End Sub

Follow Ups:

- Re: 感谢 再帮个忙~~~ eddy 17:36:49 8/28/99 (0)
- Re: 感谢 再帮个忙~~~ eddy 17:36:15 8/28/99 (1)
  - Re: 感谢 再帮个忙~~~ 小琳 20:10:43 8/28/99 (0)