VB中如何把txt文件转换成CSV文件 重点是txt和CSV文件路径不能做死,可以更改文件路径

重点是txt和CSV文件路径不能做死!!... 重点是txt和CSV文件路径不能做死!! 展开
 我来答 举报
zgwxm
2012-02-05 · 经典歌曲、名人名家歌曲视频
zgwxm
采纳数:1792 获赞数:21142

向TA提问 私信TA
展开全部
'将 工程-部件-控件-Microsoft Common Dialog Control 6.0(SP3)选中
Private Sub Command1_Click()
Dim R As String, L As String
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen '显示打开文件对话框
R = CommonDialog1.FileName
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "文本文件(*.CSV)|*.CSV|所有文件(*.*)|*.*"
If UCase(Right(R, 4)) = ".TXT" Then
L = Left(R, Len(R) - 4) & ".CSV"
Else
L = R & ".CSV"
End If
CommonDialog1.FileName = L
CommonDialog1.ShowSave '显示打开文件对话框
L = CommonDialog1.FileName
Print R & "保存为" & L
If UCase(Right(L, 4)) = ".TXT" Then
L = Left(L, Len(L) - 4) & ".CSV"
Else
L = L ' & ".CSV"
End If
FileCopy R, L
End Sub
oO没名字了Oo
2012-02-05 · 超过23用户采纳过TA的回答
知道答主
回答量:59
采纳率:0%
帮助的人:54.2万
展开全部
直接保存为CSV文件即可,或者用VB改名
Dim fs, file1, file2
Set fs = CreateObject( "Scripting.FileSystemObject ")
file1 = "sourcefilename " '原文件名
file2 = "destfilename " '要改成的文件名
fs.MoveFile file1, file2

还可以直接用name
name oldfilename as newfilename

至于路径没有看懂什么意思,是CSV的文件路径,还是CSV内容里面的路径?
其实不管什么路径,都可以用变量来设置。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式