Ser capaz de inserir dados em uma pasta de trabalho do Microsoft Excel fará com que seu aplicativo Visual Basic mais dinâmico. Muitas vezes você tiver a necessidade de inserir a data para uma pasta de trabalho quando você exporta dados de seu aplicativo VB . Em VB , você pode usar a biblioteca de objetos do Microsoft Excel para criar uma nova pasta de trabalho Excel e inserir dados nela. Você pode usar a função "Agora " para obter a data do sistema e inseri-lo para o Excel usando a propriedade " Range" . Instruções
1

Abra o Microsoft Visual Basic Express , clique em " New Project" no painel esquerdo da tela do seu computador, clique em "Windows Forms Application ". Clique em " OK".
2

Clique duas vezes em "Button" para adicionar um novo botão. Clique duas vezes em "Button1 " para criar um evento click para este botão. Clique no menu " Project", clique em "Add Reference", em seguida, clique na aba " COM" . Clique duas vezes em " Object Library " para adicioná-lo como referência.
3

Copie e cole o seguinte código para criar as variáveis ​​de objeto do Excel você usará para criar uma nova pasta de trabalho Excel:

Dim objXLS Como Aplicação = novo Aplicativo

Dim objXLXBks como pastas de trabalho = Nothing

Dim objXLSBk Como livro = Nothing

Dim objXLSShts como folhas = Nothing

Dim objXLSSht Como Planilha = Nothing

Dim objXLSrng Como Faixa = Nothing
4

Digite o seguinte código para adicionar um novo livro :

objXLS.Visible = False

objXLS.DisplayAlerts = False

objXLSBk = CType ( objXLS.Workbooks.Add () , Pasta de Trabalho)
5

Adicione o seguinte código para adicionar uma nova planilha:

objXLXBks = objXLS.Workbooks

objXLSSht = CType ( objXLXBks (1) Sheets.Item (1), planilha . )

objXLSShts = objXLSBk.Worksheets
6

Inserir a data para "A1" em Excel , adicionando a seguinte linha de código:

objXLSSht.Cells (1, 1) = Agora ()
7

Guarde o livro Excel , digitando o seguinte código:

objXLSSht.SaveAs ( "C: \\ ExcelDate.xlsx " )
8

Exibe uma caixa de mensagem quando o livro foi criado e salvo.

MessageBox.Show (" Data foi adicionada ao Excel" )

Pressione F5 para executar o programa , clique em "Button1 . "