作者:乔山办公网日期:
返回目录:excel表格制作
'引用:百
'添加对该对象的引用度 工程菜单-->引用,找到专 Microsoft Scripting Runtime
'引用microsoft Excel 14.0 object library
'
Dim elApp As Excel.Application
Dim elBooks As Excel.Workbook
Dim ekSheet As Excel.Worksheet
Dim TblMap_Card '创建一属个变量
Private Sub Command1_Click()
Dim i As Integer
openEl
Set dic = CreateObject("Scripting.Dictionary")
'MsgBox ekSheet.Cells(Rows.Count, 1).End(3).Row
For i = 2 To ekSheet.Cells(Rows.Count, 1).End(3).Row
If dic.Exists(ekSheet.Cells(i, 2).Value) Then
先把excel文件放到指定的路径
然后逐行读取
最后赋值到list中
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlRange As Excel.Range
Dim strTmp As String = ""
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Open(txtfileName.Text)
xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlRange = xlSheet.Cells(1, 1)
strTmp = xlRange.Value'读取第知一道行第一列值,其它的你自己可以专写
xlApp.Application.Visible = False
xlBook.Close()
xlApp = Nothing'"交还属控制给Excel
xlBook = Nothing
xlSheet = Nothing
Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Dim Tex As String
Dim ln As String
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Dim x As Integer
CD.ShowOpen
List2.MousePointer = 11
Open CD.Filename For Input As 1
Do Until EOF(1)
Line Input #1, ln
Tex = Tex & ln & vbCrLf
Loop
'判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用e69da5e887aa7a64334类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open(CD.Filename) '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
For x = 1 To 4
List2.AddItem xlsheet.Cells(1, x) '给单元格1行驶列赋值
Next x
Close 1
List2.MousePointer = 0
Tex = ""
End Sub
代码是实现对excel操作的excel.application
还有如
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