Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlBook As Microsoft.Office.Interop.Excel.Workbook Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim this As Boolean = True
xlApp = New Microsoft.Office.Interop.Excel.Application If Not FileIO.FileSystem.FileExists("E:/001.xls") Then MsgBox("文件不存在!") Return End If
xlBook = xlApp.Workbooks.Open("E:/001.xls") xlSheet = xlBook.Worksheets(1) '用第一个sheet xlApp.ActiveWindow.DisplayGridlines = False
Dim i As Integer = 0 Dim j As Integer = 0 Dim strA As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim str As String = ""
str = TextBox1.Text.ToUpper i = str.IndexOf(":")
Dim strF As String = "" Dim strB As String = ""
strF = str.Substring(0,i) strB = str.Substring(i + 1,str.Length - i - 1)
For i = 0 To strF.Length - 1 If Char.IsNumber(strF.Chars(i)) Then Exit For Next Dim strFA As String = strF.Substring(0,i) Dim strFi As Integer = Integer.Parse(strF.Substring(i,strF.Length - 1))
For i = 0 To strB.Length - 1 If Char.IsNumber(strB.Chars(i)) Then Exit For Next Dim strBA As String = strB.Substring(0,i) Dim strBi As Integer = Integer.Parse(strB.Substring(i,strB.Length - 1))
Dim ddd As String Dim dx As String With xlSheet For j = strFi To strBi ddd = "" For i = Integer.Parse(strA.IndexOf(strFA)) + 1 To Integer.Parse(strA.IndexOf(strBA)) + 1 str = .Range(strA.Chars(i - 1) & String.Concat(j)).Value Dim ch As Char = " " If str = Nothing Then dx = New String(ch,20) '相当于设置每列数据的宽度=20 Else dx = New String(ch,(20 - str.Length - 1)) '相当于设置每列数据的宽度=20 End If str = str & dx ddd = ddd & str
Next ListBox1.Items.Add(ddd) Next End With xlBook.Save() xlBook.Close() xlApp.Quit() (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|