Read & Write naar Excel?

Status
Niet open voor verdere reacties.
T

tierens

Gebruiker
Lid geworden
2 feb 2012
Berichten
37
Hallo

Ik ben een visual basic beginner en werk met Visual Studio 2008.

Zou er iemand een zeer eenvoudig voorbeeldje kunnen geven om text van en naar een Excel bestand te schrijven vanuit VB.

En mss hoe te navigeren??? (hoe ik de juiste cel kan kiezen)

Dank bij voorbaat! :thumb:
 
Ik had die topic al eens bekeken maar de voorbeelden zijn me nog te ingewikkeld.

Wat ik zoek is een basis voorbeeld om met een knop de gegevens van een textvak in 1 bepaalde cel op te slaan, en daarna weer uit te lezen naar een label met een andere knop. ZEER eenvoudig dus! :-)
Maar dan kan ik daar op verder oefenen hé...
 
Laatst bewerkt:
Hier staat een eenvoudig voorbeeld van en naar excel , even aanpassen naar eigen wil.
Op de site staan nog meer dingen om te oefenen.

Code: 
http://www.visual-basic-tutorials.com/WriteToExcel2007.php
 
Goeie site!

Wel al probleem nu...
Ik heb de volgende code: en krijg een foutmelding bij het opslaan bij "D:\Test.xls". (System.NullReferenceException was unhandled)
In mijn D schijf heb ik een exelbestand geplaatst dat "Test" noemd.
Wat doe ik dan fout??


Public Class Form1
Dim APP As Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

workbook = APP.Workbooks.Open("D:\Test.xls")
worksheet = workbook.Sheets.Item(1)

TextBox1.Text = worksheet.Cells(1, 1).Value
TextBox2.Text = worksheet.Cells(1, 2).Value
APP.ActiveWorkbook.Close(False, "D:\Test.xls")
APP.Quit()

workbook = APP.Workbooks.Open("D:\Test.xls")
worksheet = workbook.Sheets.Item(1)
worksheet.Cells(1, 1).Value = TextBox1.Text
worksheet.Cells(1, 2).Value = TextBox2.Text
workbook.Close(SaveChanges:=True)
APP.Quit()

End Sub
End Class
 
Laatst bewerkt:
De regel in het rood...


Public Class Form1
Dim APP As Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

workbook = APP.Workbooks.Open("D:\Test.xls")
worksheet = workbook.Sheets.Item(1)

TextBox1.Text = worksheet.Cells(1, 1).Value
TextBox2.Text = worksheet.Cells(1, 2).Value
APP.ActiveWorkbook.Close(False, "D:\Test.xls")
APP.Quit()

workbook = APP.Workbooks.Open("D:\Test.xls")
worksheet = workbook.Sheets.Item(1)
worksheet.Cells(1, 1).Value = TextBox1.Text
worksheet.Cells(1, 2).Value = TextBox2.Text
workbook.Close(SaveChanges:=True)
APP.Quit()

End Sub
End Class
 
En je weet zeker dat het niet eindigt met XLSX ?
 
OPGELOST!! :d

Een heel verhaal:
Ik had namelijk Excel 2003 en 2007 op m'n computer staan.
De code die ik had was voor Excel 2003, die werkt niet, hoe dat komt weet ik nog niet..
Ik heb nu code voor Excel 2007 gebruikt, Excel 2003 er af gegooid, de code voor Excel 2007 ingevoerd, de "Microsoft Excel 12.0 Object Library" toegevoegd en een fout uit het de code van het voorbeeld uit (http://www.visual-basic-tutorials.com/WriteToExcel2007.php) gehaald.
En nu werkt het! :thumb:

DANK VOOR DE HULP! :)

Ik zet de code even hieronder voor nakomelingen...

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
Dim APP As Excel.Application
Dim worksheet As Excel.Worksheet
Dim workbook As Excel.Workbook

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

APP = New Excel.ApplicationClass
workbook = APP.Workbooks.Open("Test xlsx.xlsx")
worksheet = workbook.Worksheets("Blad1")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = worksheet.Cells(1, 1).Value
TextBox2.Text = worksheet.Cells(1, 2).Value

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

worksheet.Cells(1, 1).Value = TextBox1.Text
worksheet.Cells(1, 2).Value = TextBox2.Text

End Sub

Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

workbook.Save()
workbook.Close()
APP.Quit()

End Sub

End Class
 

Bijlagen

  • Knipsel.JPG
    Knipsel.JPG
    16,5 KB · Weergaven: 47
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan