Alyson Ronnan Martins

O primeiro lista arquivos e o segundo trabalha com a lista. Você coloca o seu o código no segundo.

Olha se te ajuda: Public Function ListaArquivos(ByVal Caminho As String) As String() 'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime Dim FSO As New FileSystemObject Dim result() As String Dim Pasta As Folder Dim Arquivo As File Dim Indice As Long ReDim result(0) As String If FSO.FolderExists(Caminho) Then Set Pasta = FSO.GetFolder(Caminho) For Each Arquivo In Pasta.Files Indice = IIf(result(0) = "", 0, Indice + 1) ReDim Preserve result(Indice) As String result(Indice) = Arquivo.Name Next End If ListaArquivos = result ErrHandler: Set FSO = Nothing Set Pasta = Nothing Set Arquivo = Nothing End Function Private Sub ListaArquivos() Dim arquivos() As String Dim lCtr As Long arquivos = ListaArquivos("C:\temp") For lCtr = 0 To UBound(arquivos) Debug.Print arquivos(lCtr) 'Seu comando aqui... Next End Sub

@David Morgado Nunca fiz o vba ler XML mais já fiz leitura "linear" como é utilizada para ler txt. Manda um xml com o seu padrão que dá para ver como fazer.

Sim é possível... a questão é, existe um padrão? Exemplo a primeira linha escrita deve ser o texto inicial do cabeçalho porêm um dos arquivos o alguma colocou apenas uma data na primeira linha preenchida. Mais se o que você faz é sempre a mesma coisa, quer dizer tem um padrão, da sim.

Quais são os campos que devem ser preenchido e com quais dados?

Boa noite @Bismarck Rodrigues você pode usar o dir(...) para tentar localizar o arquivo nArquivo = Sheets("Plan1").cells(1, "A").valeu IF Dir(nArquivo) <> "" Then Msgbox "Arquivo encontrado" Else Msgbox "Arquivo não encontrado" End If É mais ou menos isso?

sub ordenarcombobox() dim iforsta, isista as integer dim i, j as integer dim stemp as string iforsta = 0 isista = combobox1.listcount - 1 for i = iforsta to isista - 1 for j = i + 1 to isista if combobox1.list(i) > combobox1.list(j) then stemp = combobox1.list(j) combobox1.list(j) = combobox1.list(i) combobox1.list(i) = stemp end if next j next i end sub Tenta usar esse código para organizar.

Juro que esta um pouco complexo e minha teoria kkkk. Você precisa trazer a informação para o excel ou apenas ler e trazer resumo? Se for resumo recomendaria usar o VBA para ler teu arquivo. Se for para trazer alguns arquivos CSV recomendaria fazer uma aba para ela ficar "responsável" por trazer essas informações. ps: seus exemplo de csv ficou muito grande que não deu para entender, tentar upar o arquivo no google drive e postar o link aqui para melhor visualizar, mais antes vamos entender melhor sua nescessidade.

Boa noite @Josimar Garuzzi Da sim, só vai depender como você esta lançando os dados no excel... Quando você grava a informação ele lança na ultima linha ou na primeira, então depois de gravar é preciso identificar a linha que foi gravada e já retornar o numero do "Código" Qual como esta gravando a informação na tabela?

Boa noite @drreis Não entendi sua ideia porém para mostrar e ocultar um combox basta usar o ".visible" ... ComboBox1.Visible = False ...

Boa noite @liv-frias Eu executei criei uma planilha como teste e ela funcionou, estou anexando a planliha para ver como foi criada e o código esta aqui abaixo: Private Sub ToggleButton1_Click() If ToggleButton1.Value Then ComboBox1.Visible = True ComboBox2.Visible = True Else ComboBox1.Visible = False ComboBox2.Visible = False End If End Sub https://drive.google.com/file/d/1BR4mgQj1w8aZhqrxF7Fy0-KpOa5wB9ba/view?usp=sharing

Boa noite @Rodrigo Kaito Não entendi seu código... é uma repetição que vai até o 250??? Faz um seguinte diminui o código para eu tentar entender aonde é a repetição (caso seja claro) ou manda uma planilha exemplo, com informações fictícias, assim quem saiba eu te ajudo mais rápido.

A seu sub formulário deve estar ligado por um número único do formulário principal. Tenta usar o mesmo "id" para localizar os dados na consulta e atualizar apenas eles l.

Show!

Boa noite @Leonardo Renner Com eu não tenho como testar o exemplo que esta mostrando tenta usar o seguinte código: Application.Calculation = xlCalculationManual Olha se vai melhorar o tempo de processamento, depois só mudar para automático.

Beleza.

Faz um desenho ou um formulário que eu faço um exemplo para ti.

Boa noite @underLUCAS. Você pode colocar para fazer uma consulta atualizando os descontos e depois usar um "requery" em seu subform para atualizar as informações dos produtos.

Show!! A respeito de dua duvida, faz só uma exemplo em formulário para ver se entendi direito kkkk.

Tenta pegar o valor da caixa de texto e converter a Double (Cdbl)

Não entendi a duvida.

Boa noite @Matheus Ramalho, É dessa maneira? Código: Public Sub aspaTexto() Range("A4").Value = "'" & Cells(1, 1).Text End Sub

Boa noite, Eu fiz o teste aqui com os dados e apenas alterei a informação que é colhida do arquivo: .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, _ 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 1, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, _ 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9) Essa parte é responsável por dizer qual é o dado de cada coluna, vendo isso eu coloquei "9" para dizer que não deve ser trazida a coluna. Se você precisa de alguma coluna a mais basta ir ativando com o numero "1" as colunas que você precisa. Obs.: No final eu sair colocando vários "9" para evitar que traga alguma coluna a mais.

Sim teria. Como refinar a coluna que vai ficar na importação.

Boa noite @esteves.arthur Não conseguir entender quais as colunas você precisa porque não tem os rótulos nos dados.