(Resolvido) excel exportar para determinada pasta de acordo com o dia

[bareta]

bom tenho a seguinte macro:

Sheets("SP").Select
    With ActiveWorkbook.PublishObjects("cotação_25837")
        .HtmlType = xlHtmlStatic
        .Filename = _
        "C:\Documents and Settings\Agrosala\Meus documentos\site\agrosala\modelos\soja.htm"
        .Publish (False)
        .AutoRepublish = False
    End With

associada a outra função faz a exportação automatica da tabela a cada 2 minutos...

queria que em vez de jogar direto na pasta modelos jogasse em uma pasta com a data do dia.

ex:

"C:\Documents and Settings\Agrosala\Meus documentos\site\agrosala\modelos\dia_mes_ano\soja.htm"

mais isso pela propria macro lendo o dia o mes e o ano atual...

ai se existir um metodo para a macro criar a pasta se ela não existir... também gostaria de saber, atualmente a pasta é criada pelo asp.

[bareta]

fiz uma macro nova aqui, tinha esquecido que as macro é em VB... kkkk

segue ai pra quem precisar, ai é so ligar a macro da pasta na macro da exportação....

Sub pasta()

Fdir = "C:\Documents and Settings\usuario\Desktop\" & Format(Date, "DD_MM_YYYY") & "\"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(Fdir) Then
fso.CreateFolder (Fdir)
End If

End Sub

exemplo

Sub Macro1()
'
' Macro1 Macro
' Macro gravada em 30/3/2009 por computacao
'

'
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A8").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "C:\Documents and Settings\computacao\Desktop\" & Format(Date, "DD_MM_YYYY") & "\Página.htm", "Plan1", "", _
        xlHtmlStatic, "Pasta1_19389", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\Documents and Settings\computacao\Desktop"
End Sub