Criação , acessando e adicionando ou excluindo dados no Excel é possível através do Visual Basic 6 . Algumas breves linhas de código em Visual Basic irá realizar as duas primeiras ações. Entretanto, a alteração de dados do Excel é mais complicado e exige muito mais do que possível explicação neste artigo. Escrever programas para fazer isso pode ser útil se o desenvolvedor precisa para simplificar o uso do Excel para usuários inexperientes . Usando formulários do Visual Basic permitem mais modificação e instrução do que poderia ser possível no Excel. Instruções
1
Abra o programa Microsoft Visual Basic 6 , clique em " Arquivo" e escolha " Standard.exe " a partir da lista de modelos "New Project ". . Um novo formulário será aberto na tela, denominada " Projeto 1 - . Form1 ( Form) " Dê um duplo clique três vezes no ícone do botão de comando no painel da esquerda para adicionar três botões ao formulário. Salve o formulário com um nome de arquivo de sua escolha .
2
Clique em " Exibir" e "Propriedades Pages " ( este já pode ser que mostram no painel da direita) e clique no primeiro botão no formulário . Na janela Propriedades , clique duas vezes em "Legenda " e altere o texto para "Abrir Planilha Existente . " Alterar a segunda legenda do botão "Criar nova planilha. " Repita o procedimento para o terceiro botão , mas mudar esta legenda para " Exit ". Arraste os dois primeiros botões de modo que ficam em frente uns dos outros . Coloque o terceiro abaixo dos outros dois.
3
Dê um duplo clique no botão "Abrir planilha existente " . Isso muda a visão de " objeto " para " Código" e insere um novo procedimento. Digite estas linhas exatamente como aparecem entre o " Private Sub Command1_Click () " e " End Sub ", que já deveria estar lá.
Opção ExplicitDim MyExcel As New Excel.ApplicationDim MyWorkbook Como Excel. WorkbookDim MyWorksheet Como Excel.WorksheetDim FileName Como StringFileName = InputBox ("Digite o nome completo ea localização do arquivo de Excel" ) Definir MyWorkbook = MyExcel.Workbooks.Open ( FileName ) Definir MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
< br > 4
Dê um duplo clique em " Criar nova planilha " e digite essas linhas de código.
Set MyWorkbook = MyExcel.Workbooks.AddSet MyWorksheet = MyWorkbook.Worksheets ( "Sheet1" ) Definir MyWorksheet = MyExcel.ActiveSheetMyExcel.Visible = True
5
Termine o código , clicando duas vezes no botão " Sair" no formulário e digitar estas linhas .
MyExcel.QuitEnd
6
Teste o programa com a tecla " F5 ". Se isso não funcionar , volte e verifique o código. Deve ser exato. Se você receber um erro dizendo que o arquivo existente não pode ser encontrado , verifique o local e garantir que você entrou exatamente. Quando tudo estiver funcionando , clique em " Arquivo", depois " Marca" e segui-lo pelo nome atribuído ao projeto no início. Isto irá criar uma versão executável que pode ser executado diretamente.