哪位高手写过这样的过程:
将含有合并单元格的MSHFlexGrid中的数据写入Excel中,在Excel中也实现单元格的合并。如果能将类似的代码借给俺看一看,俺是实在感激不过了,俺还给分的!
将含有合并单元格的MSHFlexGrid中的数据写入Excel中,在Excel中也实现单元格的合并。如果能将类似的代码借给俺看一看,俺是实在感激不过了,俺还给分的!
解决方案 »
- 怎样可以得到office 对象的开发帮助?
- 怎样获取远程桌面用户的IP地址
- 我想到网上下载一个类似现成的
- 服务端程序采用 winsock 控件数组(使用TCP协议),多个用户(例如10个)同时发送请求给服务端程序,服务端程序是否可以同时响应10个用户
- 请问在vb中如何实现延时几秒钟呢?
- #100分问题:如何直接读取内存中的位图数据并贴到窗口中?(bitblt和SetDIBitsToDevice函数那个耗资源少?)
- 关于打包的问题
- 怎么把一个String类型变量,写到一文件中?对原文件内容覆盖掉
- 我在ACCESS中用VBA写了一个东西,在我的机器上运行正常,但这个库考到别人的机器上,里面很多函数(如LEFT、FORMAT等)都不能用了。重新安装了OFFICE2000也不行,怎么回事呢?
- 什么样对控件打印进行控制
- 日期字段如果什么都没写该值应该等于什么?
- 老问题:在客户端用ADO实现sql与access之间数据互传?(高分相送)
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 Rs_Dzgl_Receipt
If .RecordCount < 1 Then
MsgBox ("没有记录!")
Exit Sub
End If
xlSheet.Cells(1, 4).Value = .Fields("bt")
xlSheet.Cells(2, 1).Value = .Fields("invoice")
xlSheet.Cells(2, 9).Value = .Fields("packdate")
xlSheet.Cells(3, 1).Value = .Fields("")
'合并单元格
Dim nIcol As Integer
xlSheet.Range(xlSheet.Cells(3, 1), xlSheet.Cells(5, 9)).Select
With xlApp.Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, 9)).Select
With xlApp.Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
'网格线
With xlSheet
.Range(.Cells(1, 1), .Cells(1, 9)).Font.Name = "黑体"
'设标题为黑体字
.Range(.Cells(1, 1), .Cells(1, 9)).Font.Bold = True
'标题字体加粗
.Range(.Cells(1, 1), .Cells(1, 9)).Borders.LineStyle = xlContinuous
'设表格边框样式
End With
'显示表格
Dim ExclFileName As String
ExclFileName = App.Path & "\箱单" & Text1(1).Text & ".xls"
If Dir(ExclFileName) <> "" Then
Kill ExclFileName
End If
xlSheet.SaveAs (ExclFileName)
xlApp.Application.Visible = True
'交还控制给Excel
xlSheet.PrintPreview
' xlApp.Application.Quit
' xlApp.Quit
End With
给分!!