Jump to content
Fórum Script Brasil

andregiordano43

Membros
  • Content Count

    18
  • Joined

  • Last visited

Community Reputation

0 Neutro

About andregiordano43

  1. Não amigo, acho que eu não expliquei direito. O Office 2007 tem uma funcionalidade quando você exporta uma consulta para Excel que, ao final da exportação, pergunta se você não quer gravar aquele procedimento. O que quero saber é onde ele armazena esse procedimento, que suponho ser um código VBA, para que eu o copie e faça-o rodar através de meu botão. Abraços!!!
  2. Boa tarde !!! Gostaria de saber se algum dos colegas sabe informar onde o Access 2007 armazena o código VBA das 'Exportações Salvas', aba Dados Externos. Pergunto pois estou prestes a 'travar' minha base(esconder menus, etc) e gostaria de rodar este código atrás de um botão em meu formulário de controle. Abraços!!!
  3. Já tentei selecionar dessa forma. O erro é apresentado na linha citada por você. (Onde define-se o range para o gráfico) Quando deixo a linha citada como "=Sel" apenas, o erro é o seguinte: "Erro em tempo de execução 424: O objeto é obrigatório" Att, André
  4. Bom dia! Estou desenvolvendo um código em VBA para que quando a pessoa clique no botão ele identifique automaticamente a(s) última(s) linhas inserida na planilha e atualize um gráfico. Para tanto, programei as linhas abaixo: Sub Macro2() Range("A1").Select Sel = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveSheet.ChartObjects("Gráfico 1").Activate ActiveChart.SetSourceData Source:=Range(Sel) MsgBox "Gráfico Atualizado !!!", vbOKOnly, "Aviso!" End Sub Porém, me é apresentado o seguinte erro: "O Método Range do Objeto Global Falhou" Alguém tem al
  5. Boa tarde! Estou tentando criar uma consulta adiciona tabela que deveria funcionar da seguinte forma: Tenho em uma tabela(Chamada de "Plan1") com dados de ocorrencias de 01/06 à 10/06 e em outra tabela, (Chamada "Plan11")com dados de ocorrencias de 01/06 à 15/06. Tentei fazer uma consulta cria tabela com o relacionamento tipo 2 "Incluir Todos os registros de Plan11 e somente os registros de Plan1 quando os campos associados forem iguais" e relacionei todos os campos de Plan11 para Plan1. O problema é que ele simplesmente sobrescreve os dados de Plan1 com os da Plan11, porém eu preciso que e
  6. Olá amigo !!! Ele deu um erro quando digitei o comando que você passou: "O Objeto é obrigatório" Voce sabe como resolver? Abraços!!
  7. Boa tarde à todos!! Estou desenvolvendo um aplicativo que consolida alguns dados utilizando VBA no Excell e depois importa tudo para o Access. Fiz um formulário no Access para deixar uma interface mais familiar para o usuário, porém o problema é que quando o user clica no botão onde roda a macro VBA (que está no Excell), alguns InputBox e MsgBox não aparecem!! Quer dizer, até aparece, mas parece que o Excell roda "por tras" do Access, e para o cara ver a mensagem ele tem que dar um ALT+TAB. A maneira que estou acessando o Excell é a seguinte: Dim oApp As Object Set oApp = CreateOb
  8. Olá Jonathan, Posso dizer que com o conjunto de dicas que você me deu consegui colocar minha aplicação funcionando. Acredito que este tópico pode ser fechado!!! Obrigado! Abraços
  9. Então cara, só pra te explicar melhor, estou querendo deixar aberto para o usuário a partir de uma planilha de controle para que ele mesmo digite o nome dos arquivos que é para rastrear. Então apartir do código que você me passou, fiz o seguinte: Dim var As Workbook Dim controle As Workbook controle = "C:\Documents and Settings\Andre\Desktop\Controle_New.xls" Pastas = Array("1904\", "2004\", "2104\") For p = 0 To UBound(Pastas) Pasta = "G:\" & Pastas(p) Nomes = Array(controle.Worksheets(Plan1).Cells(2, 1)) For i = 0 To UBound(Nomes) Arquivo = "G:\" & Pa
  10. Ah, ok. Outra pergunta cara. Como faço, no código abaixo para ao invés de ter que definir o Array manualmente ele pegar este conteúdo de uma célula no Excell. Sub TESTE() Nomes = Array("Jose", "Mario", "Pedro", "Paulo", "Rafael") For i = 0 To UBound(Nomes) Arquivo = "F:\" & Nomes(i) Workbooks.Open (Arquivo) Next i End Sub Na segunda linha, eu digo, ao invés de encrever o nome do cara deixar para que este conteúdo seja obtido através do valor de uma(ou mais) células? Abraços!!
  11. Fala Jonathan, tranquilo?! Consegui fazer o loop para leitura dos arquivos nos diretórios e funcionou corretamente. A única coisa que está dando problema é quando o arquivo não existe. Achei na internet o comando abaixo, mas parece que ele funciona só pra VB, não VBA. Dim fso As Scripting.FileSystemObject If fso.FileExists(Arquivo) Then (Executa funções...) End If você conhece algum semelhante pra VBA? Abraços!!
  12. Jonathan, agora sim !!! Muito obrigado novamente!!! Declarando a variável funcionou legalzinho!! Agora vou tentar fazer ele rastrear estes mesmos arquivos em diferentes pastas... (Que é a outra dica que você deu no outro tópico) Abraços!!!
  13. Nomes = Array("Jose.xls", "Mario.xls", "Pedro.xls", "Rafael2.xls", "Rafael3.xls") For i = 0 To UBound(Nomes) Arquivo = "G:\" & Nomes(i) Workbooks.Open (Arquivo) 'Seleciona somente linhas com dados e cola especial na Planilha Consolidado.xls 'Abrindo 1º Arquivo 'Workbooks.Open ("G:\Rafael2.xls"), , True If Range("B7") <> "" Then Range("B7:H7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Consolidado.xls").Activate Range("A65536").Select Selection.End(xlUp).Select
  14. Perdão cara, Na verdade quando postei que estava resolvido eu tinha testado com o exemplo que tinha postado anteriormente. O erro voltou a acontecer quando alterei o código do meu programa! A linha que da erro é a seguinte: Windows(Arquivo).Activate Windows(Arquivo).Close Quero que quando o arquivo não tenha conteúdo ele feche a janela. Mas parece que a variável não está funcionando direito. Dá erro quando tenho ativar a janela. (que assumiu o valor da variável) O que você acha que pode ser?? Abraços
×
×
  • Create New...