我需要从电子表格中提取遗留数据并加载/转换为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
有关如何扩展此内容以仅提取特定列和行集的任何帮助?
非常感谢, 蜂