回复：MSFlexGrid控件怎么打印另存EXCEL和清空-技术论坛-工业支持中心-西门子中国

回复：MSFlexGrid控件怎么打印另存EXCEL和清空

liangmm00112233

帖子

1
精华

0
被关注

0

论坛等级：新手

注册时间：2020-11-27

普通如何晋级?

发布于 2021-08-12 16:52:04

9楼

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim ExcelApp

Dim ExcelBook

Dim ExcelSheet

Dim MSFlexGrid1

Dim i,irow,ICOL,t

Dim z,k,filename,rptname

Set MSFlexGrid1 = ScreenItems("MSFlexGrid1")

Set ExcelApp = CreateObject("Excel.Application")

Set ExcelBook = ExcelApp.Workbooks.Add

Set ExcelSheet = ExcelBook.Worksheets(1)

rptname=MSFlexGrid1.TextMatrix(0, 0)

ExcelApp.Visible = True

If MSFlexGrid1.Cols = 3 Then

ExcelSheet.Range("A1:C1").Merge

End If

If MSFlexGrid1.Cols = 4 Then

ExcelSheet.Range("A1:D1").Merge

End If

If MSFlexGrid1.Cols = 5 Then

ExcelSheet.Range("A1:E1").Merge

End If

If MSFlexGrid1.Cols = 6 Then

ExcelSheet.Range("A1:F1").Merge

End If

If MSFlexGrid1.Cols = 7 Then

ExcelSheet.Range("A1:G1").Merge

End If

If MSFlexGrid1.Cols = 8 Then

ExcelSheet.Range("A1:H1").Merge

End If

If MSFlexGrid1.Cols = 9 Then

ExcelSheet.Range("A1:I1").Merge

End If

If MSFlexGrid1.Cols = 10 Then

ExcelSheet.Range("A1:J1").Merge

End If

If MSFlexGrid1.Cols = 11 Then

ExcelSheet.Range("A1:K1").Merge

End If

If MSFlexGrid1.Cols = 12 Then

ExcelSheet.Range("A1:L1").Merge

End If

If MSFlexGrid1.Cols = 13 Then

ExcelSheet.Range("A1:M1").Merge

End If

If MSFlexGrid1.Cols = 14 Then

ExcelSheet.Range("A1:N1").Merge

End If

If MSFlexGrid1.Cols = 15 Then

ExcelSheet.Range("A1:O1").Merge

End If

If MSFlexGrid1.Cols = 16 Then

ExcelSheet.Range("A1:P1").Merge

End If

If MSFlexGrid1.Cols = 17 Then

ExcelSheet.Range("A1:Q1").Merge

End If

If MSFlexGrid1.Cols = 18 Then

ExcelSheet.Range("A1:R1").Merge

End If

If MSFlexGrid1.Cols = 19 Then

ExcelSheet.Range("A1:S1").Merge

End If

If MSFlexGrid1.Cols = 20 Then

ExcelSheet.Range("A1:T1").Merge

End If

For irow = 0 To MSFlexGrid1.Rows - 1

For ICOL = 0 To MSFlexGrid1.Cols - 1

z=MSFlexGrid1.Rows

ExcelSheet.Cells(irow + 1,icol+1)=Trim(MSFlexGrid1.TextMatrix(irow, icol))

If MSFlexGrid1.Cols = 3 Then

