![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
m0_46701028
这个作者很懒,什么都没留下…
展开
-
从一个文件夹中的所有xlsx表中取数据整合
文件夹中有多个工作簿:工作簿的格式:实现代码:Sub 周() Dim str As String Dim path As String Dim thisBookPath As String Dim wb As Workbook Dim i, count As Long Dim num, num1, num2 As Double i = 1 thisBookPath = ActiveWorkbook.path原创 2021-12-15 23:17:11 · 311 阅读 · 0 评论 -
把一个文件夹中大于一行数据的CSV或txt文件复制到另一个文件夹
把一个文件夹中大于一行数据的CSV,txt文件复制到另一个文件夹不知道这个问题还能怎么解决,下面是自己写的一个方法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 As Integer原创 2021-01-18 23:22:40 · 139 阅读 · 0 评论