vb.net 对excel文件进行操作

63 阅读 0 评论 42 点赞

我是靠谱客的博主激情摩托，这篇文章主要介绍vb.net 对excel文件进行操作，现在分享给大家，希望可以做个参考。

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim xlapp As excel.Application
Dim xlbook As excel.Workbook '工作表
Dim xlsheet As excel.Worksheet '工作簿
Dim sheetname As String
xlapp = CreateObject("Excel.Application")
xlbook = xlapp.Workbooks.Open("C:UsersAdministratorDesktopxxx.xls") '打开已经存在的EXCEL文件
xlapp.Visible = False '设置EXCEL对象可见（或不可见）
xlapp.DisplayAlerts = False
sheetname = xlbook.Worksheets(1).Name
Dim x = xlapp.Workbooks(1).Sheets(sheetname).range("K" + (8).ToString, Type.Missing).Text.ToString()
'按照回车进行分割
Dim s() = Split(x, vbLf)
For i = 0 To UBound(s)
MsgBox(s(i))
Next
End Sub
End Class