注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

且行且记录

点滴记录,行的更远!

 
 
 

日志

 
 

转化xls为txt格式vbs脚本,便于py处理  

2016-06-17 09:19:42|  分类: 方法技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
因为Python对Excel文件没法直接处理,所以需要借用vbs脚本做预处理后才能用于py脚本。

‘xlstotxt.vbs
' 转化沪深涨幅数据xls文件为txt文件,便于其他脚本命令行调用
Sub XLS2TXT(fromXLS, toDir)
    Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(fromXLS) Then Exit Sub

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(fromXLS)
    'xlApp.Visible = True
    Set sheet0 = xlBook.ActiveSheet
t = sheet0.cells(1, 2) & Left(sheet0.cells(3, 1), 2) & ".txt"
t = Replace(t, " ", "_")
t = Replace(t, ":", "_")

If Right(toDir,1) = "\" Then
toTXT = toDir & t
Else
toTXT = toDIr & "\" & t
End If
If fso.FileExists(toTXT) Then Exit Sub

s = ""
    i = 3
    While Len(sheet0.Cells(i, 1)) = 8 And i < 2000
        code = sheet0.Cells(i, 1)
        Name = sheet0.Cells(i, 2)
        price = sheet0.Cells(i, 3)
        Rate = sheet0.Cells(i, 4)
        qty = sheet0.Cells(i, 8)
        jk = sheet0.Cells(i, 10)
        zs = sheet0.Cells(i, 11)
        zg = sheet0.Cells(i, 12)
        zd = sheet0.Cells(i, 13)

        s0 = "" & code & "|" & Name & "|" & Round(price, 2) & "|" & Round(Rate, 4) & "|" & _
            qty & "|" & Round(jk, 2) & "|" & Round(zs, 2) & "|" & Round(zg, 2) & "|" & Round(zd, 2) & vbCrLf
        s = s & s0
        i = i + 1
    Wend

    Set f = fso.CreateTextFile(toTXT)
    f.Write (s)
    f.Close
    Set f = Nothing
    Set fso = Nothing
    xlApp.Quit
    Set xlApp = Nothing
End Sub

Set objArgs = WScript.Arguments
If objArgs.count = 2 Then
XLS2TXT objArgs(0), objArgs(1)
Else
WScript.Echo "[*]: XLS2TXT.vbs fromXLS toDir"
End If

  评论这张
 
阅读(11)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017