Todos os aplicativos de escritório da Microsoft oferecem suporte à automação. Eles podem ser executados como servidores COM e usados a partir de scripts externos ou incorporados a documentos. Portanto, você pode gravar dados em um documento Excel a partir de um script vba.
Necessário
- - instalado o aplicativo Microsoft Excel;
- - Editor de Visual Basic / editor de texto.
Instruções
Passo 1
Crie um contêiner para hospedar o código vba. Se o script for incorporado a um documento, carregue o arquivo apropriado no Microsoft Excel. Abra o Editor do Visual Basic pressionando Alt + F11. Se necessário, crie um novo módulo (item Módulo no menu Inserir). Abra um dos módulos ou formulários. Crie um manipulador para seu controle de formulário ou apenas adicione um procedimento a um módulo. Por exemplo:
Subteste ()
End Sub
Se você estiver desenvolvendo um script autônomo (ou seja, ele será executado no Windows Script Host), basta criar um arquivo com a extensão vbs em um editor de texto.
Passo 2
No script embutido no documento, adicione declarações de variáveis no início do procedimento:
Dim oWorkbook As Excel. Workbook
Dim oSheet As Excel. Worksheet
O primeiro é para armazenar uma referência a um objeto de pasta de trabalho do Excel e o segundo é para uma planilha.
etapa 3
Inicialize variáveis com referências de objeto. No script vbs, crie um objeto de aplicativo Excel (isso iniciará o Excel como um servidor COM):
Defina oApplication = CreateObject ("Excel. Application").
No script embutido no documento, o objeto Aplicativo global será usado em vez da variável oApplication, que se refere ao objeto do aplicativo atual. Selecione uma pasta de trabalho existente ou abra uma nova do Excel. Por exemplo:
Defina oWorkbook = Application. Workbooks (1)
Definir oWorkbook = Application. Workbooks ("Book1")
Defina oWorkbook = oApplication. Workbooks. Open ("D: / vic / relevant / tmp / test.xls")
Obtenha um link para a página desejada do livro:
Defina oSheet = oApplication. Sheets ("Sheet1")
Passo 4
Grave dados no Excel a partir do script vba. Use a coleção Cells, que é uma propriedade do objeto de planilha da pasta de trabalho referenciado na etapa anterior, na variável oSheet. Um exemplo de gravação de uma string em uma célula pode ser assim:
oSheet. Cells (1, 1) = "A string será gravada na célula A1"
Etapa 5
No script vbs, adicione o código para salvar os dados e desligue o aplicativo Excel:
oWorkbook. Save
oApplication. Quit
Etapa 6
Salve e execute o script. No Editor do Visual Basic, pressione Ctrl + S e, a seguir, posicione o cursor no corpo do procedimento e pressione F5. Salve o script vbs no disco e execute-o como um arquivo normal.
