Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
Magico777
Newbie
Newbie

Anmeldedatum: 17.11.2009
Beiträge: 9
Auf Excel-Tabelle zugreifen - Arbeitsblatt
Verfasst am: 12.06.2010, 12:33
Hallo,

ich greife mit einem VB6-Script Daten aus einer Excel-Tabelle ab:

Code:
Sub Daten_einlesen()
    Dim zeile As Integer
    Dim spalte As Byte
    Dim Excel As Object
   
    Set Excel = CreateObject("excel.Application")
    Excel.Visible = False
    Excel.Workbooks.Open ordner & "\Tabelle.xls"
    For zeile = 1 To 5
        For spalte = 1 To 5
            wert(zeile, spalte) = Excel.Range(Spaltenname(spalte) & zeile)   
                                                                                                                'Hinter Spaltenname steckt eine Funktion,
                                                                                                                 welche die spaltennummer in den entsprechenden
                                                                                                                 Textwert umwandelt (z.B. wird aus "1" ein "A")
        Next spalte
    Next zeile
    Excel.ActiveWorkbook.Close savechanges:=False
    Excel.Quit
    Set Excel = Nothing
End Sub


Kann mir ein erfahrener programmierer verraten, wie ich Daten aus zwei verschiedenen Tabellenblättern ("Blatt1", "Blatt2") abfragen kann? D.h. wie muss ich "wert(zeile, spalte) = Excel.Range(Spaltenname(spalte) & zeile)" verändern, um ein bestimmtes Tabellenblatt anzusprechen?

Für Eure hilfe bedanke ich mich vorab!!!

Gruß

magico
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: excel, zugreifen, tabelle, tabellenblatt, arbeitsblatt, exceltabelle

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1039 30.10.2009, 11:26
Keine neuen Beiträge IntStr()funktion 1177 11.10.2007, 08:49
Keine neuen Beiträge TopMost Funktion unter DirectX 921 27.07.2007, 10:48
Keine neuen Beiträge Wie Funktion nutzen ? 1102 29.06.2007, 20:59
Keine neuen Beiträge update funktion einbauen 1341 28.01.2007, 23:11
 




[ Time: 0.1353s ][ Queries: 81 (0.0316s) ][ GZIP on - Debug on ]