Boa noite estou com dificuldade para criar um aquivo do notepad apartir de intevalo do excel,
no word funcionou com o codigo abaixo, porém não consegui fazer para o notepad, apenas para visualizar.
Private Sub CommandButton1_Click()
Dim MS As Object
Worksheets("VDSLCoge11").Range("P1:P75").Copy
Set MSWord = CreateObject("word.Application")
MSWord.Visible = True
MSWord.ScreenUpdating = True
With MSWord
With .Documents.Add
.Range.Paste
End With
.WindowState = wdWindowStateMaximize
End With
End Sub
Pergunta
joaoclaudio20
Boa noite estou com dificuldade para criar um aquivo do notepad apartir de intevalo do excel,
no word funcionou com o codigo abaixo, porém não consegui fazer para o notepad, apenas para visualizar.
Private Sub CommandButton1_Click()
Dim MS As Object
Worksheets("VDSLCoge11").Range("P1:P75").Copy
Set MSWord = CreateObject("word.Application")
MSWord.Visible = True
MSWord.ScreenUpdating = True
With MSWord
With .Documents.Add
.Range.Paste
End With
.WindowState = wdWindowStateMaximize
End With
End Sub
se alguém puder me ajudar ...
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.