Tests Copying, Pasting, API Cliipboard issues. and Rough notes on Advanced API stuff

[DocAElstein]

In support of this Thread: http://www.excelfox.com/forum/showth...2530#post12530

..save and close the sample2.xls and sample3.xlsb...

To help get syntax we can use a macro recording…


Macro recording for simple save..

Open sample2.xls
Open sample3.xlsb
Open sample1.xlsm

StartMacroRecording.JPG : https://imgur.com/4KAUJGa
NameRecordingMacro.JPG : https://imgur.com/AP6qdY2

Save sample2 xls.jpg : https://imgur.com/JhQEZzv
Close sample2 xls.JPG : https://imgur.com/aEKtCTN

Save sample3 xlsb.JPG : https://imgur.com/ontjd4z
Close sample3 xlsb.JPG : https://imgur.com/kbDEhfm

Stop Recording Macro.JPG : https://imgur.com/loqaTkc

Recorded Macro.JPG : https://imgur.com/SFY0jcW

Sub AvASave()
'
' AvASave Makro
'

'
    Windows("sample2.xls").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Windows("sample3.xlsb").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Macro recording for Save As..

Open sample2.xls
Open sample3.xlsb
Open sample1.xlsm

StartMacroRecording.JPG : https://imgur.com/4KAUJGa
NameRecordingMacro2.JPG : https://imgur.com/mDEneOt

SaveAs sample2 xls.jpg : https://imgur.com/xjqgPRO , https://imgur.com/UpT3pAB
Close sample2 xls.JPG : https://imgur.com/aEKtCTN

SaveAs sample3 xlsb.JPG : https://imgur.com/QF5yo6L , https://imgur.com/hgyV1Tm
Close sample3 xlsb.JPG : https://imgur.com/kbDEhfm

Stop Recording Macro.JPG : https://imgur.com/loqaTkc

Recorded Macro2.JPG : https://imgur.com/zHm6DY2

Sub AvASaveAs()
'
' AvASaveAs Makro
'
    Windows("sample2.xls").Activate
    ActiveWorkbook.SaveAs Filename:= _
        "F:\Excel0202015Jan2016\ExcelFox\vixer\sample2.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close
    Windows("sample3.xlsb").Activate
    ActiveWorkbook.SaveAs Filename:= _
        "F:\Excel0202015Jan2016\ExcelFox\vixer\sample3.xlsb", FileFormat:=xlExcel12, _
        CreateBackup:=False
    ActiveWorkbook.Close
End Sub