É ú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 para compartilhar informações. Os programadores muitas vezes precisam de exportar informações de uma aplicação VB.NET para uma planilha do Microsoft Excel. No entanto, você pode escrever código VB.NET para copiar dados para a área de transferência do sistema e colá-lo em uma planilha do Excel. Instruções
1

Digite o seguinte código em um novo sub-rotina no seu projeto VB.NET para declarar as variáveis ​​do Excel :

Dim xlApp as Microsoft.Office.Interop.Excel.Application = nada

Dim XLBooks Como Microsoft.Office.Interop.Excel.Workbooks = nada

Dim xlBook Como Microsoft.Office.Interop.Excel.Workbook = Nothing

Dim XLSheets Como Microsoft.Office.Interop.Excel.Sheets = Nada

Dim xlSheet Como Microsoft.Office.Interop.Excel.Worksheet = Nothing
2

Digite o seguinte para adicionar uma seqüência de texto para a área de transferência e obter o texto da área de transferência :

Dim processObject as New Processo

Clipboard.SetDataObject (". Este é copiado para a área de transferência e adicionado ao Excel" )

Dim clipboardObject Como IDataObject = Clipboard.GetDataObject ()
3

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

xlApp = Novo 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

Digite o seguinte para adicionar a seqüência da área de transferência para o Excel :

com clipboardObject

Se GetDataPresent ( DataFormats . . texto) Então

XLSheet.Cells (1, 1) = . GetData ( DataFormats.Text )

End If End With

5

Execute o programa .