Deu erro

Fiz algumas alterações no código acima. Favor verificar. Aqui percorreu os arquivos, depois deu erro de automação. Aí já não sei o que é.

Private Sub CommandButton1_Click() Call ListaArquivos End Sub Public Sub ListaArquivos() 'Atenção: Faça referência à biblioteca Micrsoft Scrip...

Pelo jeito, você não sabe o que é Option Explicit: https://docs.microsoft.com/pt-br/dotnet/visual-basic/language-reference/statements/...

Aqui há duas macros. Já tentou executar as duas? Dá o mesmo erro nas duas? Você fez referência à biblioteca Micrsoft Scripting Runtime? Anexe o arquiv...

Naquela planilha não consegui, fiz outra planilha (em anexo).

É necessário configurar o Gmail: https://www.youtube.com/watch?v=1lL81rGUSLA https://support.google.com/accounts/answer...

Necessário realizar a chamada da biblioteca Microsoft CDO for Windows 2000 Library

Private Sub Workbook_Open() linha = 2 Do While Sheets(1).Cells(linha, 5).Value <> "" If Sheets(1).Cells(linha, 5...

Option Explicit Public Sub ListaArquivos() 'Atenção: Faça referência à biblioteca Micrsoft Scripting Runtime Dim FSO As New FileSystemOb...

tem como dar uma pequena explicaçãozinha? O sufixo "inha" significa "pequena".

Pensei que você poderia abrir uma conta de email e colocar um código para enviar o arquivo como anexo. Aí o backup ficaria no email, pelo menos até vo...

Propósito bem difícil de ser realizado. Se não for impossível.

Essas linhas retiram todos os espaços em branco: Do While InStr(TextBox1, " ") TextBox1 = Replace(TextBox1, " ", " &qu...

Para cada moeda, grave uma macro que insere um gráfico. Vá em Exibição >> Macros >> Gravar Macro Selecione os dados e insira o gráfico ...