Mensajes

pues podrías usar un objeto Ole pala cargar el archivo de excel en una ventana del VB, y luego por medio de código "jalar" los resultados a variables del VB

no entiendo muy bien lo que quires hacer pero me suena a  que lo podrias hacer con un IF o un case

Código [Seleccionar] Expandir


if nombre_matriz = "asc_files" then
     ReDim Preserve asc_files(UBound(nombre_matriz()) + 1)
else
     ReDim Preserve dxf_files(UBound(nombre_matriz()) + 1)
end if


Código [Seleccionar] Expandir


Select case Nombre_Matriz
     case "asc_files"
           ReDim Preserve asc_files(UBound(nombre_matriz()) + 1)
     case "dxf_files"
          ReDim Preserve dxf_files(UBound(nombre_matriz()) + 1)
    case "otra_matriz"
          ReDim Preserve otra_matriz(UBound(nombre_matriz()) + 1)
    case else
          msgbox "error"
end select



a ver si eso te sirve

antes que nada en la ayuda del Visual Basic viene muy bien explicado todos lo referente al objeto Printer, y como lo he dicho en otros post, "búsquen en la ayuda, la 'ayuda' si ayuda, creanme"

creo que el error esta en la instucción seek

debería ser:

Código [Seleccionar] Expandir


seek #num
FilesV(i) = Input(Parametros(1), #num)


pues checa que la propiedad MDIChild sea True, no debe de darte mayor problema

Pues creo que la manera más facil en con un objeto OLE

  Saludos.
  Yo quisiera ir mas alla con la solucion del redimensionar el formulario y los controles y quisiera preguntarles como se haria para redimensionar tambien el tamaño de la letra?. Porque no tendria sentido tener un form maximizado con una letra 10 por ejemplo, la misma que se veria nien cuando el form este al tamaño normal.
   Gracias...................

mmm, a ver prueba esto a ver si es a lo que te refieres:
solo necesitas poner un label en un form y copiar este código:

Código [Seleccionar] Expandir


Private Sub Form_Resize()
   
    Dim i As Integer, h As Long, w As Long
    Dim s As String
   
    Label1.Height = Me.ScaleHeight
    Label1.Width = Me.Width
   
    i = 8
    h = 0
    s = Label1.Caption
   
    Printer.Font = Label1.Font
    Printer.FontSize = 8
   
    While h < Me.ScaleHeight And w < Me.ScaleWidth
       
        i = i + 1
       
        h = Printer.TextHeight(s)
        w = Printer.TextWidth(s)
       
        Printer.FontSize = i
       
    Wend
   
    Label1.FontSize = i
   
End Sub


la verdad no se si exista ese control pero creo que estaría interesante hacer un control activeX con esas propiedades jejeje, lo voy a hacer en mis ratos libres y luego lo pongo aqui 

el salto de linea se compone de dos partes:


vb       cr              lf
       Fin de      Salto de
        linea         linea

cuando usas la función InStr te va a devolver la posición del fin de linea, en esta caso 3, lo incremento en dos para que sigua el bucle despues del fin de linea(cr, posición 3) y el salto de linea(lf, posición 4) y continue en el siguiente caracter de la cadena (posición 5)

pues creo que debes hacer para recorrer cada uno de tus labels y saber si hay algo para ese día, es decir haces un ciclo que cheque en la BD si hay algo del dia 1/Ene/2007 si encuentra un registro que cambie el color del Label y asi hasta el dia 31


OJO: Cuando he manejado BD en Access me he encontrado con que invirte el formato de las fechas es decir si tu le metes una fecha en formato "dd/mm/yyyy" te lo guarda como "mm/dd/yyyy"