Vba to change Excel file Properties like Title, Description, Fiscal, Period, file

[hemant_sonawane]

Hello Experts,

I have 50 excel files, for which I need to change file properties manually and save files every month. Its really time consuming task .Could you please help me for the same .

I tried to paste property image & attach file but I am unable to do it here.

<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600"> <v:stroke joinstyle="miter"> <v:formulas> <v:f eqn="if lineDrawn pixelLineWidth 0"> <v:f eqn="sum @0 1 0"> <v:f eqn="sum 0 0 @1"> <v:f eqn="prod @2 1 2"> <v:f eqn="prod @3 21600 pixelWidth"> <v:f eqn="prod @3 21600 pixelHeight"> <v:f eqn="sum @0 0 1"> <v:f eqn="prod @6 1 2"> <v:f eqn="prod @7 21600 pixelWidth"> <v:f eqn="sum @8 21600 0"> <v:f eqn="prod @7 21600 pixelHeight"> <v:f eqn="sum @10 21600 0"> </v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:formulas> <vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"> <o:lock aspectratio="t" v:ext="edit"> </o:lock></vath></v:stroke></v:shapetype><v:shape id="Picture_x0020_1" style="width: 374.25pt; height: 417.75pt;" type="#_x0000_t75" alt="" o:spid="_x0000_i1025"> <v:imagedata o:href="cid:image001.png@01D40A33.8748EBE0" src="file:///C:/Users/g532492/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png"> </v:imagedata></v:shape>

<tbody>
</tbody>

<v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600">
<v:stroke joinstyle="miter">
<v:formulas> <v:f eqn="if lineDrawn pixelLineWidth 0">
<v:f eqn="sum @0 1 0">
<v:f eqn="sum 0 0 @1">
<v:f eqn="prod @2 1 2">
<v:f eqn="prod @3 21600 pixelWidth">
<v:f eqn="prod @3 21600 pixelHeight">
<v:f eqn="sum @0 0 1">
<v:f eqn="prod @6 1 2">
<v:f eqn="prod @7 21600 pixelWidth">
<v:f eqn="sum @8 21600 0">
<v:f eqn="prod @7 21600 pixelHeight">
<v:f eqn="sum @10 21600 0">
</v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:f></v:formulas>
<vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f">
<o:lock aspectratio="t" v:ext="edit">
</o:lock></vath></v:stroke></v:shapetype><v:shape id="Picture_x0020_1" style="width: 374.25pt; height: 417.75pt;" type="#_x0000_t75" alt="" o:spid="_x0000_i1025">
<v:imagedata o:href="cid:image001.png@01D40A33.8748EBE0" src="file:///C:/Users/g532492/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png">
</v:imagedata></v:shape>