水木社区手机版
- 主题:csv转xls遇到的问题
- vbs的代码，转换结果不正确
下面是csv的原始文档，转换结果不正确
提现的时间变成了#######,支付时间也是
序号,提现金额,处理状态,提现时间,支付时间
1,16.510,已支付,2021-03-28 21:42:58,2021-03-29 13:27:13
2,10.040,已支付,2021-01-31 19:17:20,2021-02-01 12:49:19
3,23.530,已支付,2020-12-27 17:48:58,2020-12-29 13:23:21
4,11.330,已支付,2020-09-13 20:37:55,2020-09-14 13:44:00
5,10.010,已支付,2020-07-19 18:23:28,2020-07-20 13:29:44
6,10.000,已支付,2020-05-31 20:54:46,2020-06-01 13:48:52
7,12.180,已支付,2020-03-29 20:28:20,2020-03-30 15:08:58
8,11.550,已支付,2019-12-29 19:25:39,2019-12-30 13:21:35
9,10.870,已支付,2019-09-15 21:39:03,2019-09-16 12:51:36
10,10.350,已支付,2019-02-09 07:20:59,2019-02-11 10:56:55
11,10.010,已支付,2018-06-30 10:24:07,2018-07-02 12:32:31
12,10.620,已支付,2016-09-24 07:21:55,2016-09-26 11:45:12
--
修改:juxiangyou FROM 124.78.138.*
FROM 58.37.36.* - convertCSV2EXCEL("d:\css\incoming.csv")
sub convertCSV2EXCEL(csvfilename)
Set xlApp = CreateObject("excel.Application")
xlApp.Visible = false
Dim xlbook '创建工作簿
'set xlbook=CreateObject("Excel.Workbook")
'xlbook=xlApp.Workbooks
Set xlbook = xlApp.Workbooks.Open(csvfilename) '打开CSV文件
'Dim WshShell,Path
'Set WshShell=WScript.CreateObject("WScript.Shell")
'Path="""\test1.exe""" 这句的路径怎么写？不是写绝对路径！！
'WshShell.Run Path
xlbook.SaveAs "incoming.csv"+".xls",1
xlbook.close
xlApp.quit
set xlapp=nothing
End Sub
【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: vbs的代码，转换结果不正确
: 下面是csv的原始文档，转换结果不正确
: 提现的时间变成了#######,支付时间也是
: ...................
--
修改:juxiangyou FROM 58.37.36.*
FROM 58.37.36.* - 转换是这样的结果
【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: vbs的代码，转换结果不正确
: 下面是csv的原始文档，转换结果不正确
: 提现的时间变成了#######,支付时间也是
: ...................
--
FROM 58.37.36.* - 你不会是没把表格列拉到足够宽吧
【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: 标 题: Re: csv转xls遇到的问题
: 发信站: 水木社区 (Wed Apr 21 20:15:17 2021), 站内
:
: 转换是这样的结果
:
: 【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: : vbs的代码，转换结果不正确
: : 下面是csv的原始文档，转换结果不正确
: : 提现的时间变成了#######,支付时间也是
: : ...................
:
: --
:
: ※ 来源:·水木社区 newsmth.net·[FROM: 58.37.36.*]
:
--
FROM 202.98.13.* - 怎么设置单元格的宽度或者自适应的调整单元格宽度？
【 在 wuduan (棒棒军) 的大作中提到: 】
: 你不会是没把表格列拉到足够宽吧
--
FROM 58.37.36.* - 问题解决了一部分了，设置了宽度可以显示了
但是这个显示不对啊
我的代码是这样写的
ExcelSheet.Range("D2").Value = "2020-09-13 20:37:55"
希望得到的结果是2020-09-13 20:37:55，可是运行的结果是
2020-09-13 20:37
这个是什么原因啊？
【 在 wuduan (棒棒军) 的大作中提到: 】
: 你不会是没把表格列拉到足够宽吧
--
FROM 58.37.36.* - 再设置一次格式
【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: 标 题: Re: csv转xls遇到的问题
: 发信站: 水木社区 (Wed Apr 21 23:47:17 2021), 站内
:
: 问题解决了一部分了，设置了宽度可以显示了
: 但是这个显示不对啊
:
: 我的代码是这样写的
: ExcelSheet.Range("D2").Value = "2020-09-13 20:37:55"
:
: 希望得到的结果是2020-09-13 20:37:55，可是运行的结果是
: 2020-09-13 20:37
: 这个是什么原因啊？
:
:
: 【 在 wuduan (棒棒军) 的大作中提到: 】
: : 你不会是没把表格列拉到足够宽吧
:
:
: --
:
: ※ 来源:·水木社区 newsmth.net·[FROM: 58.37.36.*]
--
FROM 114.247.175.* - 时间的格式在单元格里怎么设置的？我刚才搜索到这篇文章。
https://www.w3school.com.cn/vbscript/func_formatdatetime.asp
单元格默认的是时间是短格式，如何转换成长格式？
【 在 chenghao (奇怪) 的大作中提到: 】
: 再设置一次格式
--
修改:juxiangyou FROM 124.78.138.*
FROM 124.78.138.* - 好久没有用了，我记得有一个convert什么的，自定义格式
如果你找不到，我晚上加班完毕后，帮你找找
【 在 juxiangyou (juxiangyou) 的大作中提到: 】
: 标 题: Re: csv转xls遇到的问题
: 发信站: 水木社区 (Thu Apr 22 10:16:04 2021), 站内
:
: 时间的格式在单元格里怎么设置的？我刚才搜索到这篇文章。
: https://www.w3school.com.cn/vbscript/func_formatdatetime.asp
: 单元格默认的是时间是短格式，如何转换成长格式？
:
:
: 【 在 chenghao (奇怪) 的大作中提到: 】
: : 再设置一次格式
:
:
: --
:
: ※ 修改:·juxiangyou 于 Apr 22 10:20:56 2021 修改本文·[FROM: 124.78.138.*]
: ※ 来源:·水木社区 newsmth.net·[FROM: 124.78.138.*]
--
修改:juxiangyou FROM 124.78.138.*
FROM 114.247.175.* - 那就谢谢你了。
【 在 chenghao (奇怪) 的大作中提到: 】
: 好久没有用了，我记得有一个convert什么的，自定义格式
: 如果你找不到，我晚上加班完毕后，帮你找找
--
FROM 124.78.138.*