#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 

#include gdip_all.ahk  ;https://www.autohotkey.com/boards/viewtopic.php?f=6&t=6517

path = %A_Desktop%\1.xlsx

xl := ComObjCreate("Excel.Application")
xl.Visible := true

Book1 := Xl.Workbooks.Open(path)

Book1.workSheets(3).Range("B4:E8").copy

pToken := Gdip_Startup()
pBitmap := Gdip_CreateBitmapFromClipboard()
FormatTime, TimeString,, HH-mm-ss
vPath := A_ScriptDir "\" TimeString ".png"

Gdip_SaveBitmapToFile(pBitmap, vPath)
Gdip_DisposeImage(pBitmap)
Gdip_Shutdown(pToken)


Book1.close(false)


MsgBox, 4160, , Готово!

xl.quit
ExitApp

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
#SingleInstance force 

path = %A_Desktop%\1.xlsx

xl := ComObjCreate("Excel.Application")
xl.Visible := false
xl.screenUpdating := 0
Book1 := Xl.Workbooks.Open(path)

Book1.workSheets(3).Range("B4:E8").copy

Book2 := xl.Workbooks.add
Book2.workSheets(1).Range("A1").PasteSpecial

FormatTime, TimeString,, HH-mm-ss

path = %A_ScriptDir%\%TimeString%.pdf
Book2.worksheets(1).ExportAsFixedFormat(0, path) 

Book1.close(false)
Book2.close(false)

MsgBox, 4160, , Готово!

xl.quit
ExitApp