RICARDO BARBOSA machado

Membros
  • Content Count

    7
  • Joined

  • Last visited

Community Reputation

0 Neutro

About RICARDO BARBOSA machado

  1. Boa noite, Encontrei um jeito de ele abrir o arquivo e deu certo. Porém, agora ele abre a planilha, salva a informação na célula P1 a P100 só da primeira planilha, mas não salva nas demais apesar de deixar as linhas delas selecionadas. Então ele salva a informação somente na primeira planilha, mas deixa as demais (nas células p1 até p100) selecionadas e não salva as informações. Outro fato é que a informação que estou tentando salvar é uma fórmula que traz o nome do arquivo na célula (=CÉL("filename")), porém, ele salva a fórmula mas não executa o resultado. Ela só funciona quando se clica dentro da célula. Teria como ajustar? Dim rst As DAO.Recordset, strSQL As String, xls As Object Dim strlivro$ Set xls = CreateObject("Excel.Application") strlivro = CurrentProject.Path & "\" & Dir("E:\AGF\teste\" & "*.xl*") 'pasta com o projeto" xls.Workbooks.Open (strlivro) xls.Visible = True xls.Worksheets("bp").Activate ' Nome da planilha 'strSQL = "SELECT * FROM PesoMedio;" 'consulta strSQL = "SELECT tabela1.campo1 FROM tabela1;" 'criando a consulta Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) xls.ActiveSheet.Range("P1:P100").Select ' em que coluna e a partir de qual celula xls.ActiveCell.CopyFromRecordset rst xls.ActiveWorkbook.Save xls.Application.Quit Set xls = Nothing Do While Not strlivro = "" strlivro = Dir Loop End Sub
  2. Boa noite, Encontrei esse código que quando salvo na célula ele traz o nome do arquivo e o nome da aba. Agora preciso salvá-lo em todos os arquivos e em todas as abas em uma range específica (P1:P200). Alguém sabe como posso fazer? =EXT.TEXTO(CÉL("nome.arquivo");LOCALIZAR("[";CÉL("nome.arquivo");1)+1;(LOCALIZAR("]";CÉL("nome.arquivo");1))-(LOCALIZAR("[";CÉL("nome.arquivo");1)+1))
  3. Boa noite, Vamos por partes então. Alguém sabe como posso gravar nas planilhas (são várias com várias abas) o nome do arquivo e o nome das abas? Exemplo: arquivo1.xlsx com duas abas chamadas BP e DRE => Gravar na célula "P1" em todas as linhas o nome da aba "BP", e na célula "Q1" em todas as linhas o nome "arquivo1",
  4. Boa tarde, Tentei colocar no ACCESS, mas não consegui. Pelo que pude ver no ACCESS existe a opção de SQL, mas só serve para relatórios. Quando eu insiro o seu script ele diz que está faltando o SELECT, que imagino, só servir para relatórios. Na opção MACRO ele só aceita a visão VBA.
  5. Boa noite! Obrigado pela resposta. Eu me esqueci de mencionar que estou tentando fazer isso no ACCESS. Agora eu pergunto: Consigo colocar esse script nele?
  6. Boa noite, Tenho várias planilhas em excel com várias sheet que preciso importar para uma mesma tabela. Mais especificamente duas abas (BP e DRE) para duas tabelas com mesmo nome. Além disso preciso que ele grave o nome do arquivo que está sendo importado em todas as linhas da tabela.
  7. Sou novo no VB e estou tentando utilizar um código retirado de um forum e não estou conseguindo fazer com que funcione para a minha necessidade. Quero realizar uma importação de vários arquivos txt de uma pasta para o meu banco de dados. Utilizei um código, mas não está funcionando. Os dados são os seguintes: nome da tabela: "BASE TOTAL"; endereço onde se encontram os arquivos a serem importados: "F:\PROGRAMA INFORMATIVO"; especificação criada para a importação: "informativo base total"; Código que estou utilizando e não está dando certo: Private Sub Comando3_Click() Dim strArquivo As String, SQL As String, strTable As String Dim numCount As Integer On Error GoTo Err_Import With Form_ifrmExplorer 'ifrmExplorer: formulário utilizado If Not IsNull(.txtDir) Then 'txtDir: TextBox onde será informado o diretório dos arquivos DoCmd.Hourglass True 'Ampulheta 'Declaração do diretório dos arquivos strArquivo = Dir(.txtDir & "\*.txt") 'Listagem apenas de arquivos .txt 'Atribuição do nome da tabela de destino strTable = "BASE TOTAL" 'Copia os nomes dos arquivos do diretório Do Until strArquivo = "F:\PROGRAMA INFORMATIVO" .lstArquivo.AddItem strArquivo 'Inclui os nomes dos arquivos txt à variável DoCmd.TransferText acImportDelim, "informativo base total", strTable, strArquivo, False 'Rotina para importar os arquivos txt strArquivo = Dir 'Atribuição do próximo .txt Loop .txtDir = Null 'Limpa as caixa de texto 'Finalização do processo MsgBox "Processo finalizado com sucesso!", vbInformation, "iMasters - Access" DoCmd.Hourglass False 'Ampulheta Else 'Solicitação de preenchimento do campo txtDir MsgBox "Informe o folder onde se encontram os arquivos!", vbCritical, "iMasters - Access" End If End With Exit_Import: Exit Sub Err_Import: MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "iMasters - Access" DoCmd.Hourglass False 'Ampulheta Resume Exit_Import End Sub