Hola,

Necesito utilizar datos de diferentes archivos excel, para ello abro el primer documento y utilizo los datos que necesito.
El problema es cuando abro el segundo documento excel y selecciono algun dato. El dato que se selecciona es siempre el del primer documento excel que abrí y no del último que he abierto.
¿cómo puedo solucionarlo?

Gracias!!

De que forma abres los excel¿? Pon algo de código xD.

Iniciado por SAPeT_GAbBeR

De que forma abres los excel¿? Pon algo de código xD.

Dim objExcel As Excel.Application

'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook

'creamos un nuevo objeto excel
Set objExcel = New Excel.Application

'Usamos el método open para abrir el archivo que está en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open("C:\potencias_centrales1.x lsx")

'Hacemos el Excel Visible
objExcel.Visible = True

With xLibro
ActiveWorkbook.Worksheets(4).Activate
'Captamos valores necesarios
Qmaxtran = Cells(1, 3)
Qmintran = Cells(2, 3)
cotatran = Cells(1, 5)
End With


'Eliminamos los objetos si ya no los usamos
Set objExcel = Nothing
Set xLibro = Nothing



Ese es el código que utilizo

No entiendo mucho de excel pero segun ese codigo siempre abres el mismo fichero y sacas los 3 mismos valores de la misma pagina :P
No vemos que cargues un nuevo archivo ni creo que seleccionar un dato en esa u otra tabla te sirva de nada si siempre guardas lo mismo.
Dado que tu problema es que siempre se cargan los mismos valores, o estas usando otro codigo o ya estas contestado.
De momento no creo que recibas mejor respuesta mientras no aclares un poco el tema.

Saludos

Iniciado por p72eslop

Dim objExcel As Excel.Application

'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook

'creamos un nuevo objeto excel
Set objExcel = New Excel.Application

'Usamos el método open para abrir el archivo que está en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open("C:\potencias_centrales1.x lsx")

'Hacemos el Excel Visible
objExcel.Visible = True

With xLibro
ActiveWorkbook.Worksheets(4).Activate
'Captamos valores necesarios
Qmaxtran = Cells(1, 3)
Qmintran = Cells(2, 3)
cotatran = Cells(1, 5)
End With


'Eliminamos los objetos si ya no los usamos
Set objExcel = Nothing
Set xLibro = Nothing



Ese es el código que utilizo

Despues de utilizar el código anterior utiliza el mismo código cambiando ruta de archivo:


'Una variable de tipo Libro de Excel
Dim xLibro1 As Excel.Workbook

'creamos un nuevo objeto excel
Set objExcel1 = New Excel.Application

'Usamos el método open para abrir el archivo que está en el directorio del programa llamado archivo.xls
Set xLibro1 = objExcel1.Workbooks.Open("C:\cotas.xlsx")

'Hacemos el Excel Visible
objExcel1.Visible = True

With xLibro1
ActiveWorkbook.Worksheets(2).Activate
'Captamos valores necesarios
Cotatran = Cells(5, 3)

End With


'Eliminamos los objetos si ya no los usamos
Set objExcel1 = Nothing
Set xLibro1 = Nothing


Y el problema es que en vez de almacenar en cotatran el valor de la celda(5,3) del documento cotas lo hace del documento potencias_centrales.

Espero que con esto quede bien formulada mi pregunta, y lo siento por ser poco concreto en mi pregunta.

Gracias,

Quizas tienes que cerrar la aplicacion con:

objExcel1.Application.Quit

antes de

objExcel1 = Nothing

Yo como me aburro estoy haciendo una funcion para sacar los datos que le pidas cada vez.
El problema es que aun no puedo probarla porque no tengo excel y no puedo agregar la referencia en el VB.
Ademas tampoco tengo muchos archivos de excel por aqui :P
Si te interesa probarla dimelo.

Saludos

Ya lo he probado y depurado un poco. A mi me funciona de maravilla con ficheros xls normalitos, no se que hara con ficheros xlsx. Aqui lo dejo por si a alguien le sirve de ayuda. Yo me he entretenido un rato.

Solo copialo en un nuevo proyecto con dos command button para pulsar (y la referencia a MS Excel).

Código:

Option Explicit

' hay que añadir la referencia a Microsoft Excel x.x Object Library
' para poder cargar ficheros xls

'creamos un nuevo tipo de variable para guardar los datos
Private Type DatoExcel
  Nombre As String ' una descripcion del dato
  Pagina As Integer ' la pagina
  Fila As Integer ' la fila
  Columna As Integer ' la columna
  Dato As String ' el contenido
End Type

Dim obj As Object ' declaramos el objeto excel.application

Private Sub Form_Load()
  ' al inicio del programa fijamos el objeto
  ' como una aplicacion excel
  Set obj = CreateObject("Excel.application")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  ' al final lo descargamos
  obj.Application.Quit
  Set obj = Nothing
  End
End Sub

