EXCEL BLATT INNERHALB VB FORM ANZUSEHEN

Submitted by techrev on Tue, 03/27/2018 - 07:48
excel inside vb form

Schritt 1: - EXCEL-DATEI ZUR HTML-DATEI KONVERTIEREN

Schritt 2: - DISPLAY INSIDE WEB-BROWSER

 

Benötigte Bibliotheken  (Libraries)

Imports System
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core
Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel
 

Erstellen Sie einen Menüeintrag / eine Schaltfläche und fügen Sie unter Code ein

 

        Dim curFile3 As String = "E:\Excel-in-VB\copy\excel-vb.xlsx"
        Dim curFile4 As String = "E:\Excel-in-VB\excel-vb.html"
        If (File.Exists(curFile4)) Then

        My.Computer.FileSystem.DeleteFile("E:\Excel-in-VB\excel-vb.html")

        End If
        If (File.Exists(curFile3)) Then

        My.Computer.FileSystem.DeleteFile("E:\Excel-in-VB\copy\excel-vb.xlsx")

       End If
       My.Computer.FileSystem.CopyFile("E:\Excel-in-VB\excel-vb.xlsx", "E:\Excel-in-VB\copy\excel-vb.xlsx")

        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet

        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Open("E:\Excel-in-VB\copy\excel-vb.xlsx")
        xlWorkSheet = xlWorkBook.Worksheets("Sheet1")

        xlWorkBook.Saved = True
        xlWorkBook.SaveAs(Filename:="E:\Excel-in-VB\excel-vb.html", FileFormat:=Microsoft.Office.Interop.Excel.XlFileFormat.xlHtml)
        xlWorkBook.Saved = True
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        WebBrowser1.Navigate("E:\Excel-in-VB\excel-vb.html")

 

einfügen

Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
End Sub

 

Erstellen Sie eine Excel-Datei excel-vba.xlsx in Laufwerk E (ändern Sie entsprechend Ihrem PC oder fügen Sie eine Dateiopen-Controlbox ein)
Erstellen Sie einen Ordner "Kopieren" in Laufwerk E
Speichern und ausführen

Tags