For l = 1 To AnzahlPfade Step stepSize
offset = (l - 1) * anzahlJahre + 1
.
.
.
moAkt(l) = zaktie
moImmo(l) = zImmo
moShort(l) = zshort
Next l
怎么可能?
现在,我正在生成工作表并将工作表另存为csv
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Randomnum").Copy
ActiveWorkbook.SaveAs Filename:="C:\to.csv", FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close
Application.DisplayAlerts = True
但是在我通过循环生成1000张纸张,保存并删除它的情况下,这不是一个非常好的方法。