Ayuda con ruta relativa

Hola, os comento mi problema.

El programa que he creado funciona perfectamente en mi equipo, ya que puedo poner la ruta absoluta y ejecutarlo sin problema, el problema viene al instalarlo en otro equipo, si pongo manualmente la ruta donde se instale el programa ya he probado que funciona, pero lo que quiero es que el programa funcione sea donde sea la ruta de instalación

(El problema viene al acceder al archivo de excel, que el programa necesita para trabajar)

Una parte del codigo es este

Código:

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim excel As Excel.Application Dim libro As Excel.Workbook Dim hoja As Excel.Worksheet excel = New Excel.Application libro = excel.Workbooks.Open("C:\Pruebas\Panaderia.xlsx") hoja = excel.Worksheets("Pedidos") If TextBox8.Text = 1 Then hoja.Range("A" & Trim(Str(contador + 1))).Value = TextBox1.Text hoja.Range("B" & Trim(Str(contador + 1))).Value = TextBox2.Text hoja.Range("C" & Trim(Str(contador + 1))).Value = TextBox3.Text hoja.Range("D" & Trim(Str(contador + 1))).Value = TextBox4.Text hoja.Range("E" & Trim(Str(contador + 1))).Value = TextBox5.Text hoja.Range("F" & Trim(Str(contador + 1))).Value = TextBox6.Text TextBox7.Text = hoja.Range("G" & Trim(Str(contador + 1))).Value ElseIf TextBox8.Text = 2 Then hoja.Range("A" & Trim(Str(contador + 2))).Value = TextBox1.Text hoja.Range("B" & Trim(Str(contador + 2))).Value = TextBox2.Text hoja.Range("C" & Trim(Str(contador + 2))).Value = TextBox3.Text hoja.Range("D" & Trim(Str(contador + 2))).Value = TextBox4.Text hoja.Range("E" & Trim(Str(contador + 2))).Value = TextBox5.Text hoja.Range("F" & Trim(Str(contador + 2))).Value = TextBox6.Text TextBox7.Text = hoja.Range("G" & Trim(Str(contador + 2))).Value ...etc

En la linea libro = excel.Workbooks.Open("C:\Pruebas\Panaderia.xlsx"),
¿podría poner alguna ruta relativa para poder acceder a ese archivo en cualquier equipo, sea cual sea la ruta donde se instale el programa, y con ello, el archivo excel?

Muchas gracias.

Saludos:

Puedes usar My.Application.Info.DirectoryPath, que te retorna el directorio de instalacion. A partir de alli puedes colocar los archivos que necesitas y lo llamas asi:

Código:

Dim Dt_SubFolder As String = "\Excel\" Dim Dt_Archivo As String = "MyExcel.xls" My.Application.Info.DirectoryPath & Dt_SubFolder & Dt_Archivo

Espero ayude.

JOSE LUIS

Ayuda con la ruta relativa

Cita:

Iniciado por DSAngel

Hola, os comento mi problema.

El programa que he creado funciona perfectamente en mi equipo, ya que puedo poner la ruta absoluta y ejecutarlo sin problema, el problema viene al instalarlo en otro equipo, si pongo manualmente la ruta donde se instale el programa ya he probado que funciona, pero lo que quiero es que el programa funcione sea donde sea la ruta de instalación

(El problema viene al acceder al archivo de excel, que el programa necesita para trabajar)

Una parte del codigo es este

Código:

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim excel As Excel.Application Dim libro As Excel.Workbook Dim hoja As Excel.Worksheet excel = New Excel.Application libro = excel.Workbooks.Open("C:\Pruebas\Panaderia.xlsx") hoja = excel.Worksheets("Pedidos") If TextBox8.Text = 1 Then hoja.Range("A" & Trim(Str(contador + 1))).Value = TextBox1.Text hoja.Range("B" & Trim(Str(contador + 1))).Value = TextBox2.Text hoja.Range("C" & Trim(Str(contador + 1))).Value = TextBox3.Text hoja.Range("D" & Trim(Str(contador + 1))).Value = TextBox4.Text hoja.Range("E" & Trim(Str(contador + 1))).Value = TextBox5.Text hoja.Range("F" & Trim(Str(contador + 1))).Value = TextBox6.Text TextBox7.Text = hoja.Range("G" & Trim(Str(contador + 1))).Value ElseIf TextBox8.Text = 2 Then hoja.Range("A" & Trim(Str(contador + 2))).Value = TextBox1.Text hoja.Range("B" & Trim(Str(contador + 2))).Value = TextBox2.Text hoja.Range("C" & Trim(Str(contador + 2))).Value = TextBox3.Text hoja.Range("D" & Trim(Str(contador + 2))).Value = TextBox4.Text hoja.Range("E" & Trim(Str(contador + 2))).Value = TextBox5.Text hoja.Range("F" & Trim(Str(contador + 2))).Value = TextBox6.Text TextBox7.Text = hoja.Range("G" & Trim(Str(contador + 2))).Value ...etc

En la linea libro = excel.Workbooks.Open("C:\Pruebas\Panaderia.xlsx"),
¿podría poner alguna ruta relativa para poder acceder a ese archivo en cualquier equipo, sea cual sea la ruta donde se instale el programa, y con ello, el archivo excel?

Muchas gracias.

Hola amigo,

para que te funcione desde cualquier equipo tienes que poner lo siguiente

Código:

libro = excel.Workbooks.Open("\nombre_del_servidor\Pruebas\Panaderia.xlsx"),

con esta pequeña modificación verás que te funciona en cualquier ordenador que tengas en la red local.

saludos,
Programando voy, programando vengo.