MSHFlexGrid1如何将sql数据库中的数据全部显示出来？如何将显示出来的数据进行导出，导出到excel？

2008-07-10 04:38:38 481 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别手动抄表：在WinCC里用MSHFlexGrid控件做个数据查询界面，还能一键导出Excel日报本文详细介绍了如何在WinCC中使用MSHFlexGrid控件构建智能报表系统，实现数据查询、排序、筛选及一键导出Excel日报功能。通过VB脚本示例，展示了从数据库连接到表格功能增强的全流程，帮助工业自动化领域用户提升数据可视化效率，告别手动抄表时代。阅读详情

...全文

告别手动抄表！WinCC结合SQL Server和Excel，打造车间级设备运行数据看板本文详细介绍了如何利用WinCC与SQL Server结合Excel打造车间级设备运行数据看板，实现工业数据从采集到可视化的全流程自动化。通过WinCC数据采集、SQL Server存储和Excel报表展示，系统显著提升生产效率，告别传统手动抄表方式，为制造业数字化转型提供实用解决方案。阅读详情

MOTOHEBE

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

MOTOHEBE 2008-07-24

打赏
举报

哈哈，我自己解决了这个问题，我打了补丁就可以全显示了！

luoyefeng 2008-07-23

打赏
举报

显示应该很简单三，用一个adodc控件连接数据表，MSHFlexGrid1的datasource设成adodc就ok了。导出麻烦点，先创建一个excel对象，然后打开，用循环语句把数据依次写入到excel工作表中，然后保存excel文件。

MOTOHEBE 2008-07-23

打赏
举报

连接数据库之后,打开数据表,一条记录一条记录读,然后按照字段逐个填到GRID里面去.
导出的话么,用EXCEL对象,再按照GRID一格一格写进EXCEL再保存,请问代码怎么写，好人做到底，谁能告诉我啊？

MOTOHEBE 2008-07-23

打赏
举报

以下是我的代码，但只能导出MSHFlexGrid1中显示的数据，但MSHFlexGrid1中显示出来的不是所有数据
Private Sub Command11_Click()
On Error Resume Next
If MSHFlexGrid1.TextMatrix(1, 2) = "" Then
MsgBox "没有数据导出", vbInformation, "提示"
Exit Sub
End If
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
Set excelApp = CreateObject("Excel.Application")
Dim exbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Set exbook = excelApp.Workbooks.Add
excelApp.SheetsInNewWorkbook = 1
excelApp.Visible = False '是否显示导出过程(true是)
excelApp.UserControl = True
Me.MousePointer = vbHourglass '控制鼠标为读取数据

With excelApp.ActiveSheet
.Range("h1:h1") = "报表日期:" & Format$(Date, "yyyy-mm-dd")
End With

With excelApp.ActiveSheet
.Range("a1:a1") = "代码"
.Range("b1:b1") = "拼音码"
.Range("c1:c1") = "人员名称"
.Range("d1:d1") = "工作类型"
.Range("e1:e1") = "部门代码"
.Range("f1:f1") = "部门名称"
End With
With excelApp.ActiveSheet

.Cells(2).ColumnWidth = 8 '第一列
.Cells(3).ColumnWidth = 8 '第二列
.Cells(4).ColumnWidth = 8 '第三列
.Cells(5).ColumnWidth = 8 '第四列
.Cells(6).ColumnWidth = 8 '第五列
.Cells(7).ColumnWidth = 16 '第六列
End With
With excelApp.ActiveSheet
For i = 1 To MSHFlexGrid1.Rows
For j = 1 To MSHFlexGrid1.Cols
.Cells(i + 1, j).Value = "" & Format$(MSHFlexGrid1.TextMatrix(i, j))
Next j
Next i
End With
With excelApp
abc = Format$(Date, "yyyymmdd") & "人员信息表"
aa = .Dialogs(xlDialogSaveAs).Show(abc) '
.Workbooks(1).Saved = True '不提示保存对话框
End With
Me.MousePointer = 0 '释放鼠标为读取数据
exbook.Close (True) '关闭EXBOOK
excelApp.Quit '退出
Set exsheet = Nothing '释放EXCEL
Set exbook = Nothing '释放EXCEL
Set excelApp = Nothing '释放EXCEL
MsgBox "导出成功！", vbOKOnly + vbInformation, "消息提示"
End Sub

熊孩子开学喽 2008-07-23

打赏
举报

楼主莫非是连一点点代码都没有写??
或者是什么都不会呢?
如果你有现成的代码,调试不通,或许帮你看看会比较简单些.

熊孩子开学喽 2008-07-21

打赏
举报

连接数据库之后,打开数据表,一条记录一条记录读,然后按照字段逐个填到GRID里面去.
导出的话么,用EXCEL对象,再按照GRID一格一格写进EXCEL再保存,看明白了吧?

这些东西论坛上都有现成的代码的.楼主自己稍微花点力气搜索一下就有了

MOTOHEBE 2008-07-16

打赏
举报

你搞错了，我是要把sql数据库中的所有数据都在MSHFlexGrid1中全部显示出来？然后将显示出来的数据进行导出，导出到excel？看明白了吧？

fvflove 2008-07-13

打赏
举报

'这个是增加至ListView中的.
Private Sub Command1_Click()
Dim Item As ListItem
ListView1.View = lvwReport
For i = 1 To MSHFlexGrid1.Cols - 1
ListView1.ColumnHeaders.Add , , "第" & i & "列"
Next

For i = 1 To MSHFlexGrid1.Rows - 1
Set Item = ListView1.ListItems.Add(, , MSHFlexGrid1.TextMatrix(i, 1))
For j = 2 To MSHFlexGrid1.Cols - 1
Item.SubItems(j - 1) = MSHFlexGrid1.TextMatrix(i, j)
Next
Next
End Sub

'这个是增加至List1中的,因List1中只能有一列,所以就只增加MSHFlexGrid1的第一列
Private Sub Command2_Click()
For i = 1 To MSHFlexGrid1.Rows - 1
list1.AddItem MSHFlexGrid1.TextMatrix(i, 1)
Next
End Sub

MOTOHEBE 2008-07-10

打赏
举报

最多就几千条，不会超过1万的，放心！
MSHFlexGrid1如何将sql数据库中的数据全部显示出来？如何将显示出来的数据进行导出，导出到excel？

lonet 2008-07-10

打赏
举报

超过65335会死的！！！

MSHFlexGrid1如何将sql数据库中的数据全部显示出来？如何将显示出来的数据进行导出，导出到excel？

相关推荐