Save File Name as Record 1 Column 7

[Alphacsulb]

I want to modify my macro so that the name of the file is the name that shows up under the column "Jurisdiction" record 1. Which would be Gardena.xls

This is my macro:

Option Compare Database

'------------------------------------------------------------
' Output_to_Folder
'
'------------------------------------------------------------
Function Output_to_Folder()
On Error GoTo Output_to_Folder_Err

    Beep
    MsgBox "O/POLLS2LA/030309", vbInformation, ""
    DoCmd.OutputTo acQuery, "Polls 2 LA", "MicrosoftExcelBiff8(*.xls)", "O:\Polls2LA\030309\Testing.xls", False, "", 0


Output_to_Folder_Exit:
    Exit Function

Output_to_Folder_Err:
    MsgBox Error$
    Resume Output_to_Folder_Exit

End Function

This is my table:
<center><table width="50%" align="center" cellpadding="2" cellspacing="0"><tbody><tr><td class="AccTBMain" border-left="1px" solid="" colspan="9"><table valign="TOP" width="100%" align="left"><tbody><tr><td class="AccTBInner" align="left">Polls 2 LA : Select Query</td><td class="AccTBInner" align="right">Access 2003</td></tr></tbody></table></td></tr><tr><td class="AccDataElem" colspan="9">SELECT
Precinct.[Voting Precinct]
, Precinct.[Ballot Group]
, Precinct.Handicapped
, Precinct.[Precinct Description]
, Precinct.[Precinct Desc2]
, Precinct.[Precinct Address]
, Custmr.Jurisdiction
, Precinct.[PP Zip]

FROM
Precinct
, Custmr

WHERE
(((Custmr.Jurisdiction)="GARDENA") AND ((Precinct.Custid)="CALO26") AND ((Precinct.[Election Date])=#3/3/2009#));
</td></tr><tr><td class="AccHDRLeftElem">
</td><td class="AccHDRMain" align="left">Voting Precinct</td><td class="AccHDRMain" align="left">Ballot Group</td><td class="AccHDRMain" align="left">Handicapped</td><td class="AccHDRMain" align="left">Precinct Description</td><td class="AccHDRMain" align="left">Precinct Desc2</td><td class="AccHDRMain" align="left">Precinct Address</td><td class="AccHDRMain" align="left">Jurisdiction</td><td class="AccHDRMain" align="left">PP Zip</td></tr><tr><td id="currRec" class="AccHDRLeftElem">

</td><td class="AccDataElem">VBM</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">
</td><td class="AccDataElem">
</td><td class="AccDataElem">
</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">
</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250001A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Purche Avenue School</td><td class="AccDataElem">Auditorium</td><td class="AccDataElem">13210 Purche Avenue</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90249</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250003A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Thornburg Park</td><td class="AccDataElem">Room 1</td><td class="AccDataElem">2320 West 149th Street</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90249</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250004A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Rowley Park</td><td class="AccDataElem">Auditorium</td><td class="AccDataElem">13220 So. Van Ness</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90249</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250008A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Las Flores Convalescent Hospital</td><td class="AccDataElem">Recreation Room</td><td class="AccDataElem">14165 South Purche Avenue</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90249</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250010A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Crossroad Church</td><td class="AccDataElem">Lobby</td><td class="AccDataElem">2818 Manhattan Beach Boulevard</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90249</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250011A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Amestoy Elementary School</td><td class="AccDataElem">Auditorium</td><td class="AccDataElem">1048 West 149th Street</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90247</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250013A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">New Hope Fellowship</td><td class="AccDataElem">Fellowship Hall</td><td class="AccDataElem">16390 South Normandie Avenue</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90247</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250016A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">Freeman Park</td><td class="AccDataElem">Room 1</td><td class="AccDataElem">2100 West 154th Place</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90249</td></tr><tr><td id="currRec" class="AccHDRLeftElem">
</td><td class="AccDataElem">250019A</td><td class="AccDataElem">1</td><td class="AccDataElem">Y</td><td class="AccDataElem">L. A. Korean Presbyterian Church</td><td class="AccDataElem">Fellowship Hall</td><td class="AccDataElem">1655 Marine Avenue</td><td class="AccDataElem">Gardena</td><td class="AccDataElem">90247</td></tr><tr><td id="IE" class="AccIEOnlyMain" colspan="9"><table valign="TOP" width="100%" align="left"><tbody><tr><td class="AccIEOnlyInnerRight"> Record: </td><td class="AccButton">

</td><td class="AccIEOnlyData"> 1 </td><td class="AccButton">

</td><td class="AccIEOnlyInnerLeft"> of 15</td></tr></tbody></table></td></tr><tr><td class="AccIEOnlyMain" colspan="9"><table valign="TOP" width="100%" align="left" cellpadding="0" cellspacing="0"><tbody><tr><td id="Data705150783" class="AccInfoBarInnerRight">Polls 2 LA</td><td id="Info705150783" class="AccInfoBarData">Select Query, Record Count : 15</td></tr></tbody></table></td></tr><tr><td class="tpkrow" colspan="9"><center>Access HTML Add-in provided by theprimarykey.com






</center></td></tr></tbody></table></center>

 

[Alphacsulb]

I know that in excel I would use something like this:

        ActiveWorkbook.SaveAs Filename:= _
        "O:\Polls2LA\030309\" & ActiveSheet.Range("G1").Value, _
        FileFormat:=xlText, CreateBackup:=False

 

[Alphacsulb]

Bump.