I have several workbooks containing a various number of worksheets (50+) each. Is it possible to automate the process of exporting each worksheet of a workbook to a text file?
![]() |
There are isolated problems with current patches, but they are well-known and documented on this site. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Excel Worksheets to Text (Excel 2000)
Home » Forums » AskWoody support » Productivity software by function » MS Excel and spreadsheet help » Excel Worksheets to Text (Excel 2000)
- This topic has 10 replies, 4 voices, and was last updated 20 years, 7 months ago.
Viewing 5 reply threadsAuthorReplies-
H. Legare Coleman
AskWoody PlusOctober 29, 2004 at 4:50 pm #893308This code will create a text file from each worksheet in the workbook and store the files in the directory C:Work with the same file name as the sheet name in the workbook.
{pre]
Public Sub CreateTxt()
Dim oWS As Worksheet, oWB As Workbook
Dim strPath As String, strFName As String
strPath = “C:Work”
For Each oWS In Worksheets
oWS.Copy
ActiveWorkbook.SaveAs Filename:=strPath & oWS.Name, FileFormat:=xlTextWindows
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next oWS
End Sub
[/pre] -
H. Legare Coleman
AskWoody PlusOctober 29, 2004 at 4:50 pm #893309This code will create a text file from each worksheet in the workbook and store the files in the directory C:Work with the same file name as the sheet name in the workbook.
{pre]
Public Sub CreateTxt()
Dim oWS As Worksheet, oWB As Workbook
Dim strPath As String, strFName As String
strPath = “C:Work”
For Each oWS In Worksheets
oWS.Copy
ActiveWorkbook.SaveAs Filename:=strPath & oWS.Name, FileFormat:=xlTextWindows
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next oWS
End Sub
[/pre] -
WSsdckapr
AskWoody LoungerOctober 29, 2004 at 5:03 pm #893316Does something like this work? Change the path as appropriate and the fileformat if desired.
Option Explicit Sub SaveEachAsText() Dim sOriName As String Dim wks As Worksheet Dim sPath As String Dim sFilename As String sOriName = ActiveWorkbook.FullName sPath = "C:" For Each wks In Worksheets sFilename = sPath & wks.Name & ".txt" Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ FileName:=sFilename, _ FileFormat:=xlTextMSDOS Next ActiveWorkbook.SaveAs _ FileName:=sOriName, FileFormat:=xlNormal Application.DisplayAlerts = True End Sub
Note: this will overwrite without warning any files that already have that file name! Remove the “Displayalerts = false” line if you want a warning.
Steve
-
WSsdckapr
AskWoody LoungerOctober 29, 2004 at 5:03 pm #893317Does something like this work? Change the path as appropriate and the fileformat if desired.
Option Explicit Sub SaveEachAsText() Dim sOriName As String Dim wks As Worksheet Dim sPath As String Dim sFilename As String sOriName = ActiveWorkbook.FullName sPath = "C:" For Each wks In Worksheets sFilename = sPath & wks.Name & ".txt" Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ FileName:=sFilename, _ FileFormat:=xlTextMSDOS Next ActiveWorkbook.SaveAs _ FileName:=sOriName, FileFormat:=xlNormal Application.DisplayAlerts = True End Sub
Note: this will overwrite without warning any files that already have that file name! Remove the “Displayalerts = false” line if you want a warning.
Steve
-
WSJohnBF
AskWoody LoungerOctober 29, 2004 at 5:29 pm #893334Steve and Legare are too quick! One thought for both examples is that you might define the save location to be in the same folder as the current file, and to use the current file name as the first part of the file name, with:
strPath = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) – 4)
-
WSramonas
AskWoody Lounger -
WSsdckapr
AskWoody LoungerOctober 29, 2004 at 6:28 pm #893361Something like this?
Option Explicit Sub RangeAsText() Dim wkbS As Workbook Dim wkbNew As Workbook Set wkbS = ActiveWorkbook Set wkbNew = Workbooks.Add wkbS.Activate Range("ExportMe").Copy wkbNew.Sheets(1).Range("a1") Application.DisplayAlerts = False wkbNew.SaveAs _ FileName:="C:ExportName.txt", _ FileFormat:=xlTextMSDOS wkbNew.Close Application.DisplayAlerts = True End Sub
Steve
-
WSsdckapr
AskWoody LoungerOctober 29, 2004 at 6:28 pm #893362Something like this?
Option Explicit Sub RangeAsText() Dim wkbS As Workbook Dim wkbNew As Workbook Set wkbS = ActiveWorkbook Set wkbNew = Workbooks.Add wkbS.Activate Range("ExportMe").Copy wkbNew.Sheets(1).Range("a1") Application.DisplayAlerts = False wkbNew.SaveAs _ FileName:="C:ExportName.txt", _ FileFormat:=xlTextMSDOS wkbNew.Close Application.DisplayAlerts = True End Sub
Steve
-
-
WSramonas
AskWoody Lounger
-
-
WSJohnBF
AskWoody LoungerOctober 29, 2004 at 5:29 pm #893335Steve and Legare are too quick! One thought for both examples is that you might define the save location to be in the same folder as the current file, and to use the current file name as the first part of the file name, with:
strPath = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) – 4)
Viewing 5 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Who knows what?
by
Will Fastie
1 hour, 55 minutes ago -
My top ten underappreciated features in Office
by
Peter Deegan
1 hour, 22 minutes ago -
WAU Manager — It’s your computer, you are in charge!
by
Deanna McElveen
6 hours, 48 minutes ago -
Misbehaving devices
by
Susan Bradley
2 minutes ago -
.NET 8.0 Desktop Runtime (v8.0.16) – Windows x86 Installer
by
WSmeyerbos
1 day ago -
Neowin poll : What do you plan to do on Windows 10 EOS
by
Alex5723
47 minutes ago -
May 31, 2025—KB5062170 (OS Builds 22621.5415 and 22631.5415 Out-of-band
by
Alex5723
23 hours, 1 minute ago -
Discover the Best AI Tools for Everything
by
Alex5723
23 hours, 9 minutes ago -
Edge Seems To Be Gaining Weight
by
bbearren
13 hours, 18 minutes ago -
Rufus is available from the MSFT Store
by
PL1
21 hours, 21 minutes ago -
Microsoft : Ending USB-C® Port Confusion
by
Alex5723
2 days ago -
KB5061768 update for Intel vPro processor
by
drmark
1 minute ago -
Outlook 365 classic has exhausted all shared resources
by
drmark
2 hours, 20 minutes ago -
My Simple Word 2010 Macro Is Not Working
by
mbennett555
1 day, 19 hours ago -
Office gets current release
by
Susan Bradley
1 day, 22 hours ago -
FBI: Still Using One of These Old Routers? It’s Vulnerable to Hackers
by
Alex5723
3 days, 12 hours ago -
Windows AI Local Only no NPU required!
by
RetiredGeek
2 days, 21 hours ago -
Stop the OneDrive defaults
by
CWBillow
3 days, 13 hours ago -
Windows 11 Insider Preview build 27868 released to Canary
by
joep517
3 days, 23 hours ago -
X Suspends Encrypted DMs
by
Alex5723
4 days, 1 hour ago -
WSJ : My Robot and Me AI generated movie
by
Alex5723
4 days, 1 hour ago -
Botnet hacks 9,000+ ASUS routers to add persistent SSH backdoor
by
Alex5723
4 days, 2 hours ago -
OpenAI model sabotages shutdown code
by
Cybertooth
4 days, 3 hours ago -
Backup and access old e-mails after company e-mail address is terminated
by
M W Leijendekker
3 days, 15 hours ago -
Enabling Secureboot
by
ITguy
3 days, 22 hours ago -
Windows hosting exposes additional bugs
by
Susan Bradley
4 days, 11 hours ago -
No more rounded corners??
by
CWBillow
4 days, 6 hours ago -
Android 15 and IPV6
by
Win7and10
3 days, 20 hours ago -
KB5058405 might fail to install with recovery error 0xc0000098 in ACPI.sys
by
Susan Bradley
4 days, 23 hours ago -
T-Mobile’s T-Life App has a “Screen Recording Tool” Turned on
by
Alex5723
5 days, 2 hours ago
Recent blog posts
Key Links
S | M | T | W | T | F | S |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.