Bewaren van excel via vb.net

[matthijsk]

This will do the trick:

LET OP! Het moet .xlsx zijn

 Dim oExcel As New Microsoft.Office.Interop.Excel.Application
        Dim _workbook As _Workbook
        _workbook = oExcel.Workbooks.Open("C:\Users\Matthijs Koopman\Downloads\Foodpads.xlsx")       
        _workbook.Worksheets("Test").cells(3, 2) = Date.Now()
        _workbook.SaveAs("C:\Users\Matthijs Koopman\Downloads\" & Format(Date.Now(), "yyyymmdd") & "test5" & ".xlsx")
        _workbook.Close()
        MsgBox("C:\Users\Matthijs Koopman\Downloads\" & Format(Date.Now(), "yyyymmdd") & "test1" & ".xls", MsgBoxStyle.OkOnly, "De bon werd opgeslagen onder de volgende naam")
        oExcel.Quit()
    End Sub

 

[cptnalgren]

  Dim oExcel As New Microsoft.Office.Interop.Excel.Application
        Dim OWorkbook As Microsoft.Office.Interop.Excel.Workbook
        OWorkbook = oExcel.Workbooks.Add
        oExcel.Visible = True
        OWorkbook.Worksheets("Blad1").cells(3, 2) = Date.Now()
        Dim i As Integer
        Dim j As Integer
        Dim a As Integer = 6
        Dim b As Integer = 1
        For i = 0 To dgvAfgewerkt.RowCount - 2
            For j = 0 To dgvAfgewerkt.ColumnCount - 1
                OWorkbook.Worksheets("Blad1").Cells(a + i, b + j) = _
                    dgvAfgewerkt(j, i).Value.ToString()
            Next
        Next
        Dim naam As String
        naam = InputBox("Geef Naam Van Bakker")
        OWorkbook.SaveAs("C:\Foodpads" & Format(Date.Now(), "yyyymmdd") & naam & ".xlsx")
        MsgBox("C:\Foodpads" & Format(Date.Now(), "yyyymmdd") & naam & ".xls", MsgBoxStyle.OkOnly, "De bon werd opgeslagen onder de volgende naam")
        
        OWorkbook.Close()

        oExcel.Quit()

Zo werkt het, dus moet ik gewoon elke keer de layout maken, maar dat valt wel mee

 

[cptnalgren]

iid, dank je wel

 

[matthijsk]

Geen probleem, dat is waar dit forum voor is toch.

My fav qote: "Aan kennis heb je niets, als je het niet deelt met anderen. Dan snappen ze immers toch niet wat je bedoelt"