excel - 排序功能 Excel VB.Net

Question

我使用 Microsoft.Office.Interop.Excel 库。我所做的是在 excel 中输入警报 我不知道该怎么做是通过 vb.net 我按日期和时间订购了警报，这样它就可以向我显示第一次输入的最后一个警报。我不能使用宏，因为我已经尝试过使用模板，但它给了我错误，因为在另一台 PC 上他们使用 Open Office。有没有出现什么解决办法。非常感谢你的一切。一切顺利。

我附上了插入警报的代码。

Public Sub GuardarAlarmas()
    Dim fileTest As String = "C:\Users\DT SCADA\Desktop\Historicos\Alarmas\Año 2021\Alarmas 2021_11_noviembre.xlsm"
    Dim oExcel As Object
    Dim oBook As Workbook
    Dim oSheet As Worksheet
    oExcel = CreateObject("Excel.Application")
    If File.Exists(fileTest) Then
        oBook = oExcel.Workbooks.Open(Filename:="C:\Users\DT SCADA\Desktop\Historicos\Alarmas\Año 2021\Alarmas 2021_11_noviembre.xlsm", ReadOnly:=False)
    End If
    oSheet = oExcel.Worksheets(1)
    'Cuento las líneas escritas en cada fila y le pongo un +6 porque empiezo en B6 y si quiero escribir en B7,B8 y viceversa necesito ponerle el +6
    Dim paco = oSheet.Range("A6").CurrentRegion.Rows.Count + 6
    Console.WriteLine(paco.ToString)
    'Aquí recojo el texto de estado, descripción, hora y día
    oSheet.Range("A" + paco.ToString).Value = Date.Today
    oSheet.Range("B" + paco.ToString).Value = TimeOfDay
    oSheet.Range("C" + paco.ToString).Value = "ACTIVA"
    oSheet.Range("D" + paco.ToString).Value = "DESCRIPCIÓN"
    'Aquí pongo un borde negro en el Excel
    Dim Range = oSheet.Range("A" + paco.ToString + ":D" + paco.ToString)
    Range.Borders.Color = Color.Black
    oSheet.UsedRange.Select()
    oSheet.Sort.SortFields.Clear()
    oSheet.Sort.SortFields.Add(oSheet.UsedRange.Columns("A"), Excel.XlSortOn.xlSortOnValues, Excel.XlSortOrder.xlDescending, System.Type.Missing, Excel.XlSortDataOption.xlSortNormal)
    Dim sort = oSheet.Sort
    sort.SetRange(oSheet.Range("A6:D1200"))
    sort.Header = Excel.XlYesNoGuess.xlYes
    sort.MatchCase = False
    sort.Orientation = Microsoft.Office.Interop.Excel.XlSortOrientation.xlSortColumns
    sort.SortMethod = Microsoft.Office.Interop.Excel.XlSortMethod.xlPinYin
    sort.Apply()
    Try
        'Aquí uso el DisplayAlerts, para que directamente me confirme que deseo guardar el archivo.
        oExcel.DisplayAlerts = False
        'Aquí guardo todos los datos introducidos
        oBook.SaveAs(Filename:="C:\Users\DT SCADA\Desktop\Historicos\Alarmas\Año 2021\Alarmas 2021_11_noviembre.xlsm", AccessMode:=3, ConflictResolution:=2, Local:=True)
        'Aquí pongo el DisplayAlerts a true, por si acaso este queda invalidado en toda la aplicación.
        oExcel.DisplayAlerts = True
        oBook.Close()
        oExcel.Quit()
    Catch
        'Si hubiese algún error en excel, mataría todos los procesos.
        Dim pListOfProcesses() As Process
        Dim pExcelProcess As System.Diagnostics.Process
        pListOfProcesses = pExcelProcess.GetProcesses
        For Each pExcelProcess In pListOfProcesses
            If pExcelProcess.ProcessName.ToUpper = "EXCEL" Then
                pExcelProcess.Kill()
            End If
        Next
    End Try
End Sub

下载 Excel 警报

标签： excelvb.netvisual-studiosorting

Answer 1

