Hello

I'm not sure to understand but if you want to export datas of a closed
workbook in a text File , you may try


Sub excelVersFichierTexte()
Dim Rs As New ADODB.Recordset
Dim Fichier As String, Feuille As String
Dim xConnect As String, xSql As String

Fichier = "C:\Documents and Settings\michel\WorkBook.xls"
Feuille = "Sheet1"

xConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier &
";" & _
"Extended Properties=Excel 8.0;"

xSql = "SELECT * FROM [" & Feuille & "$];"

Set Rs = New ADODB.Recordset
Rs.Open xSql, xConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

Open "C:\essai.txt" For Output As #1

Do Until Rs.EOF
'vbTab is the separator in this example
'Print #1, Rs.GetString(, 600, ",", vbCrLf, "");
Print #1, Rs.GetString(, 400, vbTab, vbCrLf, "");
Loop
Close #1

End Sub



Regards
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...o&userid=17367
View this thread: http://www.excelforum.com/showthread...hreadid=505783