title image


Smiley Nimm noch'n Objekt dazu ...
Hallo,



Dim oExc As New Excel.Application

Dim xlWb as Excel.Workbook



With oExc

Set xlWb = .Workbooks.Open(Filename:="\\Xenos\Daten\.Formtec\QM-System\Datenbankeinbindung\FT_FB03-8.4.1.0..._Pruefblatt_Skalierung.xls")

.Visible = True

MsgBox xlWb.Worksheets("Tabelle1").Range("D4").Value

End With



Alternativ kannst du auch auf das gerade geöffnete Workbook zugreifen ...



Dim oExc As New Excel.Application



With oExc

.Workbooks.Open Filename:="\\Xenos\Daten\.Formtec\QM-System\Datenbankeinbindung\FT_FB03-8.4.1.0..._Pruefblatt_Skalierung.xls"

.Visible = True

MsgBox ActiveWorkbook.Worksheets("Tabelle1").Range("D4").Value

End With



Gruss




StrgAltEntf

Meine Fragen und Antworten beziehen sich, wenn nicht anders erwähnt, auf Ac97 bzw. XL/Word2k in Verbindung mit Win2k.
Es gibt zwei Regeln für Erfolg im Leben:
1. Erzähle den Leuten nie alles, was Du weißt ...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: