Re: [sqlwin] Abrir mais de uma planilha em pasta de trabalho Exce

Thu, 03 Jul 2008 13:06:03 -0700 

Segue abaixo, espero que ajude,

!!CB!! 279
Function: ActivateSheet
   Description:
   Returns
       Boolean:
   Parameters
       String: p_s_Sheet
   Static Variables
   Local variables
       String: s_Name
       Number: n_Index
       Number: n_NewIndex
       : oWorkSheetTmp
           Class: Excel__Worksheet
   Actions
       Call oWorkbook.PropGetActiveSheet( oWorksheet )
       Loop
           Call oWorksheet.PropGetName( s_Name )
           Call oWorksheet.PropGetIndex( n_Index )
           If s_Name = p_s_Sheet
               Return TRUE
           Call oWorksheet.PropGetPrevious( oWorkSheetTmp )
           If not oWorkSheetTmp.Activate()
               Break
           Call oApp.PropGetActiveWorkbook( oWorkbook )
           Call oWorkbook.PropGetActiveSheet( oWorksheet )
       Call oWorkbook.PropGetActiveSheet( oWorksheet )
       Loop
           Call oWorksheet.PropGetName( s_Name )
           Call oWorksheet.PropGetIndex( n_Index )
           If s_Name = p_s_Sheet
               Return TRUE
           Call oWorksheet.PropGetNext( oWorkSheetTmp )
           If not oWorkSheetTmp.Activate()
               Break
           Call oApp.PropGetActiveWorkbook( oWorkbook )
           Call oWorkbook.PropGetActiveSheet( oWorksheet )
       Return FALSE

Sds,
Erasmo

--

Erasmo Bispo de Oliveira Junior
Gerente de Pesquisa e Desenvolvimento
Softway - Softcomex Informática Ltda.
Pabx:   +55 (19) 3344.9200
Direto: +55 (19) 3344.9361
Fax:    +55 (19) 3344.9240
e-mail: [EMAIL PROTECTED]
web:    http://www.softcomex.com.br


On 3/7/2008 14:49, Marcelo Urbano wrote:
Uso a classe cExcel há 5 anos, com total sucesso na obtenção e geração de informações em planilhas. Pela primeira vez tenho que acessar (entrar e obter) valores em mais de uma planilha dentro de um mesmo XLS. Para uma delas, que é a ativa quando se abre o Excel, tudo funciona normalmente. como era de esperar. Não estou conseguindo porém acessar as demais. Já tentei de todos os jeitos que pude imaginar, procurei e encontrei referência completa da programação de VBA no MSDN, mas nenhuma das implementações funciona! Alguém pode me ajudar? Marcelo Urbano

Responder a