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应用类
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
Private Sub Command1_Click()
Dim xlApp As Object
Dim xlSheet As Object
Dim nValue As String
'建立Excel application对象
Set xlApp = CreateObject("Excel.Application")
'打开指定的工作薄
xlApp.Workbooks.Open FileName:='实际的Excel文件名（含路径）'
'设置工作表
Set xlSheet = xlApp.ActiveSheet
nValue=xlSheet.Range("A1").Value '取A1单元格内容到变量中
'Do something else.……
'关闭工作表，不重新保存
xlApp.ActiveWorkbook.Close False
'关闭Excel
xlApp.Quit
'释放内存
Set xlSheet = Nothing
Set xlApp = Nothing
End Sub
可以调用工作表函数vlookup、hlookup、lookup、match、find等函数进行查询。也可以使用for each或者for、do loop等循环语句进行查询。具体如何使用，要结合你的实际需要来看。这里无法逐一详细解答。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024