VB.NET高手请进！一个很重要的问题！

在程序中，怎样实现：

    1.我用程序保存一个文件，然后打开这个文件，用的是我的软件。

    2.“我用程序保存一个文件，然后打开这个文件，用的是我的软

件。”，在打开文件的时候，怎么获取文件信息？

答案：根据格式的不同读取文件的方法也不同，如果是文本的话，可以使用流，如果是其他的，那就需要添加引用也就是驱动才可以读的到，比如excel 就需要驱动，Public Function Excel导入到数据库(ByVal Str文件名 As String) As DataTable
        Dim Dt As New DataTable
        Dim Str表中内容 As String = ""
        Dim b添加列 As Boolean = False
        Dim reange As Excel.Range
        Dim Irow, Icol As Integer
        Dim Irowcount, Icolcount As Integer
        Dim Fieldlen As String = "" '存字段长度值 
        Dim xlApp As Excel.Application
        xlApp = CreateObject("Excel.Application")
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        Dim Cells As Excel.Range
        xlBook = xlApp.Workbooks.Open(Str文件名)
        xlSheet = xlBook.Worksheets("sheet1")
        xlSheet.Activate()
        Cells = xlApp.Cells
        Try
            reange = xlSheet.Range(Cells(1, 1), Cells(65535, 255))
            Irowcount = xlSheet.UsedRange.Rows.Count
            Icolcount = xlSheet.UsedRange.Columns.Count
            For Irow = 1 To Irowcount
                If Irow = 1 Then
                    b添加列 = True
                End If
                For Icol = 0 To Icolcount - 1
                    If b添加列 = True Then
                        Dt.Columns.Add(A, GetType(String))
                        A = Chr(65 + Icol + 1)
                    Else
                        Exit For
                    End If
                Next
                b添加列 = False
                Dim Str列数组(Icolcount - 1) As String
                For Icol = 0 To Icolcount - 1
                    Fieldlen = reange.Range(Cells(Irow, Icol + 1), Cells(Irow, Icol + 1)).Value & ","
                    Str列数组(Icol) = Fieldlen
                Next
                Dt.Rows.Add(Str列数组)
            Next
        Catch ex As Exception
            xlApp.Quit()
            MsgBox("异常错误", MsgBoxStyle.Critical, "错误提示")
        End Try
        Return Dt
    End Function
这个方法是将excel电子表格转换成datatable希望对你有用

其他：你把你的保存格式和打开格式弄成一样就可以了,但不能和系统一样哦~呵呵

上一个：VB.NET读XML
下一个：请教VB.Net高手