Excel data importing

Here is what I came up with. It was a nice learning experience as this was my first "bigger" project. Thanks everyone for help.

#SingleInstance, force

Gui, -MaximizeBox

Gui, Show, w140 h200,

Gui, Add, Button, w120 h34,Valitse tiedosto

Gui, Add, Edit, w120 vValittuTiedosto

Gui, Add, Button, w120 h34, Käynnistä Firefox

Gui, Add, Button, w120 h34, Kopioi

Gui, Add, Button, w55 h34, Pienennä

Gui, Add, Button, w55 h34 x75 y153, Sulje

F7::

A2Val := wbk.Sheets("AHK".Cells(1,2).Value)

Click 355, 531

SendInput, % A2Val

A3Val := wbk.Sheets("AHK".Cells(2,2).Value)

Click 364, 683

SendInput, % A3Val

Send {WheelDown}

Sleep 50

Send {WheelDown}

Sleep 50

Send {WheelDown}

Sleep 50

Send {WheelDown}

Sleep 50

Send {WheelDown}

Sleep 50

A4Val := wbk.Sheets("AHK".Cells(3,2).Value)

Click 358, 268

SendInput, % A4Val

A5Val := wbk.Sheets("AHK".Cells(4,2).Value)

Click 363, 420

SendInput, % A5Val

A6Val := wbk.Sheets("AHK".Cells(5,2).Value)

Click 380, 573

SendInput, % A6Val

Click 389, 688

return

ButtonValitsetiedosto:

^(FileSelectFile, SelectedFile)

^(If SelectedFile)

    ^(GuiControl,, ValittuTiedosto, %SelectedFile%)

^(return)

ButtonKopioi:

WinSet, AlwaysOnTop, Off

^(wbk := ComObjGet(SelectedFile))

return

ButtonKäynnistäFirefox:

WinSet, AlwaysOnTop, On,

^(Run Firefox.exe) [^(https://l)](https://forms.office.com/Pages/ResponsePage.aspx?id=2nfWMmqQcUqxhQAJnA_GA5_AgN5Qt89CuyhpBNCjnDFUNkxaN0s0U0pTMURYRkM4OUJLRVhVOU44Wi4u)^(ink.to.destination.com)

return

ButtonPienennä:

^(WinMinimize)

return

ButtonSulje:

^(ExitApp)

return

/r/AutoHotkey Thread