SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: LUKER en Miércoles 27 de Octubre de 2004, 18:46

Título: Editor De Excel
Publicado por: LUKER en Miércoles 27 de Octubre de 2004, 18:46

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

Título: Re: Editor De Excel
Publicado por: LUKER en Viernes 29 de Octubre de 2004, 00:04

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