SELECIONAR CAMINHO PARA SALVAR ARQUIVO

EVERSON.PASETTO 28/10/2011 19:57:45
#388053
Como faço para selecionar um caminho para o arquivo ser salvo..

Copio um dados e tranfiro para xls..

E quero fazer o usuario selecionar um caminho..

Como faço isso?
PHOENIX209E 28/10/2011 23:41:52
#388067
seja mais claro!
JESUEL.OLIVEIRA 29/10/2011 07:54:19
#388073
Adicione ao seu projeto o componente Common Dialog,
Veja se é isso
   
Private Sub comLocal_Click()
    CommonDialog1.Filter = [Ô]Arquivos dat (*.xls)|*.xls[Ô]
    CommonDialog1.ShowOpen
    txtCaminho.Text = (CommonDialog1.FileName)
End Sub


No text caminho você terá o caminho para salvar, após txtcaminho você pode colocar a rotina de gerar o xls
EVERSON.PASETTO 29/10/2011 11:19:13
#388078
Descuple se não fui claro

Queria criar um rotina tipo [Ô]Salvar Como[Ô]... ou salvar.

A gente seleciona a pasta onde queremos que ela seja salva..

No codigo que nosso colega Josuel postou.. ela apenas serve para abrir os arquivos..

Queria para selecionar um caminho para ser salvo..
O arquivo xls sempre vai se chamar relatorio.xls

E eu seleciono um caminho tipo C:\Documentos\Outubro
E ela salva o Relatorio.xls la dentro do destino informado. .
CHARLESTON10 29/10/2011 11:31:52
#388080 Resposta escolhida
Primeiro crie um MODULO

 Public Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Public Const BIF_RETURNONLYFSDIRS = 1
Public Const MAX_PATH = 260

Public Declare Sub CoTaskMemFree Lib [Ô]ole32.dll[Ô] (ByVal hMem As Long)
Public Declare Function lstrcat Lib [Ô]kernel32[Ô] Alias [Ô]lstrcatA[Ô] (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Public Declare Function SHBrowseForFolder Lib [Ô]shell32[Ô] (lpbi As BrowseInfo) As Long
Public Declare Function SHGetPathFromIDList Lib [Ô]shell32[Ô] (ByVal pidList As Long, ByVal lpBuffer As String) As Long


Segundo Coloque no clique do botao

  Private Sub Command1_Click()
    Dim iNull As Integer, lpIDList As Long, lResult As Long
    Dim sPath As String, udtBI As BrowseInfo
    Dim VariavelDestino As String

    With udtBI
        .hWndOwner = Me.hWnd
        .lpszTitle = lstrcat([Ô]C:\[Ô], [Ô][Ô])
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With

    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        sPath = String$(MAX_PATH, 0)
        SHGetPathFromIDList lpIDList, sPath
        CoTaskMemFree lpIDList
        iNull = InStr(sPath, vbNullChar)
        If iNull Then
            sPath = Left$(sPath, iNull - 1)
        End If
    End If

    VariavelDestino = sPath
End Sub


Tópico encerrado , respostas não são mais permitidas
Voltar