怪!VB导出数据EXCEL连续操作竟不能设置格式,该如何处理
怪!VB导出数据EXCEL连续操作竟不能设置格式
用VB导出数据到EXCEL,窗口第一次运行导出的数据格式(自定义字体,合并单元格)正常,第二次\第三次运行窗口进行导出时,竟不能按照自定义格式进行导出,请大哥们帮忙看看.代码如下:
private sub command3_click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject( "Excel.Application ")
On Error Resume Next
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlSheet.Activate
If Combo3.Text = "第一季度 " And Option2.Value = True Then
'处理数据,填充Excel表
xlSheet.Range(Cells(1, 1), Cells(1, 9)).Merge '合并单元格
xlSheet.Cells(1, 1) = "资金发放明细表 "
xlSheet.Range(Cells(1, 1), Cells(1, 9)).Characters.Font.Name = "黑体 " '设置标题为黑体,18号
xlSheet.Range(Cells(1, 1), Cells(1, 9)).Characters.Font.Size = 18
xlSheet.Rows.RowHeight = 21
xlSheet.Range(Cells(2, 1), Cells(2, 256)).Characters.Font.Name = "宋体 " '设置表头为宋体,10号,加粗
用VB导出数据到EXCEL,窗口第一次运行导出的数据格式(自定义字体,合并单元格)正常,第二次\第三次运行窗口进行导出时,竟不能按照自定义格式进行导出,请大哥们帮忙看看.代码如下:
private sub command3_click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject( "Excel.Application ")
On Error Resume Next
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlSheet.Activate
If Combo3.Text = "第一季度 " And Option2.Value = True Then
'处理数据,填充Excel表
xlSheet.Range(Cells(1, 1), Cells(1, 9)).Merge '合并单元格
xlSheet.Cells(1, 1) = "资金发放明细表 "
xlSheet.Range(Cells(1, 1), Cells(1, 9)).Characters.Font.Name = "黑体 " '设置标题为黑体,18号
xlSheet.Range(Cells(1, 1), Cells(1, 9)).Characters.Font.Size = 18
xlSheet.Rows.RowHeight = 21
xlSheet.Range(Cells(2, 1), Cells(2, 256)).Characters.Font.Name = "宋体 " '设置表头为宋体,10号,加粗