道士类的小说:如何通过VB合并Excel单元格以及设置Excel行高?
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/30 21:17:58
各位高人:请教一下怎么才能运用VB合并Excel单元格以及设置Excel某一行的行高?请给出具体程序,谢谢!
如果我想把3,6,9,12........等行的第1格和第2格都合并起来,能用一条指令实现吗?
如果我想把3,6,9,12........等行的第1格和第2格都合并起来,能用一条指令实现吗?
首先在VB中引用microsoft excel object library
假设c盘根目录下有个1.xls的文件
…………
问题补充:
你的要求很简单,
一行指令恐怕不行,
最少要三行
代码如下:
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\1.xls")
Set xlSheet = xlBook.Worksheets(1) '引用第1张工作表
For i = 3 To 100 Step 3 '想到哪行就把100改成几
xlSheet.Range(Cells(i, 1), Cells(i, 2)).Merge '合并a1:b2单元格
Next
xlSheet.Rows(10).RowHeight = 100 '把第10行高度设为100
xlBook.Save
xlApp.Application.Quit
Set xlApp = Nothing '表忘释放引用
End Sub
运行一下,看看满足要求否。