我的任务是找到一种方法,将组织成数百个文件夹的数千个(可能是数万个)csv文件中的数据传输和排序到一个主电子表格中。不幸的是,我的编程技巧仅限于使用HTML进行基本网页设计和使用IDL进行非常基本的数据分析。我能够用vba复制单个数据点,但是我无法弄清楚如何让它读取整个文件。
Private Sub CommandButton1_Click()
Dim atomicNumber As String
Dim concentration As Single
Dim quantification As Workbook
Worksheets("quantification").Select
atomicNumber = Range("B2")
Worksheets("quantification").Select
concentration = Range("D2")
Set Test = Workbooks.Open("C:\Users\BUARG_Admin\Desktop\Test.xlsx")
Worksheets("sheet1").Select
Worksheets("sheet1").Range("A1").Select
RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
With Worksheets("sheet1").Range("A1")
.Offset(RowCount, 0) = atomicNumber
.Offset(RowCount, 1) = concentration
End With
Test.Save
End Sub
我在这里阅读了一些帖子,看到有人建议使用一个名为FileHelpers的程序来做这件事,但在玩完它之后,我可以告诉我完全在我头上。
csv文件包含扫描电子显微镜输出的数据,并按样本和图像编号进行组织。 SEM使用的软件是专有的,所以我无法触及它。在创建数据时完全自动化传输数据是不必要的。我只是试图想出一些不会将每个文件中的数据复制并粘贴到主电子表格中的内容。