VB中怎么样将Excel的数据读取出来使用

发布网友 发布时间：2022-05-06 03:47

我来回答

共3个回答

热心网友 时间：2022-06-28 15:28

调用excel要首先在引用中excel

曾经做的一个调用excel代码：

Dim xlapp As New Excel.Application

Dim xlbook As New Excel.Workbook

Dim xlsheet As New Excel.Worksheet

Dim rs As New ADODB.Recordset

Dim rs1 As New ADODB.Recordset

Dim i As Integer, j As Integer, n As Integer

Dim str_tmp As String, str_tmp1 As String

Select Case Me.cmd_qd.Caption

    Case "下一步"

        If txt_lj.Text = "" Then MsgBox "请选择要导入的文件！", vbOKOnly, "教务管理简化系统": pb.Visible = False: Exit Sub

        Set xlapp = New Excel.Application

        Set xlbook = xlapp.Workbooks.Open(txt_lj.Text)

        '检查工作薄中工作表是否含指定的工作表

        For i = 1 To xlbook.Worksheets.Count

            If InStr("kmb,cjb", xlbook.Worksheets(i).Name) = 0 Then MsgBox "请按规定的工作表名做学生信息表！", vbOKOnly, "教务管理简化系统": xlbook.Close: Set xlbook = Nothing: xlapp.Quit: Set xlapp = Nothing: Unload Me: pb.Visible = False: pb.Visible = False: Exit Sub

        Next

        xlapp.DisplayAlerts = False

        pb.Visible = True: pb.Value = 0

        For i = 1 To 10000

            DoEvents

            pb.Value = Int(i / 1000)

        Next

        '导入科目表到临时表中

        Set xlsheet = xlbook.Worksheets("kmb")

        str_tmp = ""

        i = 1

        Do While xlsheet.Cells(1, i) <> ""

            Select Case xlsheet.Cells(1, i)

                Case "班代码"

                    xlsheet.Cells(1, i) = "bjm"

                Case "专业名称"

                    xlsheet.Cells(1, i) = "zy"

                Case "课程名称"

                    xlsheet.Cells(1, i) = "km"

                Case "学分"

                    xlsheet.Cells(1, i) = "xf"

                Case "课程性质"

                    xlsheet.Cells(1, i) = "kcxz"

            End Select

            If InStr("bjm,zy,km,xf,kcxz", xlsheet.Cells(1, i)) = 0 Then MsgBox "请按规定的字段名做教学计划表！", vbOKOnly, "教务管理简化系统": xlbook.Close: Set xlbook = Nothing: xlapp.Quit: Set xlapp = Nothing: Unload Me: pb.Visible = False: pb.Visible = False: Exit Sub

            If InStr(str_tmp, xlsheet.Cells(1, i)) <> 0 Then MsgBox "字段名重复！", vbOKOnly, "教务管理简化系统": xlbook.Close: Set xlbook = Nothing: xlapp.Quit: Set xlapp = Nothing: Unload Me: pb.Visible = False: pb.Visible = False: Exit Sub

            str_tmp = str_tmp & xlsheet.Cells(1, i)

            i = i + 1

        Loop

        pb.Value = 20

        i = 2

热心网友 时间：2022-06-28 15:29

热心网友 时间：2022-06-28 15:29