Vb.net Excel的读取

最新推荐文章于 2023-08-02 16:33:50 发布

weixin_33701617

最新推荐文章于 2023-08-02 16:33:50 发布

阅读量321

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/3471785/blog/1622867

版权

2019独角兽企业重金招聘Python工程师标准>>>

 XySelectControl1.Text = filename
        Dim xlsFile As New Excel.Application
        Dim xlsBook As Excel.Workbook
        Dim xlsSheet As Excel.Worksheet
        xlsBook = xlsFile.Workbooks.Open(filename)
        xlsSheet = xlsBook.Sheets("sheet1")
        Dim j As Integer = 1
        While (Convert.ToString(xlsSheet.Cells(j, 1).Value)) <> ""
            Dim xx = Convert.ToString(xlsSheet.Cells(j, 1).Value)
            j += 1
        End While
        Dim i As Integer
        For i = 2 To j - 1
            With GlobalClass.HttpAgent
                .ClearKey()
                .AddFormItem("mrsdocid", Txt_MrsDocId.Text)
                If Convert.ToString(xlsSheet.Cells(i, 1).Value) <> Nothing Then .AddFormItem("revision", Convert.ToString(xlsSheet.Cells(i, 1).Value))
                If Convert.ToString(xlsSheet.Cells(i, 2).Value) <> Nothing Then .AddFormItem("mrsnumber", Convert.ToString(xlsSheet.Cells(i, 2).Value))
                If Convert.ToString(xlsSheet.Cells(i, 3).Value) <> Nothing Then .AddFormItem("mpdemrno", Convert.ToString(xlsSheet.Cells(i, 3).Value))
                If Convert.ToString(xlsSheet.Cells(i, 4).Value) <> Nothing Then .AddFormItem("section", Convert.ToString(xlsSheet.Cells(i, 4).Value))
                If Convert.ToString(xlsSheet.Cells(i, 5).Value) <> Nothing Then .AddFormItem("mtopinterval", Convert.ToString(xlsSheet.Cells(i, 5).Value))
                If Convert.ToString(xlsSheet.Cells(i, 6).Value) <> Nothing Then .AddFormItem("repeatinterval", Convert.ToString(xlsSheet.Cells(i, 6).Value))
                If Convert.ToString(xlsSheet.Cells(i, 7).Value) <> Nothing Then .AddFormItem("auth", Convert.ToString(xlsSheet.Cells(i, 7).Value))
                If Convert.ToString(xlsSheet.Cells(i, 8).Value) <> Nothing Then .AddFormItem("revdescn", Convert.ToString(xlsSheet.Cells(i, 8).Value))
                If Convert.ToString(xlsSheet.Cells(i, 9).Value) <> Nothing Then .AddFormItem("revdesen", Convert.ToString(xlsSheet.Cells(i, 9).Value))
                If Convert.ToString(xlsSheet.Cells(i, 10).Value) <> Nothing Then .AddFormItem("temprevsion", Convert.ToString(xlsSheet.Cells(i, 10).Value))
                If Convert.ToString(xlsSheet.Cells(i, 11).Value) <> Nothing Then .AddFormItem("allrevsion", Convert.ToString(xlsSheet.Cells(i, 11).Value))
                If Convert.ToString(xlsSheet.Cells(i, 12).Value) <> Nothing Then .AddFormItem("revsionhistory", Convert.ToString(xlsSheet.Cells(i, 12).Value))
                If Convert.ToString(xlsSheet.Cells(i, 13).Value) <> Nothing Then .AddFormItem("remark", Convert.ToString(xlsSheet.Cells(i, 13).Value))
                .AddFormItem("mrsbase", GlobalClass.GUserObj.UserBase）
                .SetAction("MrsRevListAction", "importMrsDocInfo")

                Dim HtmlRtn As String = ""
                If GlobalClass.HttpAgent.NavigatorHtml(HtmlRtn) Then
                    Dim XyPraser As New XySoft.Ctrl.DataPraserClass
                    XyPraser.XyHttpPraser(HtmlRtn)
                    '刷新数据列表
                    Dim mrsDocInfoId = XyPraser.GetDataByName("mrsrevlistid")
                    Me.RefreshList(mrsDocInfoId, XyPraser.GetDataByName("mrsrevlistlist"))
                End If
            End With
        Next
        xlsBook.Close()
        xlsFile.Quit()

转载于:https://my.oschina.net/u/3471785/blog/1622867