作者:乔山办公网日期:
返回目录:excel表格制作
这个我是e79fa5e98193e78988e69d83364这么实现的.要用到
Excel.Application
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '让EXCEL可见
Set xlbook = xlapp.Workbooks.Open(App.Path + "个人简历.xlt")
'打开工作簿,strDestination为一个EXCEL报表文件
Set xlsheet = xlbook.Worksheets(1) '设定工作表
这个有点像是vb6的、vb.net也有相应的方法的.总之是
excel.application 用到这个就可以了.必要的话导入excel的dll文件.
这样你就发现、可以用vb.net来对excel来操作.你可以查下微软的msdn、有具体的属性方法.
如:
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 = "gordon1117"
ef.Visible = True 目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizon
range 用来定位、
然后你可以循环把数据输出到指定了格式的excel文件里了吧、其实连格式都是可以程序控制的好好学下吧.
可以参考一下这篇文章
http://blog.csdn.net/hawordcheng/archive/2006/10/26/1351931.aspx
以下代码可实现要求:知
Dim app As New Excel.Application'定义道app为Excel应用程序
Dim book As Excel.Workbook'定义book为的工作簿
Dim sheet As Excel.Worksheet’定义sheet为的工作表
Private Sub Command1_Click()'点击command1按钮实现导入回
Set book = app.Workbooks.Add'新建book
Set sheet = book.Sheets(1)'新建sheets(1)
sheet.Range("A1").Value = Text1.Text'sheets(1)中A1赋值为text1内容答
sheet.Range("B1").Value = Text2.Text'sheets(1)中B1赋值为text2内容
End Sub
直接用Open语句即可!
app.Workbooks.Open(filename:="D:\xx.txt")
如果要指定分百隔符,比度如“a-b-c”,将a,b,c三个字专符分别存储到三个不同单元格,那么就要设置分隔符:
app.Workbooks.Open(filename:="D:\xx.txt",Format:=6,Delimiter:="-")
Format:=6表示允许自定义属分隔符
Delimiter:="-",如果Format:参数设置为6,那么指定分隔符为"-"