在“部件”对话框窗口中,选择“可插入对象”标签,选中“Excel图表”选项,次即Microsoft Excel程序!
解决方案 »
- 两个StdPicture合成一个StdPicture的问题?
- 谁有台湾王国荣先生写的书(20分求解)?
- 如何访问远程数据库(就是如何修改服务器上的数据库,只是用vb)
- 急! 在文本框中不能正常显示随机文件内容 在线等
- 如何把excel中的数据显示在MSflexgrid上?(急!!!)
- 有什么方法可以根据一个窗体的hwnd,找到生成这个窗体的程序名称(或在电脑中的位置)
- 如果拦截Windows开始菜单弹起的消息???
- Rs.Update时怎么判断是INSERT还是UPDATE呢?
- 一行代码...关于创建表的语句....用create...快来帮忙..快!!!!!!!!!@@@@刚才的问题没有解决完还有啊....
- 关于控件
- 在win2000下如何调用拨号网络
- 我需要编一个 液压的回路模拟软件,vb适用吗?需要着重掌握vb中的什么知识?
Dim rs As ADODB.Recordset
Dim strSource, strDestination As String
Dim obj As New bus_CompanyC.Company Set rs = obj.TrainRepListAll strSource = App.Path & "\TrainRep.xls" strDestination = App.Path & "\print\TrainRep.xls" '创建临时文件 FileCopy strSource, strDestination Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False '隐藏EXCEL应用程序窗口 Set xlBook = xlApp.Workbooks.Open(strDestination) Set xlsheet = xlBook.Worksheets(1) For i = 1 To rs.RecordCount
For j = 1 To rs.Fields.Count - 1
If Not (rs.BOF Or rs.EOF) Then
xlsheet.cells(i + 2, j) = rs.Fields.Item(j - 1)
End If
Next j
rs.MoveNext
Next i '填写excel表格 xlBook.Save '保存文件 xlsheet.printPreview xlsheet.PrintOut '执行打印 xlApp.Quit '退出EXCEL
End Sub
做为一种简捷、系统的 Windows应用程序开发工具,Visual Basic 5 具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库,被广泛应用于建立各种信息管理系统。但是,VB缺乏足够的、符合中文习惯的数据表格输出功能,虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表,但操作起来很麻烦,中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能,我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作。下面给出一个实例:首先建立一个窗体(FORM1)在窗体中加入一个DATA控件和一按钮,引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 8.0 Object Library;选择"确定"。在FORM的LOAD事件中加入:
Data1.DatabaseName = 数据库名称
Data1.RecordSource = 表名
Data1.Refresh在按钮的CLICK事件中加入
Dim Irow, Icol As Integer
Dim Irowcount, Icolcount As Integer
Dim Fieldlen() "存字段长度值
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1) With Data1.Recordset
.MoveLast If .RecordCount < 1 Then
MsgBox ("Error 没有记录!")
Exit Sub
End If Irowcount = .RecordCount "记录总数
Icolcount = .Fields.Count "字段总数 ReDim Fieldlen(Icolcount)
.MoveFirst8 For Irow = 1 To Irowcount + 1
For Icol = 1 To Icolcount
Select Case Irow
Case 1 "在Excel中的第一行加标题
xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name
Case 2 "将数组FIELDLEN()存为第一条记录的字段长 If IsNull(.Fields(Icol - 1)) = True Then
Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)
"如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度
Else
Fieldlen(Icol) = LenB(.Fields(Icol - 1))
End If xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
"Excel列宽等于字段长
xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
"向Excel的CellS中写入字段值
Case Else
Fieldlen1 = LenB(.Fields(Icol - 1)) If Fieldlen(Icol) < Fieldlen1 Then
xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
"表格列宽等于较长字段长
Fieldlen(Icol) = Fieldlen1
"数组Fieldlen(Icol)中存放最大字段长度值
Else
xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
End If xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
End Select
Next
If Irow <> 1 Then
If Not .EOF Then .MoveNext
End If
Next
With xlSheet
.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体"
"设标题为黑体字
.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True
"标题字体加粗
.Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous
"设表格边框样式
End With
xlApp.Visible = True "显示表格
xlBook.Save "保存
Set xlApp = Nothing "交还控制给Excel
End With本程序在中文Windows98、中文VB5下通过。
还是不要用为好。