Private Sub Command1_Click()
  Dim Datos() As DatoExcel ' creamos una matriz de tamaño variable
  Dim Fichero As String
  
  'Fichero 1
  Fichero = "C:\potencias_centrales1.xlsx"

  'Redimensionamos la matriz segun los datos que queremos sacar
  ReDim Datos(2) ' de este archivo sacamos 3 datos
  
  ' cargamos los valores de referencia
  ' los nombres puedes no ponerlos, pero
  ' ayudan en otros casos
  Datos(0).Nombre = "Qmaxtran" ' esto no hace falta
  Datos(0).Pagina = "4"
  Datos(0).Fila = "1"
  Datos(0).Columna = "3"
  Datos(0).Dato = "" ' esto no hace falta
  
  Datos(1).Nombre = "Qmintran" ' esto no hace falta
  Datos(1).Pagina = "4"
  Datos(1).Fila = "2"
  Datos(1).Columna = "3"
  Datos(1).Dato = "" ' esto no hace falta
  
  Datos(2).Nombre = "Cotatran" ' esto no hace falta
  Datos(2).Pagina = "4"
  Datos(2).Fila = "1"
  Datos(2).Columna = "5"
  Datos(2).Dato = "" ' esto no hace falta
  
  ' sacamos los datos
  If CargaDatos(Fichero, Datos) = 1 Then
    ' si hubo error se avisa
    MsgBox "No se pudo leer " & Fichero
  Else
    ' si no hubo error se muestran los datos
    MsgBox Datos(0).Nombre & ": " & Datos(0).Dato
    MsgBox Datos(1).Nombre & ": " & Datos(1).Dato
    MsgBox Datos(2).Nombre & ": " & Datos(2).Dato

  End If
  
  ' si lo quieres en las variables:
  Dim Qmaxtran
  Dim Qmintran
  Dim Cotatran
  Qmaxtran = Datos(0).Dato
  Qmintran = Datos(1).Dato
  Cotatran = Datos(2).Dato

  'aqui puedes manipular los datos...
  'por ejemplo:
  'DerivadaZ = Calcula_DerivadaZ(Qmaxtran,Qmintran,Cotatran)
  
' y vamos a por el Fichero2 (que mejor lo hago en otro command button)
End Sub
  
Private Sub Command2_Click()
  ' Fichero 2
  Dim Datos() As DatoExcel
  Dim Fichero As String
  
  Fichero = "C:\cotas.xlsx"
 
  ReDim Datos(0) ' esta vez solo vamos a pedir 1 dato
  
  Datos(0).Nombre = "Cotatran" ' esto no hace falta
  Datos(0).Pagina = "2"
  Datos(0).Fila = "5"
  Datos(0).Columna = "3"
  Datos(0).Dato = "" ' esto no hace falta

  ' sacamos los datos
  If CargaDatos(Fichero, Datos) = 1 Then
    ' si hubo error se avisa
    MsgBox "No se pudo leer " & Fichero
  Else
    ' si no hubo error se muestran los datos
    MsgBox Datos(0).Nombre & ": " & Datos(0).Dato
  End If
  
  'El Dato sacado
  Dim Cotatran
  Cotatran = Datos(0).Dato

  ' y aqui pues se usa...

End Sub

Private Function CargaDatos _
   (ByVal ArchivoExcel As String, _
    ByRef Respuesta() As DatoExcel) As Integer
  
  Dim Libro As Object
  Dim F As Integer
  
  On Local Error GoTo ErrorFunc
  'devolvemos 0 si se hizo bien y 1 si hubo error.
  
  Set obj = CreateObject("Excel.application")
  
  ' si existe el fichero se carga
  Set Libro = obj.workbooks.Open(ArchivoExcel)
  
  For F = 0 To UBound(Respuesta)
    Respuesta(F).Dato = Libro.Sheets(Respuesta(F).Pagina).Cells(Respuesta(F).Fila, Respuesta(F).Columna)
  Next F
  
  On Local Error Resume Next
  ' deshabilitamos las alertas para que no nos
  ' pregunte si queremos guardar los cambios
  obj.Application.DisplayAlerts = False
  Set Libro = obj.workbooks.Close
  obj.Application.DisplayAlerts = True
  ' las habilitamos despues por si acaso
  
  Set Libro = Nothing
  
  Exit Function
  
ErrorFunc:
  
    CargaDatos = 1
  
End Function

Saludos

Iniciado por pkj

Quizas tienes que cerrar la aplicacion con:

objExcel1.Application.Quit

antes de

objExcel1 = Nothing

Yo como me aburro estoy haciendo una funcion para sacar los datos que le pidas cada vez.
El problema es que aun no puedo probarla porque no tengo excel y no puedo agregar la referencia en el VB.
Ademas tampoco tengo muchos archivos de excel por aqui :P
Si te interesa probarla dimelo.

Saludos

Muchisimas gracias por dedicarme tu tiempo, no ha servido lo que proponías pero ya he encontrado la solución en el soporte de microsoft:
La automatización de Excel produce un error la segunda vez que se ejecuta el código


Gracias!

El problema era que se queda cargado el excel. Con un poco de depuracion la solucion servia. Yo acabe dejandolo bastante pulido y el codigo que puse funcionaba bien.
De todas formas el que lo hayas solucionado por tu cuenta tambien es algo positivo y aporta otra informacion.

Saludos