Excel Tabelle,Spalteninhalt in Textbox anzeigen

Computer: Software & Programmierung Visual Basic
#1

Hallo allerseits,
Zu erst möchte ich Euch mitteilen das ich wie viele andere auch, ein Neueinsteiger bin.In den Archiven habe ich einige interesante Tips gefunden,aber irgend wie nicht das was ich suche.
Nun zu meiner Frage.
Ich habe eine Excel Tabelle,aus der ich die Daten einer Spalte (5 Zeilen)in 5 Textboxen anzeigen lassen möchte, wenn Form1 geladen wird.
Wie muss der Code aussehen?
Besten Dank für Eure Hilfe!
mfg Klaus

#2

Hi!

dim objexcel as object
set objexcel=CreateObject("Excel.Application")
objexcel.workbooks.open "c:\dateiname.xls"

text1.text = objexcel.activeworkbook.worksheets(?).cells(1,1).value
text2.text = objexcel.activeworkbook.worksheets(?).cells(2,1).value
text3.text = objexcel.activeworkbook.worksheets(?).cells(3,1).value
text4.text = objexcel.activeworkbook.worksheets(?).cells(4,1).value
text5.text = objexcel.activeworkbook.worksheets(?).cells(5,1).value
' Für das Fragezeichen musst du den Index des Worksheets angeben, auf welchen du dich beziehen möchtest
objexcel.activeworkbook.close false
set objexcel=nothing

Ungetestet. Müsste aber funzen.
Gruß.Timo

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo Tiom,
Erstmal bessten Dank, das Du Dich meiner angenommen hast.
Nach dem ich Deinen Code ausprobiert habe,bekam ich die Fehler meldung 13 und 91.
Leider hat das bei mir noch nicht geklappt.
Wo liegt das Problem?

Private Sub Form_Load()

Dim excelWS As Object
Dim objexcel As Object
Set objexcel = CreateObject(„Excel.Application“)
objexcel.Workbooks.Open „D:\VB Versuche\SkatDaten.xls“

Text1(1).Text = objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(1, 1).Value
Text2(2).Text = objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(2, 1).Value
Text3(3).Text = objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(3, 1).Value
Text4(4).Text = objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(4, 1).Value
Text5(5).Text = objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(5, 1).Value
objexcel.ActiveWorkbook.Close False
Set objexcel = Nothing
End Sub

Danke bis bald Klaus

#4

Hallo Tiom,

Hi Klaus,

Erstmal bessten Dank, das Du Dich meiner angenommen hast.
Nach dem ich Deinen Code ausprobiert habe,bekam ich die Fehler
meldung 13 und 91.
Leider hat das bei mir noch nicht geklappt.
Wo liegt das Problem?

Private Sub Form_Load()

Dim excelWS As Object

excelWS brauchst du nicht.

Dim objexcel As Object
Set objexcel = CreateObject(„Excel.Application“)
objexcel.Workbooks.Open „D:\VB Versuche\SkatDaten.xls“

Text1(1).Text =
objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(1, 1).Value

Du musst statt excelWS die Indexzahl z.B. 1 für das erste Arbeitsblatt des Excel-Datei(Excel-Mappe) eintragen, also
text1.text = objexcel.ActiveWorkbook.Worksheets(1).Cells(1, 1).Value

Text2(2).Text =
objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(2, 1).Value
Text3(3).Text =
objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(3, 1).Value
Text4(4).Text =
objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(4, 1).Value
Text5(5).Text =
objexcel.ActiveWorkbook.Worksheets(excelWS).Cells(5, 1).Value
objexcel.ActiveWorkbook.Close False
Set objexcel = Nothing
End Sub

Danke bis bald Klaus

Gruß.Timo

#5

Hallo Tiom,
Jetzt klappt alles,genau wie ich es wollte.
Toll das es solche Hilfestellung gibt.

Noch mal besten Danke
bis dann Klaus