不知道这个问题还能怎么解决,下面是自己写的一个方法
Sub selectCSV()
Dim str As String
Dim workFolderName As String
Dim targetFolder As String
Dim fs As FileSystemObject
Dim f As file
Dim ts As TextStream
Dim i
不知道这个问题还能怎么解决,下面是自己写的一个方法
Sub selectCSV()
Dim str As String
Dim workFolderName As String
Dim targetFolder As String
Dim fs As FileSystemObject
Dim f As file
Dim ts As TextStream
Dim i