Devam Ediyor

Visual Basic for Excel 2007

I have VB codes to generate a few pivot tables in Excel. My company has just switched from Excel 2003 to 2007.

[url removed, login to view] function does not work in 2007. I need someone to fix the VB codes. The enclosed example shows where the problem is. Thank you.

Function reportFileExist() As Boolean

Dim FS As [url removed, login to view]

Dim DR As String

Dim path As String

Dim vaFilename As Variant

Dim icount As Long

Dim icount2 As Long

Dim stMessage As String

Dim maindir As String

maindir = ":\Analysis\BDO-VA"

DR = [url removed, login to view]("Page1").TbDrive

path = DR + maindir + [url removed, login to view] + "" + [url removed, login to view]

Set FS = [url removed, login to view]

' for report option = 1

If [url removed, login to view] Then

With FS

.NewSearch

.LookIn = path

.filename = "[url removed, login to view]"

'MsgBox .filename

icount2 = .Execute

stMessage = Format(icount2, "0 ""Files Found""")

'MsgBox stMessage

End With

With FS

.NewSearch

.LookIn = path

.filename = "[url removed, login to view]"

'MsgBox .filename

icount = .Execute

stMessage = Format(icount, "0 ""Files Found""")

'MsgBox stMessage

End With

If icount > 0 And icount2 > 0 Then

reportFileExist = True

Else:

reportFileExist = False

End If

End If

' if the option is not report 1

If Not [url removed, login to view] Then

With FS

.NewSearch

.LookIn = path

.filename = "[url removed, login to view]"

'MsgBox .filename

icount = .Execute

stMessage = Format(icount, "0 ""Files Found""")

'MsgBox stMessage

End With

If icount > 0 Then

reportFileExist = True

Else: reportFileExist = False

End If

End If

End Function

Beceriler: Visual Basic

Daha fazlasını görün: userform1, string problem, dr office, csv codes, bdo company, vb excel, pivot tables, format excel, excel visual basic, excel report, excel pivot, excel function, Dr, ccc, boolean, bdo, excel filesearch, visual basic problem, fix excel, set 2010 excel pivot, excel 2010 generate report, work visual, bbb csv, example visual basic, pivot report

İşveren Hakkında:
( 5 değerlendirme ) Toronto, Canada

Proje NO: #733430

Seçilen:

wsh2

Greetings Canada from the USA.. {smile} 25+ years of MsExcel experience. Will be happy to assist you in replacing the now deprecated Application.FileSearch. Please see PMB. Respectfully, Bill.

1 gün içinde 39.95$ USD
(16 Değerlendirme)
5.0

15 freelancer bu iş için ortalamada 44$ teklif veriyor

svet63

VBA developer since 1997. It's kinda Microsoft sent us all back in time, right? (Somewhere in the last millennium). Good news is this fix is not such a big problem. The old good Dir will do the trick. Can do. Regards, Daha fazlası

1 gün içinde 40$ USD
(40 Değerlendirme)
5.9
schandraram

Hello - Please let me know if you want just the modified function back (in text format) or you want this fix in an Excel file. Thank you. Chandra Ram

in 0 gün içinde45$ USD
(55 Değerlendirme)
5.9
MAnkita

I can get this done, in an hour.Thank you,Ankita.

1 gün içinde 50$ USD
(34 Değerlendirme)
5.2
CloudLand

Hello, I can help you. Pls check your PMB.

in 0 gün içinde30$ USD
(9 Değerlendirme)
4.9
koolsidz

Please see PMB

in 0 gün içinde35$ USD
(34 Değerlendirme)
4.9
djucuti

Hello, please see PM

in 2 gün içinde35$ USD
(18 Değerlendirme)
4.7
johnsinit

Dear Ixeed! I am an experienced VB and VBA programmer and would be happy to work for you. Please, check PMB. Sincerely yours, John.

in 2 gün içinde48$ USD
(8 Değerlendirme)
3.7
pradeep1210

Please see PMB.

in 0 gün içinde40$ USD
(2 Değerlendirme)
1.9
sayli2

I am expert in excel.please check PMB for details.Thanks

in 0 gün içinde30$ USD
(2 Değerlendirme)
1.6
heavyworker

ready to go.

1 gün içinde 130$ USD
(0 Değerlendirme)
0.0
NedaShahid

My skill completely maps on ur requirement so i can assure u quality work.Pls check out my work on the following sites. http://www.zeed.com.sa http://www.nahedcosmetics.com http://www.suzeisecrets.com Looking f Daha fazlası

in 2 gün içinde33$ USD
(0 Değerlendirme)
0.0
ITProgramming

I already had the same problem and fixed it. This is why you can decide for me. Thank you!

in 2 gün içinde50$ USD
(0 Değerlendirme)
0.0
sunivdeveloper

I am finding the solution right now

1 gün içinde 30$ USD
(0 Değerlendirme)
0.0
siftikhar

I know the solution, readily available to do the job within few hours

1 gün içinde 30$ USD
(0 Değerlendirme)
0.0