Find Jobs
Hire Freelancers

Excel 2010 Macro replace Application.FileSearch

$30-250 USD

Em Andamento
Publicado há quase 12 anos

$30-250 USD

Pago na entrega
I have an excel with macro that: 1.) Column C value containts the directory the file that I am looking for 2.) search the directory in Column C for file in Column A. 3.) Save the file into a new Directory with the name specify in Column B There is already a macro that is in the file that does that, just need that it uses Application.FileSearch. which do not work in Excel 2010 looking for some to correct the existing macro: here is the macro below Dim File_Name As Variant Dim File_Save As Variant Dim Folder_Name As Variant Folder_Name = InputBox("What Folder Would you like to Save the CEAs in?") Final_Row = Workbooks("Monthly Controllable Save.xls").Sheets(1).Range("A65000").End(xlUp).Row For x = 1 To Final_Row File_Name = Range("A" & x).Value File_Save = Range("B" & x).Value Dim i As Integer With [login to view URL] .LookIn = Range("C" & x).Value '* represents wildcard characters .Filename = Trim(File_Name) & "???????.xls" If .Execute > 0 Then 'Workbook exists For i = 1 To .[login to view URL] [login to view URL] (.FoundFiles(i)) [login to view URL] Filename:= _ "b:\r p\OSUS\Monthly Analysis Folders\Monthly Analysis 2011\" & Folder_Name & "\Intl Monster\" & File_Save & ".xls" [login to view URL] Next i End If End With Next x
ID do Projeto: 1672447

Sobre o projeto

1 proposta
Projeto remoto
Ativo há 12 anos

Quer ganhar algum dinheiro?

Benefícios de ofertar no Freelancer

Defina seu orçamento e seu prazo
Seja pago pelo seu trabalho
Descreva sua proposta
É grátis para se inscrever e fazer ofertas em trabalhos
Concedido a:
Avatar do Usuário
Consider it done. Check your PM for my bid details.
$150 USD em 1 dia
4,9 (49 avaliações)
5,2
5,2

Sobre o cliente

Bandeira do(a) UNITED STATES
Murray, United States
5,0
1
Método de pagamento verificado
Membro desde jun. 2, 2012

Verificação do Cliente

Obrigado! Te enviamos um link por e-mail para que você possa reivindicar seu crédito gratuito.
Algo deu errado ao enviar seu e-mail. Por favor, tente novamente.
Usuários Registrados Total de Trabalhos Publicados
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Carregando pré-visualização
Permissão concedida para Geolocalização.
Sua sessão expirou e você foi desconectado. Por favor, faça login novamente.