我把解决方案留给你，最后我可以按照自己的意愿制造计算机。非常感谢大家的帮助。一切顺利。

  Public Sub GuardarAlarmas()
        'Creo la carpeta donde almacenare las alarmas de origen y la ruta del archivo del origen
        Dim MES = DateTime.Now.ToString("MM")
        Dim rutaDirectorioOrigen = FormMain.rutaHistoricoAlarmasOrigen + "Año " + DateTime.Now.Year.ToString
        My.Computer.FileSystem.CreateDirectory(rutaDirectorioOrigen)
        Dim rutaArchivoOrigen As String = rutaDirectorioOrigen + "\Alarmas " + DateTime.Now.Year.ToString + "_" + DateTime.Now.Month.ToString + "_" + MonthName(MES.ToUpper) + ".xlsm"
        'Creo la carpeta donde almacenaré las alarmas de destino y la ruta del archivo del destino
        Dim rutaDirectorioDestino = FormMain.rutaHistoricoAlarmasDestino + "Año " + DateTime.Now.Year.ToString
        My.Computer.FileSystem.CreateDirectory(rutaDirectorioDestino)
        Dim rutaArchivoDestino As String = rutaDirectorioDestino + "\Alarmas " + DateTime.Now.Year.ToString + "_" + DateTime.Now.Month.ToString + "_" + MonthName(MES.ToUpper) + ".xlsm"
        'Aqui declaro el objeto Aplicación excel, su libro y su hoja
        Dim oExcel As Object
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        'Inicializo la aplicacion Excel
        oExcel = CreateObject("Excel.Application")
        'Si no existe el archivo de origen en excel, cojo la plantilla creada en excel y luego creo el Archivo de Ruta de Origen
        If Not File.Exists(rutaArchivoOrigen) Then
            oBook = oExcel.Workbooks.Open(Filename:=FormMain.rutaHistoricoAlarmasOrigen + "PlantillaExcel.xlsm", ReadOnly:=False)
            oBook.SaveAs(Filename:=rutaArchivoOrigen, AccessMode:=3, ConflictResolution:=2, Local:=True)
            oBook.Close()
        End If
        'Si no existe el archivo de origen abro ese archivo
        If File.Exists(rutaArchivoOrigen) Then
            oBook = oExcel.Workbooks.Open(Filename:=rutaArchivoOrigen, ReadOnly:=False)
        End If
        'Elijo la primera hoja del excel
        oSheet = oExcel.Worksheets(1)
        'Cuento las líneas escritas en cada fila y le pongo un +6 porque empiezo en B6 y si quiero escribir en B7,B8 y viceversa necesito ponerle el +6
        Dim paco = oSheet.Range("B6").CurrentRegion.Rows.Count + 1
        'Aquí recojo el texto de estado, descripción, hora y día
        Me.Label_Texto_Alarma.Text = arrayTexto(Me.Label_Numero_Alarma.Text)
        Dim estado = Me.Label_Estado_Alarma.Text
        Dim descrip = Me.Label_Texto_Alarma.Text
        Dim hora = TimeOfDay
        Dim dia = Date.Today.Day.ToString
        'Introduzco los datos de la alarma
        oSheet.Range("B" + paco.ToString).Value = dia
        oSheet.Range("C" + paco.ToString).Value = hora
        oSheet.Range("D" + paco.ToString).Value = estado
        oSheet.Range("E" + paco.ToString).Value = descrip
        'Si el estado es ACTIVA, el color será rojo. Si es inactiva será Verde y si es acusada será NARANJA
        If (estado.Equals("ACTIVA")) Then
            oSheet.Range("B" + paco.ToString + ":E" + paco.ToString).Font.Color = Color.Red
        End If
        If (estado.Equals("INACTIVA")) Then
            oSheet.Range("B" + paco.ToString + ":E" + paco.ToString).Font.Color = Color.Green
        End If
        If (estado.Equals("ACUSADA")) Then
            oSheet.Range("B" + paco.ToString + ":E" + paco.ToString).Font.Color = Color.Orange
        End If
        'Aquí pongo un borde negro en el Excel
        Dim rangos = oSheet.Range("B" + paco.ToString + ":E" + paco.ToString)
        rangos.Borders.Color = Color.Black
        oSheet.Sort.SortFields.Clear()
        oSheet.UsedRange.Select()
        oSheet.Sort.SortFields.Add(oSheet.Range("B6:B1200"), Excel.XlSortOn.xlSortOnValues, Excel.XlSortOrder.xlDescending, System.Type.Missing, Excel.XlSortDataOption.xlSortNormal)
        oSheet.Sort.SortFields.Add(oSheet.Range("C6:C1200"), Excel.XlSortOn.xlSortOnValues, Excel.XlSortOrder.xlDescending, System.Type.Missing, Excel.XlSortDataOption.xlSortNormal)
        Dim sort = oSheet.Sort
        sort.SetRange(oSheet.Range("B6:E1200"))
        sort.Header = Excel.XlYesNoGuess.xlYes
        sort.MatchCase = False
        sort.Orientation = Microsoft.Office.Interop.Excel.XlSortOrientation.xlSortColumns
        sort.SortMethod = Microsoft.Office.Interop.Excel.XlSortMethod.xlPinYin
        sort.Apply()
        Try
            'Aquí uso el DisplayAlerts, para que directamente me confirme que deseo guardar el archivo.
            oExcel.DisplayAlerts = False
            'Aquí guardo todos los datos introducidos
            oBook.SaveAs(Filename:=rutaArchivoOrigen, AccessMode:=3, ConflictResolution:=2, Local:=True)
            oBook.SaveAs(Filename:=rutaArchivoDestino, AccessMode:=3, ConflictResolution:=2, Local:=True)
            'Aquí pongo el DisplayAlerts a true, por si acaso este queda invalidado en toda la aplicación.
            oExcel.DisplayAlerts = True
            oBook.Close()
            oExcel.Quit()
        Catch
            'Si hubiese algún error en excel, mataría todos los procesos.
            Dim pListOfProcesses() As Process
            Dim pExcelProcess As System.Diagnostics.Process
            pListOfProcesses = pExcelProcess.GetProcesses
            For Each pExcelProcess In pListOfProcesses
                If pExcelProcess.ProcessName.ToUpper = "EXCEL" Then
                    pExcelProcess.Kill()
                End If
            Next
        End Try
    End Sub
    Public WithEvents Label_Hora_Alarma As System.Windows.Forms.Label
End Class