Visual Basic - Excel save every sheet as xls - office1997 - compatible

-
1. Alt+F11
 2. Insert -> Module
(paste code)
Sub Splitbook()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs _
Filename:="c:\tmp" & "\" & sht.Name & ".xls", FileFormat:=56
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub

3. Run - > F5 

Comentarii

Trimiteți un comentariu

Postări populare de pe acest blog

-
Typo3 - allow editor users to clear cache options.clearCache.all = 1 options.clearCache.pages = 1 Typo3 -Allow more images to Resources - on a page File /typo3conf/extTables.php $TCA['pages']['columns']['media']['config']['maxitems']=20; $TCA['pages']['columns']['media']['config']['max_size']=20*1024;
Citiți mai multe

Config realurl for my extension

-
<?php $GLOBALS['TYPO3_CONF_VARS']['EXTCONF']['realurl']=array (   '_DEFAULT' =>   array (     'init' =>     array (       'enableCHashCache' => true,       'appendMissingSlash' => 'ifNotFile,redirect',       'adminJumpToBackend' => true,       'enableUrlDecodeCache' => true,       'enableUrlEncodeCache' => true,       'emptyUrlReturnValue' => '/',     ),     'pagePath' =>     array (       'type' => 'user',       'userFunc' => 'EXT:realurl/class.tx_realurl_advanced.php:&tx_realurl_advanced->main',       'spaceCharacter' => '-',       'languageGetVar' => 'L',     ),     'fileName' =>     array (       'defaultToHTMLsuffixOnPrev' => 0,       'acc...
Citiți mai multe