导出Excel主从表示例

todaynew

导出Excel表的方法很多，其中需要向特定单元格写入数据的方法，是需要用到App的方法。本例从这个方法出发，简要描述了VB的基本写法，初学者可根据其实际需要进行改造，由此便可以得到你自己需要导出的效果。

示例图：



示例：



主要代码：

Private Sub 导出_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Long
Dim fname As String
Dim shtname As String
On Error GoTo 导出_Err
fname = GetFolder                                                     '打开文件夹并选取文件
shtname = InputBox("请选择表:", "表选择窗体", "Sheet1")    '指定导出到的工作表名称
sql = "select * from 联合查询 where 单据ID=" & Me.单据ID
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set xlApp = CreateObject("Excel.Application")                '创建一个Excel实例
xlApp.Application.Visible = True                                   '使Excel可见
Set xlBook = xlApp.Workbooks.Open(fname)                   '打开Excel工作簿
'导出主表
xlBook.Application.Sheets(shtname).Select                    '按指定名称选择工作表
xlBook.Application.Range("A1").Value = "单 据 ID"
xlBook.Application.Range("A2").Value = "单据类型"
xlBook.Application.Range("C1").Value = "单据名称"
xlBook.Application.Range("C2").Value = "日    期"
xlBook.Application.Range("B1").Value = Me.单据ID
xlBook.Application.Range("B2").Value = Me.单据类型
xlBook.Application.Range("D1").Value = Me.单据名称
xlBook.Application.Range("D2").Value = Me.日期
'导出子表
xlBook.Application.Cells(3, 1).Value = "记录ID"
xlBook.Application.Cells(3, 2).Value = "单据ID"
xlBook.Application.Cells(3, 3).Value = "物资ID"
xlBook.Application.Cells(3, 4).Value = "物资名称"
xlBook.Application.Cells(3, 5).Value = "规格型号"
xlBook.Application.Cells(3, 6).Value = "计量单位"
xlBook.Application.Cells(3, 7).Value = "数量"
xlBook.Application.Cells(3, 8).Value = "单价"
xlBook.Application.Cells(3, 9).Value = "金额"
For i = 1 To rs.RecordCount
    xlBook.Application.Cells(i + 3, 1).Value = rs("记录ID")
    xlBook.Application.Cells(i + 3, 2).Value = rs("单据ID")
    xlBook.Application.Cells(i + 3, 3).Value = rs("物资ID")
    xlBook.Application.Cells(i + 3, 4).Value = rs("物资名称")
    xlBook.Application.Cells(i + 3, 5).Value = rs("规格型号")
    xlBook.Application.Cells(i + 3, 6).Value = rs("计量单位")
    xlBook.Application.Cells(i + 3, 7).Value = rs("数量")
    xlBook.Application.Cells(i + 3, 8).Value = rs("单价")
    xlBook.Application.Cells(i + 3, 9).Value = rs("金额")
    rs.MoveNext
Next
xlApp.Quit
rs.Close
Set xlApp = Nothing
Set xlBook = Nothing
导出_Exit:
    Exit Sub
导出_Err:
    MsgBox "数据错误，请检查！"
    Resume 导出_Exit
End Sub

utalents

正需要

lively

崇拜大神

officeifans

正需要,学习了,谢谢!!

十三

多看论坛学习不少

yangjj

加入我的程序后
Dim xlApp As Excel.Application这一句出错,用户定义类型未定义,无法运行.但运行实例程序是好的
怪事!

xie62

谢谢分享

src

学习

cybjlt0121

学习下

cybjlt0121

谢谢

cybjlt0121

xieixie