I have a big Excel file and a macro which processes this Excel file and
spits out a text file. Is it possible to run this macro without opening
the Excel file? Opening a 100MB excel file takes time and doing it 100
times over is not fun...
I have a big Excel file and a macro which processes this Excel file and
spits out a text file. Is it possible to run this macro without opening
the Excel file? Opening a 100MB excel file takes time and doing it 100
times over is not fun...
If you save a copy of your Excel file under a standard file name, say
"LargeFile.xls" then you could set up a macro to find and run "LargeFile.xls"
to output a saved text file.
You would save this macro under All Open Workbooks, then open Excel without
opening your large file in order to find and run your macro.
HTH
"[email protected]" wrote:
> I have a big Excel file and a macro which processes this Excel file and
> spits out a text file. Is it possible to run this macro without opening
> the Excel file? Opening a 100MB excel file takes time and doing it 100
> times over is not fun...
>
>
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks