Private Sub cmdsave_Click()
MsgBox "文件保存为: E:\毕业设计\销售报表.xls", vbOKOnly + vbExclamation, ""
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim q As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
'在excel里表格的表头,这是根据我的需要添加的标头
ex.Range("c3").Value = "交易日期"
ex.Range("d3").Value = "员工姓名"
ex.Range("e3").Value = "货品名称"
ex.Range("f3").Value = "货品来源"
ex.Range("g3").Value = "成交数量"
ex.Range("h3").Value = "成交价格"
ex.Range("i3").Value = "成本价格"
ex.Range("j3").Value = "成交利润"
'i为记录个数使用循环将数据全部添加
For i = 1 To rs_reader.RecordCount
j = 3 + i
'k为数据列数
For k = 0 To 11
'通过使用变量k和j变换单元格位置
q = Chr(99 + k) & j
'将datagrid1的数据放到单元格内
ex.Range(q).Value = DataGrid1.Columns(k)
Next k
'指针下移
If rs_reader.EOF = False Then
rs_reader.MoveNext
End If
Next i
'保存输入到销售报表.xls
exwbook.SaveAs "E:\毕业设计\销售报表.xls"
'退出excel
ex.Quit
End Sub
请问这段导出代码正确吗?我在导出的时候它说数据类型不匹配,然后指向"q=chr(99+k)&j"这句代码!!
这段代码是我网上找来的,可根据自己的情况我不知道怎么来改,以上的几个表头是我datagrid中的表头,大家帮我看看怎么改!!谢谢