Excel Zelle über VBA auslesen

Songman

Grünschnabel
Hallo,

leider kenne ich mich mit VBA überhaupt nicht aus, habe aber folgendes Problem.

Ich möchte über VBA ein Zelle in einer Excel Tabelle auslesen.

Das Excel File heißt: Info.xls
Das Tabellenblatt heißt: Basis
Die Zelle G35

Ich hoffe mir kann jemand helfen.

Danke
 
In VBA (die integrierte Sprache in MS Office) geht das ja ganz einfach über
Visual Basic:
Wert = Worksheets("Basis").Cells(35, 7).Value 'Reihe 35, Spalte G=numerisch 7


Der Doc!
 
Setze eine Refernz auf das 'Microsoft Excel XX Object Libary"


Mein Code ist nicht mit Excel-VBA geschrieben... das öffnen der Exce-Applikation sowie das zuteilen des Workbooks kann ev. erspart werden
Visual Basic:
Public Function testExcel()
    Dim myExcel As excel.Application
    Dim myWorkbook As excel.workbook
    Dim mySheet As excel.Worksheet

On Error GoTo err_Handler
    
    Set myExcel = New excel.Application
    Set myWorkbook = myExcel.Workbooks.Open("C:\LocalData\Temp\Info.xls")
    Set mySheet = myWorkbook.Sheets("Basis")
    testExcel = mySheet.Range("G35")
    'man kann auch ohne ein sheet-Object arbeiten.
    'testExcel = myWorkbook.Sheets("Basis").sheet.Range("G35")
    
'Exit Handler
'Hier muss der Code auc im Error-Fall durch, damit
'alle Objekte sauber abgebaut und die im Hintergrund
'laufende Excel-Applikation beendet wird
exit_handler:
On Error Resume Next:
    myWorkbook.Close
    myExcel.Quit
    Set mySheet = Nothing
    Set myWorkbook = Nothing
    Set myExcel = Nothing
    Exit Function
    
' Error Handler
err_Handler:
    Call MsgBox(Err.Description, vbCritical, "error")
    Resume exit_handler:
End Function
 
Zurück