vb语句拆分超大csv文件

在VB语言中，可以使用以下方法来拆分超大的CSV文件。

首先，我们需要使用FileSystem对象来读取源CSV文件。可以使用以下语句创建一个FileSystem对象：
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

然后，使用OpenTextFile方法打开CSV文件，并以逐行的方式读取文件内容。例如：
Dim sourceFile As Object
Set sourceFile = fs.OpenTextFile("C:\path\to\source.csv", 1)

接下来，创建一个新的CSV文件来存储拆分后的数据。可以使用以下方法创建一个文本文件：
Dim destFile As Object
Set destFile = fs.CreateTextFile("C:\path\to\output1.csv", True)

然后，使用Loop语句逐行读取源CSV文件，并将数据写入新的CSV文件中。可以使用以下代码实现：
Dim line As String
Do Until sourceFile.AtEndOfStream
line = sourceFile.ReadLine
destFile.WriteLine line

'根据需要，当达到一定行数后可以创建一个新的CSV文件
If destFile.Line >= 10000 Then
destFile.Close
fileIndex = fileIndex + 1
Set destFile = fs.CreateTextFile("C:\path\to\output" & fileIndex & ".csv", True)
End If
Loop

最后，记得关闭文件以释放资源：
sourceFile.Close
destFile.Close

通过以上的步骤，我们就可以将超大的CSV文件拆分成多个较小的文件。其中，destFile.Line >= 10000 这行代码可以根据需要进行调整，以确定每个拆分文件的行数。同时，通过修改输出文件的路径和名称，可以指定保存拆分后数据的位置。

请注意，在使用以上代码之前，请确保已经引入了Microsoft Scripting Runtime库。这可以在VB编辑器的菜单栏中选择“工具 - 引用”来完成。