Programming.MicrosoftExcel History

Hide minor edits - Show changes to output - Cancel

 
 
November 13, 2014, at 09:47 AM by MichaelPaulukonis -
Deleted line 3:
Added lines 10-14:


!! Tips and Tricks
[[http://chandoo.org/wp/2008/07/02/17-excel-paste-special-tricks/|Excel Pasting Tricks]]
[[http://www.tech-recipes.com/rx/45005/microsoft-excel-splitting-one-cell-row-into-multiple-rows/|Splitting One Cell Row into Multiple Rows]] (and then columns, if that's your thing)
 
 
September 22, 2008, at 04:28 PM by OtherMichael -
Changed line 35 from:
   Const PATH As String = "T:\FormWare\ExportFileLayout\dec\"
to:
   Const PATH As String = "T:\ExportFileLayout\dec\"
 
 
August 20, 2008, at 11:03 AM by OtherMichael -
Changed line 2 from:
[[~MichaelPaulukonis]] is dumping things here to find, later.
to:
dumping things here to find, later.
 
 
January 16, 2008, at 09:14 AM by MichaelPaulukonis -
Added lines 9-11:

http://www.rath.ca/Misc/VBA/index.html

 
 
January 08, 2008, at 04:41 PM by MichaelPaulukonis -
Changed line 32 from:
   Const PATH As String = "T:\FormWare\ExportFileLayout\"
to:
   Const PATH As String = "T:\FormWare\ExportFileLayout\dec\"
Changed line 39 from:
       FName = PATH & sht.Name & Stamp & ".csv"
to:
       FName = PATH & sht.Name & ".csv"
Changed lines 41-42 from:
       Call ActiveWorkbook.SaveAs(FileName:=FName, FileFormat:=xlCSV)
to:
       'TODO: trouble-spot, SaveAs changes the active name, not an export :-(
        Call sht.SaveAs(Filename
:=FName, FileFormat:=xlCSV)
 
 
January 08, 2008, at 04:29 PM by MichaelPaulukonis -
Changed line 7 from:
to:
http://www.mvps.org/dmcritchie/excel/sheets.htm
 
 
January 08, 2008, at 04:22 PM by MichaelPaulukonis -
Changed lines 10-11 from:
!! Enter VBE
to:
!! Code Editing

!!! VBE
Added lines 14-17:
#Alt F11

!!! Script Editor (???)
#Tools >> Macro >> Microsoft Script Editor
Added lines 19-20:

 
 
January 08, 2008, at 04:19 PM by MichaelPaulukonis - enter VBE
Added lines 9-13:

!! Enter VBE

#Tools >> Macro >> Visual Basic Editor
#Alt-Shift F11
 
 
January 08, 2008, at 04:17 PM by MichaelPaulukonis -
Added lines 1-41:
!! [[#General]] General Notes
[[~MichaelPaulukonis]] is dumping things here to find, later.


http://www.perlmonks.org/?node_id=544814
http://www.ozgrid.com/forum/showthread.php?t=13329

http://p2p.wrox.com/topic.asp?TOPIC_ID=47783


!! Export all sheets as CSV files

(:source lang=vb:)
Sub ExportAllSheets()

    Dim sht        As Worksheet
    Dim FName As String
    Dim Stamp As String
   
    Const PATH As String = "T:\FormWare\ExportFileLayout\"
   
    Stamp = "_" & Format(Now, "ddmmyyyy")
   
    For Each sht In Sheets
        Debug.Print sht.Name
               
        FName = PATH & sht.Name & Stamp & ".csv"
       
        Call ActiveWorkbook.SaveAs(FileName:=FName, FileFormat:=xlCSV)
       
    Next sht
       
End Sub
(:sourceend:)


!! [[#SeeAlso]] See Also


!! [[#Categories]] Category tags
[[!Programming]] [[!VBA]] [[!Excel]]