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