高分求：如何将listview表格中的内容导出到EXCEL2000文件中？

2003-12-09 05:26:14 104 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

死磕GMSSL通信-java/Netty系列（二） Netty-tcnative再linux编译比较好编译，但是再window编译，我尝试了各种办法，总是编译失败，所以我采用半自动的方式进行编译，Netty-tcnative会生成临时文件，直接用vs打开，设置openssl的头文件和静态库路径，然后生成静态库，静态库改个名字放到jar包里边，其实自动编译也是这个原理哈哈O(∩_∩)O。直接传输五个证书的路径吗，之前有的是说要转成x509之类的，转来转去的有点麻烦，这个是直接传输证书路径，由底层gmssl去解析，格式必须是pem格式。然而，若项目已依赖于。阅读详情

最好给个例子！

...全文

QUIC 协议域名封堵：核心原理、关键技术与实现路径（C/C++代码实现）随着 QUIC 协议在互联网领域的广泛应用，其基于 UDP 的传输特性与加密设计，打破了传统 TCP 协议下的域名封堵逻辑，给网络合规管理与安全防护带来新的技术难题。本文将脱离具体代码实现，聚焦 QUIC 协议域名封堵的核心原理、关键技术环节与实际落地路径，从协议特性本质出发，解析如何在遵循 RFC 9000、RFC 9001 等规范的前提下，实现对 QUIC 流量的精准域名封堵。阅读详情

tianhao123

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

Kain 2003-12-09

打赏
举报

mark

SoHo_Andy 2003-12-09

打赏
举报

'将listView中的数据导出到Excel的例子
'希望对你有帮助

Private Sub PrintToExcel()
On Error GoTo ErrTrap
Dim xlsApp As New Excel.Application

Dim xlsBook As New Excel.Workbook
Dim xlsSheet As New Excel.Worksheet
Dim i As Integer
Dim j As Integer
Dim xlsRow As Integer
Dim xlsCol As Integer

xlsCol = lsvShow.ColumnHeaders.Count - 3
xlsRow = 3

Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
xlsSheet.PageSetup.Orientation = xlLandscape '横向打印
frm_Wait.Show

xlsApp.Columns(1).NumberFormatLocal = "@"
'写入列名
For i = 1 To lsvShow.ColumnHeaders.Count - 3
xlsApp.Cells(xlsRow, i) = " " & Trim(lsvShow.ColumnHeaders(i).Text)
xlsApp.Columns(i).Select
xlsApp.Selection.ColumnWidth = lsvShow.ColumnHeaders(i).Width / 100
Next i
'xlsApp.Columns(1).AutoFit
xlsRow = xlsRow + 1
'写入列表内容
For i = 1 To lsvShow.ListItems.Count
xlsApp.Cells(xlsRow, 1) = Trim(lsvShow.ListItems(i).Text)
For j = 1 To lsvShow.ColumnHeaders.Count - 4
xlsApp.Cells(xlsRow, j + 1) = Trim(lsvShow.ListItems(i).SubItems(j))
xlsApp.Cells(xlsRow, j + 1).WrapText = True
Next j
xlsRow = xlsRow + 1
Next i

'写入标题和时间
xlsApp.Range(xlsApp.Cells(1, 1), xlsApp.Cells(1, xlsCol)).Select
With xlsApp.Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
xlsApp.Cells(1, 1) = labKeyName.Caption
xlsApp.Cells(1, 1).Font.Size = 24
xlsApp.Cells(1, 1).Font.Bold = True
xlsApp.Cells(2, 1) = "打印时间：" & Date

'设置边框
xlsApp.Range(xlsApp.Cells(3, 1), xlsApp.Cells(xlsRow, xlsCol)).Select
With xlsApp.Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With xlsApp.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlsApp.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With xlsApp.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With xlsApp.Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With xlsApp.Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
xlsApp.Visible = True
frm_Wait.Visible = False
Call VBA.AppActivate(xlsBook.Name)

On Error GoTo 0
Exit Sub
ErrTrap:
On Error GoTo 0
End Sub

高分求：如何将listview表格中的内容导出到EXCEL2000文件中？

相关推荐