Excel salva em vba com nome range

[gilson santos07]

Tenho uma planilha mas não consigo gravar com os dados da range "E9" da erro de sintaxe.

 

Private Sub btExecuta_Click()

Dim Wp      As Workbook         'pasta atual
Dim ws      As New Workbook     'nova pasta de trabalho
Dim WPsheet As Worksheet        'Planilha atual
Dim RngWP As Range              'região com dados da plan atual
Dim Rg As Range

Set Wp = ActiveWorkbook
Set WPsheet = Wp.Sheets("Pedido")
Set Rg = Range("E9")
WPsheet.Select

WPsheet.UsedRange.Copy  'todas as celulas utilizadas
   
Set ws = Workbooks.Add   'Adciona uma nova workbook
ws.Sheets(1).Select

ActiveCell.PasteSpecial Paste:=xlValues

ws.Sheets(1).Name = WPsheet.Name

Application.DisplayAlerts = False

    ws.SaveAs Wp.Path "\(E9) -" & Year(Date) & "-" & Month(Date)
    ws.Close saveChanges:=True
    
Application.DisplayAlerts = True

Wp.Activate
Wp.Sheets(1).Select

WPsheet.Range("A1").Select

MsgBox "Geração do arquivo concluida", vbOKOnly

End Sub

[Victor Comparini]

Olá!

 

Tente resolver da seguinte forma:

Set Rg = Range("E9").value

ws.SaveAs Wp.Path "\"& Rg & "-" & Year(Date) & "-" & Month(Date)

 

[Edson Luiz Branco]

Bem vindo, @gilson santos07!

Falta um & na expressão:

ws.SaveAs Wp.Path & "\(E9) -" & Year(Date) & "-" & Month(Date)

 

Além disso, se E9 na expressão acima é um valor a ser avaliado e não um texto, então tanto a sintaxe como o fato de ele estar entre aspas estariam errados. Se assim for, tente:

ws.SaveAs Wp.Path & "\" & [E9].Value & "-" & Year(Date) & "-" & Month(Date)

 

[gilson santos07]

23 minutos atrás, Vics disse:

Olá!

 

Tente resolver da seguinte forma:

Set Rg = Range("E9").value

ws.SaveAs Wp.Path "\"& Rg & "-" & Year(Date) & "-" & Month(Date)

 

Vics

esta com erro também

adicionado 1 minuto depois

14 minutos atrás, Edson Luiz Branco disse:

Bem vindo, @gilson santos07!

Falta um & na expressão:

ws.SaveAs Wp.Path & "\(E9) -" & Year(Date) & "-" & Month(Date)

 

Além disso, se E9 na expressão acima é um valor a ser avaliado e não um texto, então tanto a sintaxe como o fato de ele estar entre aspas estariam errados. Se assim for, tente:

ws.SaveAs Wp.Path & "\" & [E9].Value & "-" & Year(Date) & "-" & Month(Date)

 

Edson

 

Perfeito muito obrigado