Question

用vb如何将文件夹下所有的.xls格式的文件转换成.csv格式的文件，我需要完整的程序代码，急用！谢谢了！

一定要用vb做的哦！

Answer 1

用VBS就可以了，没必要用VB（当然，复制以下代码在VB中也能用，你也能看得出来，这本就是VB代码，只是用VBS的话不用生成EXE软件）
打开记事本，输入：
strfolder="G:\Users\maker\Desktop\新建文件夹 (2)\1"
Set objSFO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objSFO.GetFolder(strfolder)
Set colfiles=objfolder.Files
For Each strfile In colfiles
strnewname=".jpg"
objsfo.MoveFile strfile,strfolder & "\" & mid(strfile.ShortName,1,len(strfile.ShortName)-4) & strnewname
Next
然后稍微修改一下就可以另存为**.vbs放到文件夹里双击打开就可以了。第一行改成你要修改的文件夹路径，第6行改成你要修改成的.CSV格式，以上是我自己用来改文件名的程序，很好用。
如果你要改成CSV的格式的文件，那么你用VB的话必须引用EXCEL控件，然后循环打开文件，再用另存为，有点复杂，他们一般不会给你代码的，如果要实现，最好用VB.NET中的VSTO或者直接在EXCEL中用VBE编辑（推荐，这个很快也很方便，更最简单。），如果用VBE，那么上面的程序中的遍历文件夹文件那部分代码是可以用得上的，如果你不懂代码（看这样子，你至少懂VB），只是需要这样的功能，在这里找有难度，除非刚好有人编过此功能。

附：其实CSV也不过就是把EXCEL文件中的数据读成一般TXT文档的格式了，只是把表格分成了分隔符，也就是如果你不想另存为的话，读取EXCEL文件，然后直接建个文件，写入顺序文件就可以了。
VBE保存部分代码：
Dim exapp As Application
exapp.Workbooks(1).SaveAs "文件名", "格式"
祝你好运！~

Answer 2

有块半年没搞VB了，大体上说一下吧，添加一个filelist控件，让控件显示app.path文件夹的所有文件，然后使用循环for i =0 to filelist.listcount 读取读取每个文件名，貌似是filelist.list(index)，然后new_filename=left(filelist.list(i) ,len(filelist.list(i))-3) & ".csv",这么详细你应该可以看懂吧？代码就不上了，不太记得了

Answer 3

用Excel全部打开 然后全部另存为吧，呵呵