Ir para conteúdo
Fórum Script Brasil

joaoclaudio20

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre joaoclaudio20

joaoclaudio20's Achievements

0

Reputação

  1. 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 ...
×
×
  • Criar Novo...