![]() |
Running Macros without opening file.
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... |
Running Macros without opening file.
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 " 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... |
Running Macros without opening file.
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 |
All times are GMT +1. The time now is 11:54 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com