Find Jobs
Hire Freelancers

Excel 2010 Macro replace Application.FileSearch

$30-250 USD

Dalam Kemajuan
Disiarkan hampir 12 tahun yang lalu

$30-250 USD

Dibayar semasa penghantaran
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 Projek: 1672447

Tentang projek

1 cadangan
Projek jarak jauh
Aktif 12 tahun yang lalu

Ingin menjana wang?

Faedah membida di Freelancer

Tetapkan bajet dan garis masa anda
Dapatkan bayaran untuk kerja anda
Tuliskan cadangan anda
Ianya percuma untuk mendaftar dan membida pekerjaan
Dianugerahkan kepada:
Avatar Pengguna
Consider it done. Check your PM for my bid details.
$150 USD dalam 1 hari
4.9 (49 ulasan)
5.2
5.2

Tentang klien

Bendera UNITED STATES
Murray, United States
5.0
1
Kaedah pembayaran disahkan
Ahli sejak Jun 2, 2012

Pengesahan Klien

Terima kasih! Kami telah menghantar pautan melalui e-mel kepada anda untuk menuntut kredit percuma anda.
Sesuatu telah berlaku semasa menghantar e-mel anda. Sila cuba lagi.
Pengguna Berdaftar Jumlah Pekerjaan Disiarkan
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Memuatkan pratonton
Kebenaran diberikan untuk Geolocation.
Sesi log masuk anda telah luput dan telah dilog keluar. Sila log masuk sekali lagi.