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

将带分隔符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 文件名
'---------------------------------------
Sub SaveAsExcel(srcPath As String, desPath As String, FileName As String)
    If Right(srcPath, 1) <> "/" Then
        srcPath = srcPath + "/"
    End If
    If Right(desPath, 1) <> "/" Then
        desPath = desPath + "/"
    End If

    ChDir srcPath
        Workbooks.OpenText FileName:= _
            srcPath + FileName, _
            Origin:=936, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
            xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
            Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
            Array(2, 1)), TrailingMinusNumbers:=True
        ChDir desPath
        ActiveWorkbook.SaveAs FileName:= _
            desPath + FileName, FileFormat:= _
            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
            , CreateBackup:=False
        ActiveWindow.Close
End Sub

'调用将c:/下的txt另存为c:/xls目录下，并转换为xls格式

SaveAsExcelInPath "C:/", _
"C:/xls"

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

python读取txt文件并写入excel-Python读取txt内容写入xls格式excel中的方法
由于xlwt目前只支持xls格式,至于xlsx格式,后面会继续更新 import xlwt import codecs def Txt_to_Excel(inputTxt,sheetName,star ...
python将txt文件转为excel格式以及写入excel超过65536行报错问题解决方法
参考链接: https://blog.csdn.net/levy_cui/article/details/82252183 https://blog.csdn.net/levy_cui/article ...
python读取txt文件并输出到表格_Python读取txt内容写入xls格式excel中的方法
由于xlwt目前只支持xls格式,至于xlsx格式,后面会继续更新 import xlwt import codecs def Txt_to_Excel(inputTxt,sheetName,star ...
Java txt文件转 utf-8 格式
Java txt文件转 utf-8 格式转载并修改来源:http://www.cnblogs.com/wangyanei2017/p/8807351.html import org.apache. ...
Python读取txt文件画Loss曲线图---txt文件转xls文件---xls文件转txt文件--xml文件转txt文件
任务1- 读取.txt文件画折线图(曲线图) 任务2- 将.txt文件转换成.xls(excel)文件任务3- 将.xls(excel)文件转换成.txt文件任务4- 读取.txt文件画折线图(曲 ...
python读取txt为dataframe_python批量读取txt文件为DataFrame格式的方法总结
python怎么批量读取txt文件为DataFrame格式这次给大家带来python怎么批量读取txt文件为DataFrame格式,python批量读取txt文件为DataFrame格式的注意事项有 ...
R语言读写带分隔符的文件
有众多的格式和文本文件标准可用于存储数据.用于存储数据的通用格式为分隔符值(即CSV或制表符分割文件).可扩展标记语言(XML).JavaScript对象表示法(JSON) 将数据存储在文本文件中的主 ...
vba保存文件为xlsx格式_使用VBA打开制表符分隔的.txt文件以保存为.xlsx格式
我正在尝试在Excel中使用VBA来自动将.txt文件(制表符分隔)转换为.xlsx文件 . 这就是我所拥有的: Set WB = Workbooks.Open(folder + file, , , ...
Matlab将文件夹下的txt文件另存为mat文件
namelist = dir('D:\ZT\data\TP3_data\GretnaSFCMatrixR\*.txt'); %找到路径下的txt文件 for i=1:length(namelist)f ...

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

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

最新文章

热门文章