使用VBScript从Excel中提取数据

我有一个要求,从电子表格中提取旧数据,并加载/转换为CSV,DB。 虽然我知道这可以用Python和其他后端脚本来完成,但数据是非常关键的,并且要确保date格式化等没有任何损失。所以,决定在源代码中保留实现,并在vb脚本中涉及。

问题是,我试图从中提取表单有多个表。 例如:

ColA ColB Col C ColD Row1 Date Group1 Group2 Group 3 Row2 Jan-13 25 26 27 Row3 Jan 18 35 29 19 Row4 20 15 <empty row> Y/Y % YTD % Group % 15 20 40 

从上面的数据集中,我只需要从ColA中提取数据到Col(N),Col(N)是变化的,直到它到达空行。 提取整个电子表格非常简单。

 Dim myExcel Set myExcel = CreateObject("Excel.Application") Dim myBook Set myBook = myExcel.Workbooks.Open(src_file) myBook.Sheets(WScript.Arguments.Item(0)).Select 

任何帮助我如何扩展这只提取特定的一组列和行?

非常感谢蜜蜂