Como importar dados do excel para o word usando o visual basic

No mundo da programação é útil para saber como importar dados do Microsoft Office Excel para um documento do Microsoft Office Word para shareability. Word é um aplicativo de processamento de texto incluído no pacote Office. Excel é um aplicativo de planilha também parte do pacote Office. Visual Basic for Applications (VBA) é uma linguagem de programação de computador usado para automatizar tarefas de rotina em aplicativos do Microsoft Office. Use VBA para automatizar o processo manual de importação de planilhas do Excel para documentos do Word.

  • Inicie o Microsoft Office Word, selecione o "Desenvolvedor" guia, em seguida, clique "Visual básico." Selecione os "Inserir" Menu e clique "Módulo."

    Selecione os "Ferramentas" Menu e clique "Referências." Marque a caixa ao lado "Microsoft Excel Object Library." Clique "ESTÁ BEM."

  • Digite o seguinte para criar uma nova sub-rotina:

    Private Sub importExcelData ()

    pressione "Entrar."

  • Digite o seguinte para criar suas variáveis:

    Dim livro como pasta de trabalho

    Dim dataInExcel As String

  • Digite o seguinte para abrir o livro do Excel:

    Application.ScreenUpdating = False

    Definir pasta de trabalho = Workbooks.Open ("C: Book1.xls", Verdade verdade)

    Editar "C: Book1.xls" e digite o seu próprio caminho e pasta de trabalho nome.



  • Digite o seguinte para obter "A1" dados na sua pasta de trabalho e adicioná-lo ao documento do Word:

    dataInExcel = workBook.Worksheets ("Sheet1").Alcance("A1").Fórmula

    Selection.TypeParagraph

    Selection.TypeText Texto: = dataInExcel

  • Digite o seguinte para obter "A2" dados na sua pasta de trabalho e adicioná-lo ao documento do Word:

    dataInExcel = workBook.Worksheets ("Sheet1").Alcance("A2").Fórmula

    Selection.TypeParagraph

    Selection.TypeText Texto: = dataInExcel

  • Digite o seguinte para fechar a pasta de trabalho e liberar as variáveis ​​da memória:

    workBook.Close False

    Definir pasta de trabalho = Nothing

    Application.ScreenUpdating = True

De esta maneira? Compartilhar em redes sociais:

LiveInternet