• Domingo 22 de Diciembre de 2024, 17:10
« anterior próximo »
Páginas: [1]

Autor Tema:  Editor De Excel  (Leído 1152 veces)

LUKER

  • Miembro activo
  • **
  • Mensajes: 38
    • Ver Perfil
Editor De Excel
« en: Miércoles 27 de Octubre de 2004, 18:46 »
0
:huh:  Disculpen, pero si alguien me puede dar una mano se lo agradeceria.
Lo que nesecito  es saber la forma en que puedo pegar la informacion de un documento x hecho en excel o otro nuevo creado por mi persona.
Es decir si el documento inicial se llama maestro y mi documento o aplicacion en excel la llamaremos luker, tengo que encontrar la forma de abrir desde luker a maestro copiar la informacion que contenga este, cerrar maestro y lo que copie se coloque en luker. La copia es automatica por lo que el usuario nada mas tendria que buscar el archivo a buscar y lo demas seria automatico. si alguien tiene alguna idea o mejor aun un codigo  estare eternamente agradecido.
Por si la dudas, esto lo tengo que programar en el editor de visual basic(es que vengo trabajando con el), no en visual directamente. :kicking:
Los limites estan en los ojos del hombre, los triunfos en sus mentes, de el es la decision de ser un ciego con fe o un vidente sin futuro

LUKER

  • Miembro activo
  • **
  • Mensajes: 38
    • Ver Perfil
Re: Editor De Excel
« Respuesta #1 en: Viernes 29 de Octubre de 2004, 00:04 »
0
:P Hola amigo despues de todo un dia y medio lo logre y quiciera que si alguien tuviera la misma duda observara lo que realice, me costo mucho pero logre mi cometido, por cierto gracias a los que lo intentaron o aunque sea leyeron mi duda.


Bueno chao. :hola:
Código: Text
  1. Private Sub CommandButton17_Click()
  2.  
  3. '
  4.     Dim i As Integer
  5.     Dim Lar As Integer
  6.     Dim Ini As Integer
  7.     Dim Largo As Integer
  8.     Dim Nombre As String
  9.     Application.ScreenUpdating = False
  10.     Sheets.Add
  11.        ChDir _
  12.         "C:\Documents and Settings\jocata\Escritorio\programa\prueva\S.T   BARRANCA\CIRCUITO BARRANCA\AÑO 2004\"
  13.     miarchivo = Application.GetOpenFilename("Archivo de Datos,*.xls")
  14.     Workbooks.OpenText Filename:=miarchivo
  15.     Sheets("fuente").Select
  16.     ActiveWindow.ScrollWorkbookTabs Position:=xlLast
  17.     ActiveWindow.ScrollWorkbookTabs Position:=xlLast
  18.     ActiveWindow.ScrollWorkbookTabs Position:=xlLast
  19.     Nombre = ActiveWindow.Caption
  20.     Sheets("fuente").Select
  21.     Range("C1:K2").Select
  22.     Selection.Copy
  23.     Windows("maestrov7.xls").Activate
  24.     Range("B3").Select
  25.     ActiveSheet.Paste
  26.     Windows(Nombre).Activate
  27.     Range("C3:C98").Select
  28.     Application.CutCopyMode = False
  29.     Selection.Copy
  30.     Windows("maestrov7.xls").Activate
  31.     Range("B5").Select
  32.     ActiveSheet.Paste
  33.      ActiveWindow.Close
  34.     ActiveWindow.SmallScroll Down:=-9
  35.     ActiveWindow.SmallScroll Down:=-384
  36.     Range("A1").Select
  37. ' todo esto se pone en un while para varios archivos
  38. End Sub
  39.  
  40. ' y con este salve los cambios y cerre todo.
  41.  
  42. Private Sub CommandButton18_Click()
  43.   ActiveWorkbook.Close
  44.   ActiveWorkbook.Close Savechanges:=True
  45.   ActiveWorkbook.Close (True)
  46. End Sub
  47.  
  48.  
Los limites estan en los ojos del hombre, los triunfos en sus mentes, de el es la decision de ser un ciego con fe o un vidente sin futuro
Páginas: [1]
« anterior próximo »