Ir ao conteúdo
  • Cadastre-se

funcionamento do "thisworkbook.name"


Posts recomendados

bom dia !

 

Estou com uma duvida em como uso o "thisworkbook.name"

 

no meu caso tenho duas planilhas que mudam de nome diariamente e com isso não consigo usar o sheets("xxx").select

 

 

com o thisworkbook.name identifico a planX mas quando estou no outro arquivo executando o restante da macro ele identifica a planY como sendo igual a planX

 

quero usar essa nomenclatura para para usar "X;Y" como referencia para mudar de arquivo.

 

 

alguém pode me ajudar 

 

 

Exemplo do que quero que aconteça 

 

 

Sub teste()''INICIO DA MACROSem_parar = ThisWorkbook.Name'''' ABRE o BD 01''x = Range("A1") + 1Dim Path As StringDim D As StringDim M As StringDim A As StringDim File1 As StringPath = "F:\Transporte\Banco de Dados\BD1 Controle de Cargas\BD01\2015\07_Julho\BD1 01 a "D = Format(Now, "DD")M = "." & Format(Now, "mm") & "."A = Format(Now, "yyyy") & ".xlsx"File1 = Path & nome & D & M & AWorkbooks.Open Filename:=File1         Range("A1").Activate                  ''' NESTE PONTO QUERO IDENTIFICAR QUAL É O MEU WORKBOOK         bd01 = ThisWorkbook.Name         ActiveCell.Offset(0, 0).Range("A1:br1").Select         Range(Selection, Selection.End(xlDown)).Select         Selection.Copy''''' COLA NO ARQUIVO DO SEM PARAR              Workbooks("planX").Activate           Range("A1").Activate           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _      :=False, Transpose:=False           Range("A1").Activate''''' Fecha BD01             Workbooks("planY").Activate           Workbooks("plannY").Close FalseEnd Sub
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...