selecionar planilha em excel

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

[Toledo]

Amigo, tente o seguinte:

Código: Selecionar todos

oExcel:WorkBooks:open(arq_tmp)
oExcel:Sheets("G1"):Select()
oSheet:= oExcel:ActiveSheet()

Abraços,

[tonyx]

grato grande mestre ..

:{ :{ :{ :{

[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?

[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