ExcelSheet.Range( "A1:C"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:C"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:C"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:C"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 4 Then

ExcelSheet.Range( "A1:D"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:D"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:D"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:D"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 5 Then

ExcelSheet.Range( "A1:E"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:E"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:E"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:E"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 6 Then

ExcelSheet.Range( "A1:F"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:F"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:F"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:F"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 7 Then

ExcelSheet.Range( "A1:G"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:G"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:G"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:G"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 8 Then

ExcelSheet.Range( "A1:H"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:H"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:H"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:H"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 9 Then

ExcelSheet.Range( "A1:I"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:I"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:I"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:I"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 10 Then

ExcelSheet.Range( "A1:J"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:J"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:J"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:J"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 11 Then

ExcelSheet.Range( "A1:K"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:K"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:K"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:K"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 12 Then

ExcelSheet.Range( "A1:L"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:L"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:L"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:L"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 13 Then

ExcelSheet.Range( "A1:M"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:M"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:M"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:M"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 14 Then

ExcelSheet.Range( "A1:N"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:N"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:N"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:N"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 15 Then

ExcelSheet.Range( "A1:O"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:O"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:O"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:O"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 16 Then

ExcelSheet.Range( "A1:P"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:P"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:P"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:P"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 17 Then

ExcelSheet.Range( "A1:Q"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:Q"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:Q"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:Q"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 18 Then

ExcelSheet.Range( "A1:R"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:R"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:R"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:R"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 19 Then

ExcelSheet.Range( "A1:S"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:S"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:S"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:S"&z&"").Borders(4).Weight =2

End If

If MSFlexGrid1.Cols = 20 Then

ExcelSheet.Range( "A1:T"&z&"").Borders(1).Weight =2

ExcelSheet.Range( "A1:T"&z&"").Borders(2).Weight =2

ExcelSheet.Range( "A1:T"&z&"").Borders(3).Weight =2

ExcelSheet.Range( "A1:T"&z&"").Borders(4).Weight =2

End If

ExcelSheet.Rows(1).RowHeight = 0.75/0.035

ExcelSheet.Cells.EntireColumn.AutoFit

ExcelSheet.Rows(1).Font.Name = "宋体"

ExcelSheet.Rows(1).Font.Bold = True

ExcelSheet.Rows(1).Font.Size = 16

ExcelSheet.Cells.HorizontalAlignment =3

'ExcelSheet.PageSetup.TopMargin = 2/0.

编辑推荐：关闭

请填写推广理由：

活动公告查看全部公告>

「技术论坛」、「找答案」关于 AI 辅助创作内容的使用规范

本版热门话题

SIMATIC WinCC / Panel

共有32644条技术帖

更多

评选标准

被评为精华帖！

快扫描右侧二维码晒一晒吧！

再发帖或跟帖交流2条，就能晋升VIP啦！开启更多专属权限！

分享
只看
楼主

X

您收到0封站内信：

×

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。

移动端入口

技术论坛

• 产品分类

自动化系统

驱动技术

数控系统

低压电气

传感器与通讯

谈天说地

• 咱工程师的故事

咱工程师的故事

1847大咖专栏

特别专题

• 培训与认证答疑专区

培训与认证答疑专区

• 服务合作伙伴专区

服务合作伙伴专区

回复：MSFlexGrid控件怎么打印另存EXCEL和清空

liangmm00112233

1

0

0

活动公告查看全部公告>

热门视频，猜你喜欢

本版热门话题

SIMATIC WinCC / Panel

相关推荐

热门标签

相关帖子推荐

被评为精华帖！

下载中心

全球技术资源

1847工业学习平台

培训与认证

技术论坛

找答案

售后服务

支持中心网站重要声明

20秒帮我们优化支持中心！

热门搜索

移动端入口

@CurrentUser.NickName@

技术论坛

• 产品分类

自动化系统

驱动技术

数控系统

低压电气

传感器与通讯

谈天说地

• 咱工程师的故事

咱工程师的故事

1847大咖专栏

特别专题

• 培训与认证答疑专区

培训与认证答疑专区

• 服务合作伙伴专区

服务合作伙伴专区

回复：MSFlexGrid控件怎么打印另存EXCEL和清空

liangmm00112233

1

0

0

活动公告 查看全部公告>

1,835,856 条 海量精彩技术内容

100,000+ 网友与你交流

热门视频，猜你喜欢

本版热门话题

SIMATIC WinCC / Panel

相关推荐

热门标签

相关帖子推荐

被评为精华帖！

下载中心

全球技术资源

1847工业学习平台

培训与认证

技术论坛

找答案

售后服务

支持中心网站重要声明

20秒帮我们优化支持中心！

活动公告查看全部公告>

1,835,856 条
海量精彩技术内容