以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  SaveExcel导出问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81794)

--  作者:李睿涵
--  发布时间:2016/3/6 13:03:00
--  SaveExcel导出问题
我窗体一个sqltable,用saveexcel导出到excel里
想给导出的表格留出顶部2行,用于写标题
请问该如何操作?

--  作者:fjlclxj
--  发布时间:2016/3/6 13:43:00
--  
导出后用MSExcel.Application
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fname)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(sname)
Dim Rg As MSExcel.Range = Ws.Range("A1") \'以这个指定的单元格为基准
Rg.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)\'在基准单元格上面插入一行
\'App.Visible = True

Rg = Ws.Range("A1:o1")
App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示
Rg.Merge \'合并指定区域的单元格
Rg.HorizontalAlignment = MSExcel.Constants.xlCenter \'水平居中
Rg.VerticalAlignment = MSExcel.Constants.xlCenter \'垂直居中
With Rg.Font
.Name = "黑体" \'字体
.Size = 20 \'字号
.Bold = True
End With
Rg.RowHeight = 40 \'行高40磅
Rg.Value = "这是标题"
Wb.Save
App.Quit

--  作者:fjlclxj
--  发布时间:2016/3/6 13:45:00
--  
fname excel文件名
sname sheet表名

--  作者:大红袍
--  发布时间:2016/3/6 13:54:00
--  

导出以后,重新打开excel,增加两行

 

http://www.foxtable.com/help/topics/2121.htm