neue Variablen in einem Loop erzeugen Topic is solved

[GamerG1rl]

Code: Select all

#SingleInstance Force
#Persistent

; ##### Search #####

SetTitleMatchMode, 2
SetTitleMatchMode, slow


Gui, 10:Add, Edit, x12 y49 w100 h30 -VScroll +Center vProdukte,
Gui, 10:Add, Text, x12 y9 w100 h30 +Center +BackgroundTrans, Wieviele Produkte ? `n(Anzahl Zeilen)
Gui, 10:Add, Button, x30 y89 w60 h20 gGui_10_weiter, Weiter

Gui, 10:Show, w126 h124, Bestellungen
return

10GuiClose:
ExitApp

Gui_10_weiter:
Gui, 10: Submit
GuiControl, Hide, Bestellungen

;WinActivate, Excel
;WinWaitActive, Excel

Var1 = 0
Var2 = 0

Loop, %Produkte%
{
	send, ^c
	%clipboard% := Var_1_++
	send, {right}
	send, ^c
	%clipboard% := Var_2_++
	send, {down}
	send, {left}
}

Hallöchen...
Ich stehe mal wieder vor einem kleinen Problem. (Habe auch schon google und die Documentation benutzt aber keinen Erfolg gehabt...)

Ich würde gerne folgendes machen:
In einer Excel-Tabelle stehen Produktnummern und die Anzahl in Spalte A und B.
Nun möchte ich gerne, dass das Programm die Nummern abruft und jewails in eine eigene Variable (Var_1_x und Var_2_x) speichert...
Ich bin soweit gekommen, dass man das irgendwie mit

Code: Select all

 Var1 += 1

schreiben kann...
Aber das erhöht ja nur den Counter der Variable, nicht den Text...

Jemand ne Idee ?

[LuckyJoe]

Hallo,

ich arbeite bei Excel am liebsten mit dem COM-Objekt (hier mal nur das Grundgerüst, das dir helfen sollte):

Code: Select all

Excel     := ComObjActive("Excel.Application")		; aktuell laufende Excel Instanz
; Excel 	  := ComObjCreate("Excel.Application") ; startet eine neue Excel Instanz
WorkBook  := Excel.ActiveWorkbook					; aktuell geöffnete Datei
Sheet     := Excel.ActiveSheet						; aktuell geöffnete Tabelle
Cell      := Excel.ActiveCell						; aktuelle Zelle
Zellwert  := Cell.Value								; Wert der aktuellen Zelle
Zellwert2 := Cell.Offset(0,1).Value					; Wert der aktuellen rechten Nachbarzelle

; Excel.ActiveCell.value := 55
; Excel.Range("A1").value := 55
Zellwert ++
Excel.ActiveCell.value := Zellwert
MsgBox, % Zellwert "`r`n" Zellwert2

Viel Erfolg!
HG - Lucky Joe

[Gucky_87]

Das würde ich Dir auch raten. Es ist zwar etwas Einarbeitung nötig, wenn DU das noch nie gemacht hast, aber die lohnt sich, weil Du z.B. das XLS gar nciht (sichtbar) öffnen musst, etc.

Gucky.

[hd0202]

Var_1_%A_Index% := clipboard
Var_2_%A_Index% := clipboard