Página 1 de 1
selecionar planilha em excel
Enviado: 09 Set 2015 16:55
por tonyx
tenho arquivo em excel= layout.xls
com 3 planilhas
como mudar ou selecionar planilhas: nomes planilha = dados ; aux_G1; G1
o que eu tenho ate agora
oExcel = CREATEOBJECT( "Excel.Application" )
// oExcel := TOleAuto():New( "Excel.Application" )
IF oExcel = nil
alerta("Erro ao Abrir o Excel")
return(ok_xls)
endif
oExcel:WorkBooks:open(arq_tmp) // e esta aqui pois trabalho cima planilha de layout -- ja pronta e so preencher
//oExcel:WorkBooks:Add()
oSheet:= oExcel:get("ActiveSheet")
oExcel:Visible := .f. // start do excel, invisivel
//oSheet:Name:= aba_aux // funciona modo -> oExcel:WorkBooks:add()
//oSheet:Name(aba_aux):Activate() // nao funciona
//oSheet:get(aba_aux):selecet() // nao funciona
==== questao e comando mudar o ativar a planilha para trabalho ---
grato a todos pela ajuda :% :%
selecionar planilha em excel
Enviado: 09 Set 2015 19:16
por Toledo
Amigo, tente o seguinte:
Código: Selecionar todos
oExcel:WorkBooks:open(arq_tmp)
oExcel:Sheets("G1"):Select()
oSheet:= oExcel:ActiveSheet()
Abraços,
selecionar planilha em excel
Enviado: 10 Set 2015 10:47
por tonyx
grato grande mestre ..
:{ :{ :{ :{
selecionar planilha em excel
Enviado: 03 Fev 2016 15:10
por hs_paulo
Estou com um problema. Ja vasculhei todo o forum e não encontei solução.
Eu recebo uma arquivo .xlsx do servidor de internet com os dados de meus produtos. Preciso, por exemplo, atualizar a coluna SALDO e devolver ao servidor pra atualizar.
Como fazer pra atualizar o conteudo de uma celula? Ou simplesmete ler o conteudo?
selecionar planilha em excel
Enviado: 04 Fev 2016 00:51
por Paredes01
Hola
De está forma puedes leer el contenido de una hoja de excel.
En mi caso de acuerdo a una lista en excel hago el backup de algunas facturas (tengo miles de facturas en una carpeta de acuerdo a la lista en excel son las que se copian a otra carpeta).
Anexo archivo para pruebas.
Saludos
Ariel
Código: Selecionar todos
#include "ado.ch"
#include "Fileio.ch"
Procedure Main()
local oConn, oComm, oRs, oErr
local cPath:= CurDrive() +":\"+ CurDir() + "\"
local cTemp:= cPath
local cConn:= "", cTest, cState
local cFile:="FACTURAS.xlsx"
public cFactura
Cls
SetMode(25, 80)
cConn+= 'Provider=Microsoft.ACE.OLEDB.12.0;'
cConn+= 'Data Source=' + cPath + cFile + ';'
cConn+= 'Extended Properties="Excel 12.0;HDR=No;IMEX=1";'
Try
oConn:=CreateObject( "ADODB.Connection" )
With object oConn
:ConnectionString:=cConn
:Open()
cState:= oConn:State
@ 22,01 say "Estatus : " + iif(cState = 0, "Desconectado","Conectado ")
End
oComm:=CreateObject( "ADODB.Command" )
With object oComm
:CommandText:="select * from [AURORA$]"
:CommandType:=adCmdText
:ActiveConnection:=oConn
oRs:=:Execute()
End
With object oRs
For i:=1 to 1 // Brincamos la priemra línea
:MoveNext()
Next
Do while !:Eof()
cFactura := space(12)
cFactura:= alltrim( :Fields(0):Value) // Folio de Factura
@ 10, 10 SAY cFactura
TAREA()
:MoveNext()
Enddo
End
oRs:Close()
oConn:Close()
oRs:=NIL
oComm:=NIL
oConn:=NIL
Catch oErr
Alert( "Error: " + oErr:Operation + " " + oErr:Description )
End
Return
//---------------------
Procedure Tarea()
Local nRow:= Row()
Local nCol:= Col()
cUnidad := "C"
If IsDirectory(cUnidad + ":")
PLSWAIT(.T.,"RESPALDANDO, ESPERE POR FAVOR !!",22,19,24,56)
cCarpeta := "BackupFacturas"
If !IsDirectory("C"+ ":\"+cCarpeta)
MAKEDIR( "C"+ ":\"+cCarpeta)
Endif
FILECOPY(CurDrive() +":\"+ CurDir() + "\" + cFactura + ".pdf" , cUnidad + ":\" + cCarpeta + "\" + cFactura + ".pdf" )
FILECOPY(CurDrive() +":\"+ CurDir() + "\" + cFactura + ".xml" , cUnidad + ":\" + cCarpeta + "\" + cFactura + ".xml" )
PLSWAIT(.F.)
Else
PLSWAIT(.T., "No existe la unidad para grabar ..")
inkey(2)
PLSWAIT(.F.)
Endif
Setpos(nRow,nCol)
Return