缩短文章。完整的代码在附件的excel文件。
需要帮助纠正循环代码,使变量从另一个工作表的单元格中获得值,经过一定的过程后重复。
什么工作已经正确::对于单次运行::
- 目前,只工作在一个输入(保存在工作簿的参数表)
- 从gfinance下载数据
- 以消耗品格式修改数据(也调整时间值)
- 导出为csv
- 导入到其他应用程序
(这里有excel文件供参考)
修改宏以在SymbolSheet中的符号列表上循环工作。这个列表和列表项的计数可以不断变化。
下面是我尝试失败的代码:'Starting Symbol loop --- Will DO STUFF till there are symbols in Symbol sheet
kal = SymbolSheet.Range("A1048576").End(xlUp).Row
For io = 1 To kal
ticker = Cells(io, 1).Value ' fill ticker with cell value one by one
Symbolll = ticker & "-EQ"
'DO LOTS OF OTHER WORK
'Below code is coming from top where Ticker value is set
Next io`
答案已由Scott提供。下面给出:
如果您在此行中限定工作表ticker = Cells(io, 1). value,它可能会有所帮助。例如,ticker = Sheets("Sheet1"). cells (io,1)。值,其中Sheet1是所需的工作表名称。如果活动工作表不是您希望从中获取报价器的位置,那么您编写它的方式将不起作用。- Scott Holtzman