✔ Zugriff auf Excel (Pfad kann nicht gefunden werden)

[hausmeister079]

Hallo Nico,

die Funktion Combine.path hat proma funktioniert. Vielen Dank.
Jetzt aber zum naechsten Problem. Ich habe mein Programm auf dem Desktop in einen Ordener "3D" erstellt.
Nun erstelle ich in diesem 3D ordner einen neuen Ordner namens "common". In diesen Ordner common
kopiere ich mein Excel Datei rein. Mein Programm greift auf diese Excel datei zu, welche momentan auf dem Desktop sitzt.

Hier der Code:
Dim oexcel As Object = CreateObject("Excel.application")
Dim obook As Object = oexcel.workbooks.open("c:\desktop\3D Register.xls")
Dim osheet As Object = obook.worksheets(1)

Nun wuerde ich aber gerne es so machen, das mein programm nicht auf den Absoluten Pfad greift sondern auf meine relativen Pfad,
welcher ("common\3D Register.xls") ist. Jedoch kann mein Programm diese Datei nicht finden. Ich denke mal, da ich mit CreateObject arbeite und daher nicht mehr auf meine relativen pfad zurueck greifen kann.

Hast du eine Idee wie ich das mache?

 

[noFaiTh]

Entschuldige, dass ich dein Problem nicht ganz verstehe, aber ich hoffe Folgendes hilft dir weiter:

        Dim sPfad As String = Application.StartupPath & "\common\3D Register.xls"
        Dim sSheet As String = "Tabelle1"
        Dim oExcel As Object = CreateObject("Excel.application")
        Dim oBook As Object = oExcel.workbooks.open(sPfad)
        Dim oSheet As Object = oBook.worksheets(sSheet)

        oExcel.Worksheets(sSheet).Select()

        MessageBox.Show(oSheet.range("A1").value.ToString)

 

[hausmeister079]

Hi NoFaiTh,

Perfect, das ist genau was ich versucht habe zu erzielen. Vielen vielen Dank.

 

[noFaiTh]

Freut mich, wenn ich helfen konnte.

Gruß noFaith