Copiar datos de una hoja de excel
Publicado por Luis (34 intervenciones) el 18/08/2018 16:15:34
Hola agradezco poder contar con el apoyo de ustedes primero que nada quiero comentarles que la programación no es mi área soy administrativo y hago algunas cosas en Access para poderme apoyar en mi gestión como administrador mi solicitud de apoyo en usted radica en lo siguiente.
Estoy haciendo una base de datos, en la que abro una o varias hoja de Excel buscando una o varias palabras que se encuentran en la hoja de Excel las copio la celda que se encuentra a su derecha a mi base de datos, mi problema radica en que cuando abro la primera hoja de Excel busca la palabra la encuentra copia y pega en mi base de datos al abrir la siguiente hoja de Excel me copia los datos de la hoja que anteriormente abrí.
Este es mi código:
Estoy haciendo una base de datos, en la que abro una o varias hoja de Excel buscando una o varias palabras que se encuentran en la hoja de Excel las copio la celda que se encuentra a su derecha a mi base de datos, mi problema radica en que cuando abro la primera hoja de Excel busca la palabra la encuentra copia y pega en mi base de datos al abrir la siguiente hoja de Excel me copia los datos de la hoja que anteriormente abrí.
Este es mi código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Select Case strNo
Case 1:Set rs1 = CurrentDb.OpenRecordset("Select Ruta,NomArchivo,Cpto,Impte,NoPresp,clite,FchaPto,iva,total from TblArchivos ")
rs1.MoveFirstDo While Not rs1.EOFIf rs1!Impte = 1 Then
Miruta = rs1!Ruta & rs1!NomArchivo
Set xlsApp = CreateObject("Excel.Application") 'Crea una instancia de la aplicaci?n Excel
Set xlsBook = xlsApp.Workbooks.Open(Miruta) 'Abre el libro especificado
Range("a1:z258").Find(What:="Sicc", After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Select
Cto = ActiveCell.Value
Range("a1:z258").Find(What:="Importe", After:=ActiveCell).Activate
ActiveCell.Offset(0, 1).Select
Cto = ActiveCell.Value
rs1.Editrs1.Fields("Cpto").Value = Cto
rs1.Fields("Impte").Value = Ipte
rs1.UpdatexlsBook.Close 'Cierra el libro
Set xlsBook = Nothing 'cierra el objeto
xlsApp.Quit 'Cierra la aplicaci?n
Set xlsApp = Nothing 'cierra el objeto
End If
rs1.MoveNextLoop
rs1.CloseMe.RefreshCase Else:MsgBox ("Tiene que poner el Numero, el 1 ")
End Select
End Sub
Valora esta pregunta
0