0
缩短文章。完整的代码在附加的Excel文件中。Excel VBA循环 - 通过在另一个工作表的单元格上循环设置变量的值
需要纠正循环代码的帮助,以便变量从另一个工作表的单元格获得值,并在某个过程后重复。
什么是正确的工作已经::单次运行::
- 目前只适用于1个输入(保存在工作簿的ParameterSheet)从gfinance
- 下载数据在耗材
- 修改数据格式(也调整时间值)
- 导出为csv
- 导入到另一个应用程序
(这里的excel file供参考)
修改宏在一个循环工作中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`
将代码限制为复制问题所需的最低限度。解决方案可能非常简单,但目前很难挖掘。 –
对不起,我没有看到问题 - 这看起来应该循环所有的1到kal。目前发生的错误是什么?你期望什么价值?你得到了什么? –
如果您在此行中限定了单行'ticker = Cells(io,1).Value',它可能会有所帮助。例如,'ticker = Sheets(“Sheet1”)。Cells。(io,1).Value' *其中Sheet1是所需的工作表名称*如果活动工作表不是您希望从中获取代码的地方,你写它的方式是行不通的。 。 –