VB6 调用Excel，并进行操作

VB6 调用Excel，并进行操作！！

Dim excel As Application

Dim excelbook As Workbook

Dim excelsheet As Worksheet

Dim x(1 To 4, 1 To 4) As Integer

'按钮1

Private Sub Command1_Click()

Randomize

For i = 1 To 4

For j = 1 To 4

x(i, j) = 100 * Rnd()

'数组元素赋值

Next j

Next i

excel.Range("a1:d4").Value = x

'填充数组

excel.Range("a1:d4").Select

'选中从第一行第一列到第四行第四列的数据

Set excelchart = excel.Charts.Add

'制成图表

excelsheet.Application.Visible = True

'使Excel处于可见的状态

excelsheet.SaveAs App.Path + "\test.xls"

'存储文件

End Sub

'窗体启动事件

Private Sub Form_Load()

Set excel = CreateObject("Excel.application")

Set excelbook = excel.Workbooks().Add

Set excelsheet = excelbook.Worksheets("sheet1")

'声明并创建Microsoft Excel引用

End Sub

'窗口关闭事件

Private Sub Form_Unload(Cancel As Integer)

excelsheet.Application.Quit

'关闭 Excel

Set excelsheet = Nothing

'释放对象

End Sub