[RESOLVED] Converting from BVA to VB6

[caleno]

Hi I need to convert the format of two columns in excel. Time and Date. I recorded a macro and this is the BVA code I get.

    Columns("B:B").Select
    Selection.NumberFormat = "h:mm;@"
    Columns("A:A").Select
    Selection.NumberFormat = "m/d/yy;@"

Now I need to convert it to VB6. Can you help me? I try it several times but I could not get it. See below

 'oXLsheet.Range(Columns).Select
    oXLsheet.Columns("B:B").Select
    oXLsheet.Columns.NumberFormat = "h:mm;@"  
    oXLsheet.Columns("A:A").Select    
    oXLsheet.Columns.NumberFormat = "m/d/yy;@"

Thanks

[RobDog888]

Did you instanciate oXLsheet? Whats the rest of your code look like that opens the workbook? Any error messages and what does the cell format do if its not correct?

[si_the_geek]

The first step to take is remove .Select and Selection, so this:

    Columns("B:B").Select
    Selection.NumberFormat = "h:mm;@"

becomes this:

    Columns("B:B").NumberFormat = "h:mm;@"

(this will work around your mistake - you didn't specify which Columns to set the NumberFormat on)

..and then, make it safe for VB by prefixing your sheet object, eg:

    oXLsheet.Columns("B:B").NumberFormat = "h:mm;@"

[caleno]

That did it. Thank you Si_The_Geek!