Controlando outro programa de acesso pode ser feito de várias maneiras . Outros aplicativos, incluindo o Microsoft Word e do Excel , pode ser controlado através dos objetos de automação que expõem . Exemplos de tais objetos incluem um documento do Word e uma função de tipo Excel. O acesso pode criar e gerenciar esses objetos como extensões de si Access. Coisas que você precisa
Microsoft Access e Excel
Show Mais instruções
1

Abra o Microsoft Access e pressione Alt + F para expor a "Opções" item de menu. Clique esse item, clique em " Central de Confiabilidade " à esquerda da caixa de diálogo " Opções do Access " . Clique no botão "Configurações da Central de Confiabilidade " , então o " Configurações de Macro " item à esquerda . Clique na opção " Habilitar todas as macros " , em seguida, as caixas de diálogo feche todos pressionando seus botões "OK" .
2

Pressione Alt + F11 para entrar no Visual Basic ambiente de desenvolvimento integrado (IDE). Selecione "Insert ", seguido por "Módulo " na barra de ferramentas do IDE, para criar um novo arquivo para que você digite um programa (AKA " macro ").
3

Cole o seguinte programa na nova janela de código :

Public Sub SayHelloFromAccess () Dim applicationExcel Como Excel.ApplicationSet applicationExcel = CreateObject (" Excel.Application " ) applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = " Olá a partir do Access " applicationExcel.ActiveWorkbook . Salvar como ( "c: \\ FromAccess.xls " ) applicationExcel.QuitEnd Sub
4

Clique em "Ferramentas " e depois em " Referências ", na barra de ferramentas do IDE. Pesquisar na lista da caixa de "Referências" de diálogo para o item "Microsoft Excel Object Library. " Selecione caixa de seleção desse item quando você encontrá-lo, em seguida, pressione "OK" para voltar ao IDE de Acesso ' .
5

Execute o programa clicando em qualquer lugar dentro dele, em seguida, pressionando F5. Aguarde até que o cursor para retornar ao seu ícone "Ready ", depois leva-se em seu ícone "Ocupado"
6

Abra o Windows Explorer e usá-lo para navegar para o arquivo recém-criado por sua macro Access. : "c: \\ FromAccess.xls " . Clique duas vezes nesse arquivo para abrir o Excel e clique em "Sim" se o Excel exibe um aviso sobre a formatação do arquivo. Observe que a planilha do Excel exibe a mensagem " Olá " do seu macro
7

Crie uma nova pasta de trabalho no Excel e salvá-lo como . "C: \\ Book1.xlsm ". Criar uma pequena coluna de números ascendentes de 1 a 10 ou mais, em qualquer lugar da planilha ativa. Selecione a coluna , em seguida, digite " mylist " e pressione " Enter" na caixa Nome do Excel (perto da parte superior esquerda da tela principal do Excel. )
8

Guarde o livro , perto Excel, em seguida, pressione CTRL + Alt + Delete . Clique em "Iniciar Gerenciador de tarefas ", depois clique na guia "Processos" do Gerenciador de Tarefas. Selecione cada item que diz " Excel " e clique em "Finalizar processo " para parar Excel. Feche o Gerenciador de Tarefas.
9

Cole o seguinte programa após a última instrução do programa SayHelloFromAccess você digitou anteriormente .

Public Sub SortExcelList () Dim applicationExcel Como Excel.ApplicationSet applicationExcel = CreateObject (" Excel.Application " ) applicationExcel.Workbooks.Open FileName: = " C: \\ Book1.xlsm " Macro1 applicationExcelapplicationExcel.ActiveWorkbook.SaveapplicationExcel.QuitEnd Sub

Sub Macro1 ( appXL Como Excel.Application ) sel Dim como RangeWith appXL.Application.Goto Referência: = " mylist " ActiveSheet.Sort.SortFields.Clear.ActiveSheet.Sort.SortFields.Add chave: . = Selection.Columns (1) _ , sorton : = xlSortOnValues ​​, Ordem : = xlDescending , _DataOption : . = xlSortNormalWith ActiveSheet.Sort.SetRange Selection.Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd comend comend Sub
10

Posicione o cursor em qualquer lugar na sub-rotina SortExcelList e pressione F5. Reabrir o arquivo "C: \\ Book1.xlsm ." E observe que a coluna de números agora é em ordem decrescente , classificado por seu novo macro Acesso

Se o Access exibe um erro depois que você pressionar F5 , acabar com toda Excel processos utilizando as instruções da Etapa 8 , em seguida, repita este passo.