Zelle aus Excel in VB einfügen

fritschi · 27. Juni 2014, 09:07

Hallo, ich habe Folgendes Problem: Ich habe mit Visual Basic Studio 2010 ein Programm geschrieben das eine Tonerverwaltung darstellt. Nun möchte ich eine Bestimme Zelle aus einem Excel Dokument in das Textfeld unter“ vor Entnahme “ in meiner Programmierung einfügen. Des Weiteren möchte ich die Eingegebenen Daten in ein bestehendes Excel Dokument EXportieren( Bei dem Klick auf absenden ) . Ist dies möglich? Wenn ja wie? Vielen Dank für eure Hilfe.

Cypress · 27. Juni 2014, 09:11

Guten Morgen,

VB.NET-Quellcode

Public Shared Sub ExcelReader(ByVal args As String())
Dim excelApp As New Microsoft.Office.Interop.Excel.Application()
excelApp.Visible = True
excelApp.Workbooks.Add()
Dim workSheet As Microsoft.Office.Interop.Excel._Worksheet = excelApp.ActiveSheet
workSheet.Cells(1, "A") = "Hallo"
workSheet.Cells(1, "B") = "Welt"
End Sub

Hier mal ein kleiner Denkanstoß

fritschi · 27. Juni 2014, 09:14

Vielen Dank ich werde mich damit auseinander setzen! :)Wo wird der Speicherort angegeben ?

Liebe Grüße Fritschi

Cypress · 27. Juni 2014, 09:25

VB.NET-Quellcode

Public Shared Sub excel()
Dim Excel1 As New Application
Dim txt As String
Try
Excel1.Workbooks.Open("C:\datei.xls")
txt = Excel1.Range("A2").Value()
MessageBox.Show(txt)
Catch ex As Exception
MessageBox.Show("Datei nicht vorhanden.")
Finally
Excel1.Application.Quit()
End Try
End Sub

fritschi · 27. Juni 2014, 10:20

Das mit der Messagebox funktioniert super, wie kann ich den wert in eine Textbox einfügen ? Danke

Cypress · 27. Juni 2014, 10:22

Des ist ganz einfach

VB.NET-Quellcode

Textbox1.Text = txt

fritschi · 27. Juni 2014, 10:24

Fehler 1 Auf einen Instanzmember einer Klasse kann nicht ohne explizite Instanz einer Klasse von einer/m freigegebenen Methode/Member aus verwiesen werden.

Was hat es mit diesem Fehler auf sich ?#+
Danke

WhitePage · 27. Juni 2014, 10:31

Du musst schon den Namen deiner Textbox nehmen...

fritschi · 27. Juni 2014, 12:21

Das habe ich natürlich gemacht ... Sonst wäre es ja einfach

Cypress · 27. Juni 2014, 12:26

VB.NET-Quellcode

Public Shared Sub excel()
Dim Excel1 As New Application
Dim txt As String
Try
Excel1.Workbooks.Open("C:\datei.xls")
txt = Excel1.Range("A2").Value()
Textbox1.Text = txt.tostring
Catch ex As Exception
MessageBox.Show("Datei nicht vorhanden.")
Finally
Excel1.Application.Quit()
End Try
End Sub

Müsste klappen, aber denk dran, den Namen deiner Textbox zu nehmen

RodFromGermany · 27. Juni 2014, 12:26

@fritschi VB6 und .NET 4.0?
Korrigiere mal bitte Deinen Thread-Titel.

fritschi · 27. Juni 2014, 12:55

Hallo rodfrom germany auf was soll ich es denn andern ?

und danke cypress ich werde es in nächster Zeit testen habe jetzt aber 3 Wochen Berufsschule deswegen wird es ein bisschen dauern bis ich es testen kann

aber schon mal vielen dank

RodFromGermany · 27. Juni 2014, 13:43

fritschi schrieb:

auf was soll ich es denn andern ?

Statt VB6 machst Du VB.NET.

fritschi · 21. Juli 2014, 07:15

Hallo bin nun wieder da, leider funktioniert der Befehl mit Tostring nicht es wird der Fehlercode "Fehler 1 Auf einen Instanzmember einer Klasse kann nicht ohne explizite Instanz einer Klasse von einer/m freigegebenen Methode/Member aus verwiesen werden. " ausgegeben was muss ich tun um das zu beheben ?

Danke schon mal für eure Antworten

RodFromGermany · 21. Juli 2014, 07:30

fritschi schrieb:

was muss ich tun um das zu beheben ?

Poste die Fehlerzeile zum Fehler.

fritschi · 21. Juli 2014, 07:38

Hier die Codezeile

RodFromGermany · 21. Juli 2014, 08:17

Deine Sub ist Shared, da hast Du keinen Zugriff auf iwelche Instanzen, die nicht Parameter oder selber Shared sind.

fritschi · 21. Juli 2014, 08:46

Und wie kann ich das ganze dann lösen ( kann ich die Textbox dann shared machen , und wie funktioniert das ? ) oder gibt es einen anderen besseren Weg ? Danke

RodFromGermany · 21. Juli 2014, 09:00

fritschi schrieb:

oder gibt es einen anderen besseren Weg ?

Nimm das Shared von der Prozedur weg.

fritschi · 21. Juli 2014, 09:24

Danke so funktioniert es

nun würde ich gerne die eingebenen Daten in excel impotieren lassen und zwar immer in die nächste leere zeile damit eine Dokumentation gegeben ist

Beim klick auf absenden sollen die Daten in die Tabelle geschrieben werden. Ich habs schon versucht den Code aus dem Beitrag ( Daten in Excel in die nächst leere zeile Speichern) zu verstehen und zu verwenden aber ich verstehe leider nur bahnhof

Danke

Zelle aus Excel in VB einfügen

Zelle aus Excel in VB einfügen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

fritschi schrieb:

fritschi schrieb:

fritschi schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben