EXPORTAR MSFLEXGRID PARA TXT
Srs, ...Tenho uma MSFLEXGRID e quero exportar ela para para um diretório ... Só que no lugar da OM , gostaria de inserir um Textbox = Text1.Text estou usando esse código abaixo :
Public Sub Cmd_Exportar_Click()
Dim ret As Boolean
ret = Exportar_FlexGrid_txt(MSTXT, [Ô]C:\Dados SAP-PM\OM.txt[Ô], vbTab)
If ret Then
MsgBox [Ô]Arquivo gerado no diretório C:\Dados SAP-PM !!![Ô], vbInformation
End If
End Sub
Public Sub Cmd_Exportar_Click()
Dim ret As Boolean
ret = Exportar_FlexGrid_txt(MSTXT, [Ô]C:\Dados SAP-PM\OM.txt[Ô], vbTab)
If ret Then
MsgBox [Ô]Arquivo gerado no diretório C:\Dados SAP-PM !!![Ô], vbInformation
End If
End Sub
ret = Exportar_FlexGrid_txt(MSTXT, [Ô]C:\Dados SAP-PM\[Ô] & text1.text & [Ô].txt[Ô], vbTab)
Faça seu login para responder