在线等,MsflexGrid的问题,

chinagkk1984 2004-11-02 12:05:35
如何把MsflexGrid里的内容输出到Execel里,希望能具体给一个例子,在线等当中
...全文
89 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinagkk1984 2004-11-02
  • 打赏
  • 举报
回复
好了,试了,可以了,OK
sloven 2004-11-02
  • 打赏
  • 举报
回复
晚了,上面已经给出了。
chinagkk1984 2004-11-02
  • 打赏
  • 举报
回复
是不是要什么控件的啊!
outorenter 2004-11-02
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
'导出
Dim Mrows, Mcols As Integer
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim i, j As Long
Mrows = MSHFlexGrid1.Rows
Mcols = MSHFlexGrid1.Cols

On Error GoTo err

Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets("Sheet1")

xlApp.Visible = True
xlApp.UserControl = True

For i = 1 To Mrows
For j = 1 To Mcols - 1
xlWs.Cells(i, j).Value = MSHFlexGrid1.TextMatrix(i - 1, j)
Next
Next

xlApp.Selection.CurrentRegion.Columns.AutoFit
xlApp.Selection.CurrentRegion.Rows.AutoFit

Set xlWs = Nothing
Set xlWb = Nothing
Set xlApp = Nothing

Exit Sub

err:
MsgBox "不能导出,请检查是否正确安装了Microsoft Excel", vbExclamation, "LBWU"
End Sub

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