VBA宏将带分隔符txt文件另存为xls格式

最新推荐文章于 2023-09-29 11:19:06 发布

lion_wing

最新推荐文章于 2023-09-29 11:19:06 发布

阅读量2.7k

点赞数

分类专栏：其它技术文章标签： vba string c

本文链接：https://blog.csdn.net/lion_wing/article/details/1762028

版权

这段VBA代码实现了一个功能，将指定目录下的带分隔符txt文件批量转换并另存为xls格式。通过`SaveAsExcelInPath`和`SaveAsExcel`两个子程序，它首先打开源目录中的txt文件，然后将其以xls格式保存到目标目录中。

摘要由CSDN通过智能技术生成

将带分隔符txt文件另存为xls格式

'功能：批量另存为一个目录下的XLS文件
'srcPath 源目录
'desPath 目标目录
'---------------------------------------
Sub SaveAsExcelInPath(srcPath As String, desPath As String)
    If Right(srcPath, 1) <> "/" Then
        srcPath = srcPath + "/"
    End If
    If Right(desPath, 1) <> "/" Then
        desPath = desPath + "/"
    End If

    ChDir srcPath
    Dim f_name$
    f_name = Dir(srcPath + "*.xls")
    While f_name <> ""
        SaveAsExcel srcPath, desPath, f_name
        f_name = Dir()
    Wend
End Sub

'---------------------------------------
'功能：另存为一个XLS文件
'srcPath 源目录
'desPath 目标目录
'FileName 文件名
'---------------------------------

最低0.47元/天解锁文章

lion_wing

关注

0
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
VBA宏将带分隔符txt文件另存为xls格式

将带分隔符txt文件另存为xls格式功能：批量另存为一个目录下的XLS文件srcPath 源目录desPath 目标目录---------------------------------------Sub SaveAsExcelInPath(srcPath As String, desPath As String) If Right(srcPath, 1)
复制链接

扫一扫

专栏目录