Kennt jemand einen Code einen Tabellenbereich (z.B. A1) aus Excel als Textbox in Visual Basic anzeigen zu lassen?
Nach folgenden Schritten soll vorgegangen werden:
Im Textfeld1 wird der Dateipfad der ausgewählten Excel Datei angezeigt. (Dies habe ich bereits fertig)
Durch den Button „Button3“ soll auf die Datei im erschienenen Pfad von Textfeld1 zugegriffen werden (die Datei soll hierzu nicht sichtbar geöffnet werden)
ein Bereich (zB. A1) aus dieser Excel Datei als Textfeld in Textfeld2 in Visual Basic angezeigt werden.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fdlg As OpenFileDialog = New OpenFileDialog
fdlg.Title = „C# Corner Open File Dialog“
fdlg.InitialDirectory = „c:“
fdlg.Filter = „All files (*.*)|*.*|All files (*.*)|*.*“
fdlg.FilterIndex = 2
fdlg.RestoreDirectory = True
If fdlg.ShowDialog() = DialogResult.OK Then
TextBox1.Text = fdlg.FileName
End If
End Sub
um die file in einer Textbox zu öffnen. Ich weiß allerdings nicht was ich coden muss damit er jetzt auf den ausgewählten dateipfad in textbox1 zugreift.
Im Textfeld1 wird der Dateipfad der ausgewählten Excel
Datei angezeigt. (Dies habe ich bereits fertig)
Durch den Button „Button3“ soll auf die Datei im
erschienenen Pfad von Textfeld1 zugegriffen werden (die Datei
soll hierzu nicht sichtbar geöffnet werden)
ein Bereich (zB. A1) aus dieser Excel Datei als Textfeld in
Textfeld2 in Visual Basic angezeigt werden.
Hallo Manuel,
sorry, deinen Code kapiere ich nicht.
Du hast eine Form mit 2 Textboxen und einem Commandbutton.
Bei Form_Load wird in Text1 die zu ladende Datei samt Pfad angezeigt.
Nach Klick auf den CB wird in Text2 der Wert aus Tabelle „Eingabe“ A1 in Text2 angezeigt.
Getestet mit VB5.0.
Option Explicit
’
Private Sub Command1_Click()
Dim appXL
Set appXL = CreateObject(„Excel.Application“)
appXL.workbooks.open Text1
Text2 = appXL.activeworkbook.worksheets(„Eingabe“).range(„A1“)
appXL.quit
End Sub
’
Private Sub Form_Load()
Text1 = „C:\Test\kwaktuell.xls“
End Sub
Nein, das nicht aber man hat es an der Declaration der Sub erkannt
Ich habe nur gesehen daß mir
Private Sub Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
Richtig und genau das ist Net spezifisch Also erstens am Sender welcher immer als Object übergeben wird und daher nicht wie bei VB direct verwendet werden kann. Er muss er gecastet oder auch geboxt werden, via Ctype oder Directcast Desweiteren sind in .Net Namen nur Schall und Rauch. Wie in seinem Bsp. könnte die Sub auch ButtonWurdeGedrueckt sich nennen Worauf die Sub anspringt. legst du unter .NET mit der Handles Klausel fest Dort steht zum Bsp. Button2.Click, was wiederum bedeutet das die Sub ein Ereignis von Button2 ist. Und das Ereignis lautet Click
Wie gesagt, daran erkennt man das es .Net ist
sehr unbekannt vorkommen
Kann er mit meinem Code was anfangen? Naja, wenn nicht mußt du
da was in .Net basteln *gg*
Wäre nicht das Problem, aber den Denkanstoss hast du ihm ja gegeben und nun kann er ja erst einmal ein wenig probieren
Danke auch für
Select case True
war mir sehr neu dies so zu benutzen.
Neu? Wundert mich ehrlich gesagt, das ich das dann hier so selten verwendet habe, alldiweil das eine sehr praktische Lösung ist Kannst aber auch Select case False machen
mal abgesehen davon das du im Brett für VBA ( Visual Basic for Application) und VB bis zur Version 6.0 bist und ergo falsch, weil es für Net ein eigenes Brett gibt, ist deine Fragestellung arg mager gestellt!
Um auf Dateien zuzugreifen mache dich der Klasse System.IO.File zu nutze. Diese bietet Dir alles was du brauchst!
nur habe ich ein Problem mit OpenTextFile
Wie ist der code dafür, dass das das Programm auf einen
Dateipfad, welcher sich in einer Textbox befindet zugreift?
Dazu muesste man wissen, wie sich die Textbox schimpft. Desweiteren sollte geklärt werden, wie du das File öffnen möchtest. Nur Lesen oder Schreiben etc.
Aber als kleines Bsp.
Dim MyContex As String() = System.IO.File.ReadAllLines(Textbox1.Text)
Liest ein komplettes File (wobei der Filename aus der Textbox mit dem Namen Textbox1 geholt wird) in MyContex ein. Dieses ist nur ein Weg von verdammt vielen.
