锐客网

  1. 首页 > 睿知 > it技术 > >

vb.netcsv转换 vb6转换为vs2019

IT技术代码

我在用VB编写一程序，最后要将生成的EXCEL文件转换成CSV形式，改如何用语句转换？多谢帮忙如果是EXCEL文件转CSV就用下面的代码改一下 。
Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制 ， 时间: 2012-3-29
'
'
ChDir "C:\Documents and Settings\Administrator\桌面"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\桌面\Book1.csv", FileFormat:=xlCSV, _
CreateBackup:=False
Range("G14").Select
End Sub
如果是VB直接生成CSV，然后用EXCEL打开
一般VB中的表格都用数组形式存在 。
编程用半角的逗号“,”和回车vbcrlf
分割 ， 存成文本文件 。扩展名是CSV就可以了 。
EXCEL可以直接打开 。
dim a(100,100)
dim s,sf
sf = "C:\Documents and Settings\Administrator\桌面\Book1.csv"
s = ""
for row = 0 to 100
for col = 0 to 100
s = sa(row,col)","
next
s = svbcrlf
next
f = freefile
open sf for output as #f
print #f,s
close
用vb如何将文件夹下所有的.xls格式的文件转换成.csv格式的文件，我需要完整的程序代码，急用！谢谢了！用VBS就可以vb.netcsv转换了vb.netcsv转换 ， 没必要用VB（当然vb.netcsv转换，复制以下代码在VB中也能用，你也能看得出来，这本就是VB代码，只是用VBSvb.netcsv转换的话不用生成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.netcsv转换他们一般不会给你代码的，如果要实现，最好用VB.NET中的VSTO或者直接在EXCEL中用VBE编辑（推荐 ， 这个很快也很方便 ， 更最简单 。），如果用VBE ， 那么上面的程序中的遍历文件夹文件那部分代码是可以用得上的，如果你不懂代码（看这样子，你至少懂VB） ， 只是需要这样的功能，在这里找有难度，除非刚好有人编过此功能 。
附：其实CSV也不过就是把EXCEL文件中的数据读成一般TXT文档的格式了，只是把表格分成了分隔符，也就是如果你不想另存为的话，读取EXCEL文件，然后直接建个文件，写入顺序文件就可以了 。
VBE保存部分代码：
Dim exapp As Application
exapp.Workbooks(1).SaveAs "文件名", "格式"
祝你好运！~
vb.net 怎么生成csv文件与怎么读取csv文件CSV文件，在EXCEL里可以直接生成与读取 。
可以通过VB.net去操作 ， 打开EXCEL文件，去完成上述操作，而更为简单的办法是直接当做操作文本文件（TXT文件）就可以，因为用记事本软件，打开CSV文可以发现，其实际上是一个行内数据之间用逗号分隔的格式文件 。
下面给出例子：
在窗体上添加两个多行文本框，两个按钮，两个文本框一个用来输入生成CSV文件的数据，另一个用来读取显示CSV文件的数据；两个按钮，一个完成生成CSV文件的代码，另一个完成读取CSV文件的代码；具体代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

推荐阅读


上一篇：兼职猫小程序怎么，兼职猫如何打开链接

下一篇：钉钉里的直播课在哪，钉钉在哪里看直播课