Como copiar para área de transferência no Microsoft Visual Basic

Escrito por jaime avelar | Traduzido por paula mangia garcia terra
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como copiar para área de transferência no Microsoft Visual Basic
Você pode copiar os dados para a área de transferência do sistema usando o Visual Basic.NET (digital city. binary tunnel and city at night image by Stasys Eidiejus from Fotolia.com)

É útil saber como usar a área de transferência do sistema para copiar informações de uma aplicação para outra usando o Microsoft Visual Basic.NET (VB.NET). A área de transferência é um ambiente que é compartilhado entre os programas no Windows, tornando mais fácil o compartilhamento de informações. Os programadores, muitas vezes, precisam exportar informações de uma aplicação VB.NET para uma planilha do Microsoft Excel. No entanto, você pode escrever o código VB.NET para copiar dados para a área de transferência do sistema e colá-lo em uma planilha do Excel.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

  1. 1

    Digite o seguinte código em uma nova subrotina em seu projeto VB.NET para declarar suas variáveis ​​do Excel:

    Dim XLApp As Microsoft.Office.Interop.Excel.Application = Nothing Dim XLBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing Dim XLBook As Microsoft.Office.Interop.Excel.Workbook = Nothing Dim XLSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing Dim XLSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing

  2. 2

    Digite o seguinte código para adicionar uma seqüência de texto à área de transferência e obter o texto a partir dela:

    Dim processObject As New Process Clipboard.SetDataObject("Isso é copiado para a área de transferência e adicionado ao Excel.")

    Dim clipboardObject As IDataObject = Clipboard.GetDataObject()

  3. 3

    Digite o seguinte código para abrir o Excel e adicionar uma nova planilha:

    XLApp = New Microsoft.Office.Interop.Excel.Application XLApp.Visible = True XLApp.DisplayAlerts = False XLBook = CType(XLApp.Workbooks.Add(), Microsoft.Office.Interop.Excel.Workbook) XLBooks = XLApp.Workbooks XLSheet = CType(XLBooks(1).Sheets.Item(1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

  4. 4

    Digite o seguinte código para adicionar a sequência a partir da área de transferência para o Excel:

    With clipboardObject If .GetDataPresent(DataFormats.Text) Then XLSheet.Cells(1, 1) = .GetData(DataFormats.Text) End If End With

  5. 5

    Execute seu programa

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível