Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia dados de determinado intervalo de células para o Aplicativo Word.
Private Sub CommandButton1_Click()
Dim MSWord As Object
Worksheets("Plan1").Range("A1:B3").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
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade Compre com segurança, garantia e ótimos preços
|