求一个程序,将一个文件夹所有的CSV文件转为XLS文件
因为CSV文件比较多,所以希望能做成批处理。要求:1、可以直接运行的小程序即可。但可以使用EXCEl的VBA,或者bat格式的程序。实在不行,用C#编写的程序亦可。但C#...
因为CSV文件比较多,所以希望能做成批处理。
要求:1、可以直接运行的小程序即可。但可以使用EXCEl的VBA,或者bat格式的程序。实在不行,用C#编写的程序亦可。但C#必须封装为EXE。
2、需给出源代码,本人不懂编程,最好能有解释。 展开
要求:1、可以直接运行的小程序即可。但可以使用EXCEl的VBA,或者bat格式的程序。实在不行,用C#编写的程序亦可。但C#必须封装为EXE。
2、需给出源代码,本人不懂编程,最好能有解释。 展开
展开全部
Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制,时间: 2012-3-17
'
'
ChDir "E:\excel\新建文件夹\新建文件夹"
Workbooks.Open Filename:="E:\excel\新建文件夹\新建文件夹\A.csv"
ActiveWorkbook.SaveAs Filename:="E:\excel\新建文件夹\新建文件夹\A.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub
'
' Macro1 Macro
' 宏由 User 录制,时间: 2012-3-17
'
'
ChDir "E:\excel\新建文件夹\新建文件夹"
Workbooks.Open Filename:="E:\excel\新建文件夹\新建文件夹\A.csv"
ActiveWorkbook.SaveAs Filename:="E:\excel\新建文件夹\新建文件夹\A.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询