- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 批量csv文件另存excel (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147664)
-- 发布时间：2020/3/21 15:10:00
-- 批量csv文件另存excel
将文件夹里批量csv文件另存excel文件，代码如何写，谢谢！
-- 发布时间：2020/3/21 15:29:00
--
参考：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "CSV文件|*.csv" \'设置筛选器
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim App As New MSExcel.Application
Dim d As String = "d:\\"
For Each f As String In dlg.FileNames
try
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(f)
Dim n As String = FileSys.GetName(f)
Wb2.SaveAs(d & n.Split(".")(0) & ".xls", MSExcel.XlFileFormat.xlExcel8, Type.Missing, Type.Missing, Type.Missing, Type.Missing, MSExcel.XlSaveAsAccessMode.xlExclusive,Type.Missing, Type.Missing, Type.Missing, Type.Missing, False)
catch ex As Exception
Output.Show(ex.message)
End try
Next
App.quit
End If
-- 发布时间：2020/3/22 9:34:00
--
测试过，报错。另外按照教程运行以下代码也报错：
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\report.xls")
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\report.xls")
求解，谢谢！
-- 发布时间：2020/3/22 21:09:00
--
我测试吗有问题，报什么错？电脑存在这个文件吗？D:\\report.xls
-- 发布时间：2020/3/23 9:19:00
--
电脑存在。报错如下：
此主题相关图片如下：vba.png
-- 发布时间：2020/3/23 10:15:00
--
卸载重新安装一下office，需要安装完整版的，最好是32位版本。不能安装精简版、绿色版的。一般Ghost系统自带的都是精简版