Hallo,

ein kleines Problem:

Ich habe eine Anwendung geschrieben, die Daten aus excel-Dateien liest. Die Anwendung: C:/Programme/Blabla/blabla.exe, die excel-Dateien: C:/Programme/Blabla/Unterordner/excelfile.xls

Nun muss ich die Anwendung auf mehrere Rechner "dynamisch" portieren, brauche also relative Pfade. Was bleiben soll ist die Anwendung Blabla/blabla.exe und die Excel-Dateien Blabla/Unterordner/excelfile.xls

In VB6 ging das einfach mit App.Path und so, das gelingt jetzt in VB2008 nicht mehr. Muss ich da irre viel neuen Code schreiben (und den erst mal lernen) oder gibt's da einen Trick? Hat da jemand evtl. Beispielcode?

Vielen Dank im voraus

Nixcheck

Me_Hide

Danke, Me_Hide, so einfach? Isjatoll

Und wie muss ich das "ActiveWorkbook" deklarieren?

In .net geht das über

Danke.

Geht zwar noch nicht, aber ich werde das mit Application sicher noch hinbiegen können

nixcheck

Laß dir mal den konkreten Pfad in einer MsgBox ausgeben. Du mußt halt beachten daß du eventuelle Unterverzeichnisse dann natürlich noch angeben mußt. Application.StartupPath gibt dir ja nur das Verzeichnis der gerade ausgeführten Assembly an.

nixcheck schrieb:

Und wie muss ich das "ActiveWorkbook" deklarieren?

Was meinst du damit?

Das ActiveWorkBook ist das aktive Workbook.

Du kannst an Stelle des ActiveWorkBook auch eine andere Referenz auf ein Workbook-objekt verwenden.

Z. Bsp.:





usw.

mfg



Me_Hide

@ Me_Hide:
Ich hab ihn so verstanden daß er den Pfad in seinem vb-Projekt ermitteln will, nicht in Excel über vba!

Nochmal Danke,

es hat geklappt (musste nur noch ein wenig string-Operationen nachschieben) :

Dim Pfad As String
Pfad = Application.StartupPath
Pfad = Mid(Pfad , 1, InStr(Pfad, "Blabla") - 1)

nixcheck