Export VBA Code to Text File

M

mark ivanowski

I am new in VBA and need to find a way to export all modules to text file.
Any suggestion that works? I've been trying some samples... they might work
but theres no clear instruction on how to setup it in step by step.
 
J

JLGWhiz

I usually just copy mine to either MS Word or Notepad. Never bothered with
doing it by code.
 
C

Chip Pearson

A simple piece of code will do it.

Sub ExportMod()
Dim ModName As String
Dim FName As Variant
ModName = "Module1"
FName = Application.GetSaveAsFilename( _
filefilter:="Module Files (*.bas),*.bas", _
Title:="Export")
If FName = False Then
' getfilename cancelled
Exit Sub
Else
On Error GoTo NoDelete:
Kill FName
End If
ThisWorkbook.VBProject.VBComponents(ModName).Export FName
Exit Sub
NoDelete:
MsgBox "The file '" & Filename & "' cannot be deleted." & vbCrLf &
_
"Error: " & CStr(Err.Number) & " " & Err.Description
End Sub

Change

ModName = "Module1"

to the name of the module you want to export. The code will prompt you
for the SaveAs file name. If you cancel this dialog, the code
terminates. If the SaveAs filename exists, the code deletes it. If
this delete operation is not successful, the module is not exported
and the code throws up a MsgBox indicating the error.

See http://www.cpearson.com/Excel/VBE.aspx for lots more info about
working with the VBA editor via code.


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)
 
J

Jon Peltier

Rob Bovey's Code Cleaner utility (free from http://appspro.com) exports,
deletes, then imports code modules in order to clean up those nasty VB
projects.

One of its options is to simply export all modules. When exported, the
modules are essentially test files.

- Jon
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top