cptnalgren
Gebruiker
- Lid geworden
- 20 dec 2007
- Berichten
- 49
Beste,
Heb een probleem :
als ik deze code gebruik en ik wil het opgeslagen bestand openen zegt hij dat het geen geldig bestand is , wat doe ik verkeerd?
Hij bewaart het wel degelijk en schrijft er ook dingen in weg, alleen bij het openen krijg ik problemen
Heb een probleem :
Code:
Dim oExcel As New Microsoft.Office.Interop.Excel.Application
oExcel.Workbooks.Open("c:\Foodpads.xlsx")
oExcel.Visible = False
oExcel.Worksheets("Test").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
oExcel.Worksheets("Test").Cells(a + i, b + j) = _
dgvAfgewerkt(j, i).Value.ToString()
Next
Next
Dim naam As String
naam = InputBox("Geef Naam Van Bakker")
oExcel.SaveWorkspace("C:\Foodpads" & Format(Date.Now(), "yyyymmdd") & naam & ".xls")
MsgBox("C:\Foodpads" & Format(Date.Now(), "yyyymmdd") & naam & ".xls", MsgBoxStyle.OkOnly, "De bon werd opgeslagen onder de volgende naam")
oExcel.Quit()
als ik deze code gebruik en ik wil het opgeslagen bestand openen zegt hij dat het geen geldig bestand is , wat doe ik verkeerd?
Hij bewaart het wel degelijk en schrijft er ook dingen in weg, alleen bij het openen krijg ik problemen
Laatst bewerkt: