Office中国论坛/Access中国论坛

标题: 如何在窗体中使用代码把excel的csv文件另存为excel的工作薄xls呢 [打印本页]

作者: fatmingli 时间: 2015-1-10 10:34
标题: 如何在窗体中使用代码把excel的csv文件另存为excel的工作薄xls呢
本帖最后由 fatmingli 于 2015-1-10 10:39 编辑

如何在窗体中使用代码把excel的csv文件另存为excel的工作薄xls呢

原文件 .csv 用代码自动另存为新文件 .xls

不好意思，好像把贴子发错地方了。

作者: tmtony 时间: 2015-1-10 10:38
Set objWb = objExl.Workbooks.Open(CurrentProject.Path & "\你的excel文件.xls") '打开文件

另存为
objWb.SaveAs CurrentProject.Path & "\Output\FileAll.xls", -4143  'xlExcel8 56

xlExcel8 56
你可查一下csv等各种格式

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)