用vba编程制作excel表格，报错是“451”，property let过程未定义，property get过程未返回对象，怎么改？

Question

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
这是代码

Answer 1

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追问

这样还是不行啊，运行第一句就报错，错误是用户为定义类型

追答

Sub Openfile()
dim MyExcel as new excel.appliaction
dim Mysheet as new 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