vb.net保存csv文件

vb.net保存csv文件,第1张

题主是否想问“vb.net保存csv文件的步骤?”vb.net保存csv文件的步骤如下:

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 "文件名", "格式"

祝你好运!~


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/11620912.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-17
下一篇 2023-05-17

发表评论

登录后才能评论

评论列表(0条)

保存