看你熟悉那种工具了,最简单是导入数据库,然后拼接成SQL
然后要自动调用,那只能读文件,然后分列,把你要的那一列单独存文件
Dim objFso as FileSystemObject
Dim txtstr as TextStream
set objFSO=new FileSystemObject
set objFile=objFSO.OpenTextFile(filename, ForReading)
Do while objFile.AtEndOfStream <> True
temp=objFile.ReadLine
arrayTemp=Slplit(temp,",")
'然后就可以取出你要的那一列,再新开另外一个FSO,去写就可以了
Loop