脚本编程实现多个表格数据合并

liumiaomiaohlh · 发表于 2023-4-7 15:21

如题，利用surfer脚本编程实现将一个文件夹中的csv格式表格中的数据合并到一个新的表格中，其中多个CSV格式表格的数据格式是一样的，一直没有找到命令。请教各位高手，有啥好的解决方法吗？脚本里面是不是不能在调用excel了？

liumiaomiaohlh · 发表于 2023-4-7 16:19

菜单操作merge函数可以实现多个多个表格合并，如何用代码实现了

liumiaomiaohlh · 发表于 2023-4-7 16:22

Dim Wks1 As Object
Set Wks1 = SurferApp.Documents.Add(srfDocWks)
Dim num As Integer
num=10
ext="*.dat"
file=Dir(path+ext)
While file <> ""
Wks1.Merge(FileName:=path+"num.dat")
num=num+20
file = Dir()
Wend
不能用num，换成具体数值如10可以导入一个表数据，我有10.dat,30.dat,50.dat...130.dat这些表格。