RICARDO BARBOSA machado
Membros-
Total de itens
7 -
Registro em
-
Última visita
Sobre RICARDO BARBOSA machado
RICARDO BARBOSA machado's Achievements
0
Reputação
-
Importar Várias planilhas excel
pergunta respondeu ao RICARDO BARBOSA machado de RICARDO BARBOSA machado em Access
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 -
Importar Várias planilhas excel
pergunta respondeu ao RICARDO BARBOSA machado de RICARDO BARBOSA machado em Access
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)) -
Importar Várias planilhas excel
pergunta respondeu ao RICARDO BARBOSA machado de RICARDO BARBOSA machado em Access
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", -
Importar Várias planilhas excel
pergunta respondeu ao RICARDO BARBOSA machado de RICARDO BARBOSA machado em Access
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. -
Importar Várias planilhas excel
pergunta respondeu ao RICARDO BARBOSA machado de RICARDO BARBOSA machado em Access
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? -
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.
-
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