Copiar los datos de un rango de excel
Publicado por Luis (34 intervenciones) el 23/02/2017 01:30:40
Esto lo traigo desde hace tiempo espero su ayuda nos soy experto pero hago lo mejor, pregunta tengo un formulario de el recoge datos de una hoja de Excel mi problema radica en que deseo recorrer un rango de celdas especificas y guardarlas este es mi código lo hace bastante bien pero como les planteo en un rango de celdas necesito que las recorra y si tiene datos que los copie
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set rs1 = CurrentDb.OpenRecordset("Select Elemto,FchaRpte,clite,PcioList,Ruta,NomArchivo from TblArchivos ")
rs1.MoveFirstDo While Not rs1.EOFIf rs1!PcioList = 4 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
MiFecha = xlsBook.workSheets("BASE HIDRAULICA").Range("I7") 'Coloca en TextBox1 el valor de la celda A1 de la Hoja "Hoja"
otro = xlsBook.workSheets("BASE HIDRAULICA").Range("B9") 'Coloca en TextBox1 el valor de la celda A1 de la Hoja "Hoja"
rs1.Editrs1.Fields("FchaRpte").Value = MiFecha
rs1.Fields("Elemto").Value = otro
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.RefreshValora esta pregunta
0