Programación General > Visual Basic 6.0 e inferiores

 Editor De Excel

(1/1)

LUKER:
: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:

LUKER:
: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 ---Private Sub CommandButton17_Click() '    Dim i As Integer    Dim Lar As Integer    Dim Ini As Integer    Dim Largo As Integer    Dim Nombre As String    Application.ScreenUpdating = False    Sheets.Add       ChDir _        "C:\Documents and Settings\jocata\Escritorio\programa\prueva\S.T   BARRANCA\CIRCUITO BARRANCA\AÑO 2004\"    miarchivo = Application.GetOpenFilename("Archivo de Datos,*.xls")    Workbooks.OpenText Filename:=miarchivo    Sheets("fuente").Select    ActiveWindow.ScrollWorkbookTabs Position:=xlLast    ActiveWindow.ScrollWorkbookTabs Position:=xlLast    ActiveWindow.ScrollWorkbookTabs Position:=xlLast    Nombre = ActiveWindow.Caption    Sheets("fuente").Select    Range("C1:K2").Select    Selection.Copy    Windows("maestrov7.xls").Activate    Range("B3").Select    ActiveSheet.Paste    Windows(Nombre).Activate    Range("C3:C98").Select    Application.CutCopyMode = False    Selection.Copy    Windows("maestrov7.xls").Activate    Range("B5").Select    ActiveSheet.Paste     ActiveWindow.Close    ActiveWindow.SmallScroll Down:=-9    ActiveWindow.SmallScroll Down:=-384    Range("A1").Select' todo esto se pone en un while para varios archivosEnd Sub ' y con este salve los cambios y cerre todo. Private Sub CommandButton18_Click()  ActiveWorkbook.Close  ActiveWorkbook.Close Savechanges:=True  ActiveWorkbook.Close (True)End Sub  

Navegación

[0] Índice de Mensajes