先在此记着,正在研究中:D
以下是初试成功的代码段
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
er.Value = "江阴市无缝先见之明"
ef.Visible = True '2005-2-25得到了预期的效果
'总的说来,目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)
2005-2-26
今天继续昨天的格式设置问题
才发现,格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizontalalignment两个属性来设置上下对齐和左右对齐
在非页面设置上当然得用到worksheet
es.PageSetup.CenterFooter="不知道"
这一句测试未通过
以下是初试成功的代码段
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
er.Value = "江阴市无缝先见之明"
ef.Visible = True '2005-2-25得到了预期的效果
'总的说来,目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)
2005-2-26
今天继续昨天的格式设置问题
才发现,格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizontalalignment两个属性来设置上下对齐和左右对齐
在非页面设置上当然得用到worksheet
es.PageSetup.CenterFooter="不知道"
这一句测试未通过