1、引用命名空间:在代码文件的开头,需要引用命名空间。
2、创建CSV文件并写入数据:使用StreamWriter类创建CSV文件,并使用WriteLine方法将数据写入文件
3、保存文件:保存CSV文件可以使用SaveFileDialog类,该类提供了一个对话框,允许用户选择文件的保存位置和文件名
4、显示对话框,让用户选择文件的保存位置和文件名。如果用户点击了对话框的“保存”按钮,则将文件复制到用户选择的位置。
ActiveWorkbook.SaveAs Filename:= _"C:\Documents and Settings\Administrator\My Documents\dahai.csv", FileFormat _
:=xlCSV, CreateBackup:=False
将这段代码 放到 你的按钮所对应的 代码窗口中……
"C:\Documents and Settings\Administrator\My Documents\dahai.csv"
这是 文件的完整路径名称……根据你实际需要进行修改
创建按钮:确保 控件工具箱 处于显示状态 然后 使用 控件工具箱上 的 命令按钮 在设计状态下 双击 打开 代码窗口 粘贴这段代码……关闭设计模式 再次点击 就可以了
用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 "文件名", "格式"
祝你好运!~
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)