Серый форум — AHK: Копирование диапазона экселя.

Re: AHK: Копирование диапазона экселя.

null@example.com (ОсиповаТатьяна) — Fri, 10 May 2019 12:20:56 +0000

stealzy, ясно.
Спасибо.

Re: AHK: Копирование диапазона экселя.

null@example.com (ОсиповаТатьяна) — Thu, 09 May 2019 16:37:55 +0000

inseption86, спасибо большое.
А как сделать, чтобы вот это окно экселя - не моргало на весь экран ?
Оно ведь при запуске - открывается на весь экран и быстро исчезает.

Можно ли сделать, чтобы оно (это окно экселя) - как-то в скрытом режиме открывалось ?

Re: AHK: Копирование диапазона экселя.

null@example.com (inseption86) — Thu, 09 May 2019 15:35:08 +0000

ОсиповаТатьяна

#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

Re: AHK: Копирование диапазона экселя.

null@example.com (ОсиповаТатьяна) — Thu, 09 May 2019 15:04:50 +0000

inseption86, спасибо.
Но этот скрипт копирует не весь диапазон.

Там ведь - еще фигура есть в этом диапазоне.

Re: AHK: Копирование диапазона экселя.

null@example.com (inseption86) — Thu, 09 May 2019 14:50:31 +0000

ОсиповаТатьяна

Так в .pdf

#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

Re: AHK: Копирование диапазона экселя.

null@example.com (ОсиповаТатьяна) — Thu, 09 May 2019 14:39:53 +0000

Имеется ввиду не скриншот PrintScreen, а сохранение диапазона - в файл jpg.

Re: AHK: Копирование диапазона экселя.

null@example.com (ypppu) — Thu, 09 May 2019 14:37:59 +0000

В скрытом режиме скриншоты не делаются.

AHK: Копирование диапазона экселя.

null@example.com (ОсиповаТатьяна) — Thu, 09 May 2019 14:20:04 +0000

Здравствуйте, уважаемые специалисты.

Есть файл экселя 1.xls.
И в нем на листе3 - есть диапазон B4:E8
Как скриптом Autohotkey - сделать скриншот этого диапазона, открыв файл 1.xls - в скрытом режиме и сохранить скриншот в папку со скриптом ?