使用VBScript从Excel中提取数据

时间:2015-06-10 23:28:53

标签: excel vbscript

我需要从电子表格中提取遗留数据并加载/转换为csv,DB。虽然我知道这可以通过Python和其他后端脚本来完成,但数据非常关键,并且希望确保日期格式化没有丢失等等。因此,决定将实现保留在源代码并且涉及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),这是变化的,直到它到达空行。提取整个电子表格非常简单。

Dim myExcel
Set myExcel = CreateObject("Excel.Application")

Dim myBook
Set myBook = myExcel.Workbooks.Open(src_file)

myBook.Sheets(WScript.Arguments.Item(0)).Select

有关如何扩展此内容以仅提取特定列和行集的任何帮助?

非常感谢, 蜂

0 个答案:

没有答案