Notifications
Clear all

Curinga no Excel

4 Posts
1 Usuários
0 Reactions
767 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, preciso desse help pois já tentei de tudo...

O nome do arquivo a ser anexado é: Planilha 123456.xlsm, mas o número final poderá variar...

Tentei isso, mas não rodou:

.Attachments.Add "C:UsersNome UsuarioRelatorioNovembroPlanilha " & Like "*.xlsm"

 
Postado : 30/11/2011 11:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ricardo, supondo que o numero final esteja digitado em uma Celula, tente o código abaixo :

Dim sNumFinal As String
Dim sPlanilha As String

sPlanilha = "Planilha"
sNumFinal = [A1]

.Attachments.Add "C:UsersNome UsuarioRelatorioNovembro" & sPlanilha & "_" & sNumFinal & ".xlsm"

[]s

 
Postado : 01/12/2011 10:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mas o número final poderá ser qualquer coisa (*).

Algo assim ( *.xlsm )

 
Postado : 01/12/2011 11:32 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ricardo, eu me basiei somente na informação que passou :

O nome do arquivo a ser anexado é: Planilha 123456.xlsm, mas o número final poderá variar.

Agora quanto a:
Mas o número final poderá ser qualquer coisa (*) - Em programação esta informação "ser qualquer coisa" é redundante, temos de definir a mesma em uma Variável. Ou seja, de onde irá tirar estes numeros ?

Algo assim ( *.xlsm ) - Esta linha somente informa a "extensão do arquivo" ou seja o mesmo é do Excel 2007 com macros.

Colocando um pouco os neuronios pra funcionar, o "tico disse pro teco ", acho que o Ricardo que anexar "Todos os Arquivos da pasta informada, que teem o nome Planilha_12345.xlsm, Planilha_33333.xslm, e assim por diante, mas a unica parte que altera no nome são os Numeros.

Confirme se está correto, e se for isto, poste a rotina inteira que está utilizando, assim poderemos contruir uma rotina onde captamos somente o Nome inicial dos arquivos.

[]s

 
Postado : 01/12/2011 11:52 am