Серый форум — AHK: Сохранение .xlsx

Re: AHK: Сохранение .xlsx

null@example.com (inseption86) — Tue, 08 May 2018 05:32:30 +0000

svoboden

СПС Большое, то, что нужно!

Re: AHK: Сохранение .xlsx

null@example.com (Malcev) — Mon, 07 May 2018 22:34:54 +0000

Ответ на свой вопрос вы можете получить загуглив "допустимые символы в имени файлов".
Кстати в вашей регулярке и точка-то в названии файла необязательно должна присутствовать:

name := "axlsxaxlsx"
msgbox % Str := RegExReplace(name, ".xlsx")

Re: AHK: Сохранение .xlsx

null@example.com (svoboden) — Mon, 07 May 2018 22:32:25 +0000

Malcev пишет:

И как?

Это как в имени файла может присутствовать расширение этого файла, да и еще в точкой в начале.

Re: AHK: Сохранение .xlsx

null@example.com (Malcev) — Mon, 07 May 2018 22:17:50 +0000

svoboden пишет:

Можно через StringReplace.

И как?

Re: AHK: Сохранение .xlsx

null@example.com (svoboden) — Mon, 07 May 2018 22:13:06 +0000

Malcev, tак я не спец в регулярных выражения. Можно через StringReplace.

Re: AHK: Сохранение .xlsx

null@example.com (Malcev) — Mon, 07 May 2018 22:00:23 +0000

svoboden

name := ".xlsx.xlsx"
msgbox % Str := RegExReplace(name, ".xlsx")

Re: AHK: Сохранение .xlsx

null@example.com (svoboden) — Mon, 07 May 2018 21:49:46 +0000

Что за выполнения операций кода. Сохранять текущий файл можно так:

F12::
xl := ComObjActive("Excel.Application")
path := xl.ActiveWorkbook.path
name := xl.ActiveWorkbook.name
Str := RegExReplace(name, ".xlsx")
file := path "\" Str "_проверено" ".xlsx"
xl.ActiveWorkbook.SaveAs(file, 51)
return

Re: AHK: Сохранение .xlsx

null@example.com (Malcev) — Mon, 07 May 2018 09:15:34 +0000

https://msdn.microsoft.com/en-us/vba/ex … ject-excel

AHK: Сохранение .xlsx

null@example.com (inseption86) — Mon, 07 May 2018 07:46:26 +0000

Добрый день! Подскажите пож-та, возможно ли после открытия экселевского файла, и выполнения операций кода в конце происходило "сохранить как" в туже директорию, откуда он открывался и с тем же именем+дополнение, например. файл был - "....... 01 апреля.xlsx", а после сохранялся в новый файл в туже папку "....... 01 апреля_проверено.xlsx"

Шапка кода:

SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

$^1::
Setkeydelay, 35

Loginname = 
Password = 
ie := ComObjCreate("InternetExplorer.Application")
ie.Visible := true
ie.Navigate(".....")
while ie.readystate <> 4
	continue
ie.document.getElementsByTagName("input")[0].value := Loginname
ie.document.getElementsByTagName("input")[1].value := Password
ie.document.getElementsByTagName("input")[2].click()
Sleep 2000
ie.document.getElementsByTagName("a")[0].click()


; Выбор экселевскгого файла для проверки
FileSelectFile, Path, 3, , Open Excel File, Excel File (*.xls; *.xlsx)
if Path =
	ExitApp
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path) ;open an existing file
Xl.Visible := True
if Errorlevel
{
	MsgBox, % "Error opening excel file! Exiting..."
	ExitApp
}

MsgBox, % "Сделано!"
ExitApp