Sub Openfile()
Set mysheet = CreateObject("Excel.Application")
mysheet.Workbooks.Open ("D:\继电保护整定及故障仿真\myexcel.xls")
mysheet.Visible = True '加上这一句，就可以让打开的文件显示出来。
Dim k As Integer
Dim z As Integer
Dim a As Integer
mysheet.Cells(1, 1) = "类 别"
mysheet.Range(Cells(1, 1), Cells(1, 2)).Merge
mysheet.Range(Cells(1, 1), Cells(2, 1)).Merge
mysheet.Cells(1, 3) = "定 值"
mysheet.Cells(2, 3) = "序号"
For a = 3 To 6 '合并单元格
mysheet.Range(Cells(1, a), Cells(1, a + 1)).Merge
Next a
mysheet.Cells(2, 4) = "名 称"
mysheet.Cells(2, 7) = "符号"
Range("A1:J46").Borders.LineStyle = xlContinuous
End Sub
这是代码
推荐回答
Sub Openfile() dim MyExcel as excel.appliaction dim Mysheet as excel.sheets Set myExcel = CreateObject("Excel.Application") set mySheet=myExcel.sheets mysheet.Workbooks.Open ("D:\继电保护整定及故障仿真\myexcel.xls") mysheet.Visible = True '加上这一句，就可以让打开的文件显示出来。 Dim k As Integer Dim z As Integer Dim a As Integer mysheet.Cells(1, 1) = "类 别" mysheet.Range(Cells(1, 1), Cells(1, 2)).Merge mysheet.Range(Cells(1, 1), Cells(2, 1)).Merge mysheet.Cells(1, 3) = "定 值" mysheet.Cells(2, 3) = "序号" For a = 3 To 6 '合并单元格 mysheet.Range(Cells(1, a), Cells(1, a + 1)).Merge Next a mysheet.Cells(2, 4) = "名 称" mysheet.Cells(2, 7) = "符号"Range("A1:J46").Borders.LineStyle = xlContinuous End Sub