✔ Excel Zelle über VBA auslesen

[Songman]

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

 

[DrSoong]

In VBA (die integrierte Sprache in MS Office) geht das ja ganz einfach über

Wert = Worksheets("Basis").Cells(35, 7).Value 'Reihe 35, Spalte G=numerisch 7

Der Doc!

 

[Yaslaw]

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

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