【前言】
在机房收费当中有多个窗体引用了导出Excel表格,表格的出现大大的节省了我们的工作,那么在VB中怎样实现这个功能呢?让小编来说一下步骤吧!
【步骤】
第一步:
在VB菜单栏中点击“工程”-“引用”选择下图中蓝色框的内容
第二步
代码实现
Private Sub cmdFormals_Click()
Dim xlApp As New Excel.Application '声明Excel对象
Dim xlbook As Excel.Workbook '声明工作薄对象
Dim xlsheet As Excel.Worksheet '声明工作表单
Dim i As Integer
Dim j As Integer
If MSFlexGrid1.Text = "" Then '判断是否有记录可以导出
MsgBox "没有记录可导出!", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
Set xlApp = CreateObject("excel.application") '调用execel程序
Set xlbook = xlApp.Workbooks.Add(1) '创建新的空白簿
' Set xlSheet = Excel.ActiveWorkbook.ActiveSheet '创建新的工作表单
Set xlsheet = Excel.ActiveWorkbook.ActiveSheet
For i = 0 To MSFlexGrid1.Rows - 1 '填入数据
For j = 0 To MSFlexGrid1.Cols - 1
xlsheet.Cells(i + 1, j + 1) = MSFlexGrid1.TextMatrix(i, j) 'cell(a,b)表示a行,b列
Next j
Next i
xlApp.Visible = True '显示Excel表格
Set xlApp = Nothing '交还控制给Excel
End If
End Sub