参考：
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
加好友 
发短信
Post By：2020/3/21 15:10:00 [只看该作者]
此主题相关图片如下：vba.png