Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Streamwriter正在截断VB.NET中的Excel导出数据_Vb.net_Excel_Filestream - Fatal编程技术网

Streamwriter正在截断VB.NET中的Excel导出数据

Streamwriter正在截断VB.NET中的Excel导出数据,vb.net,excel,filestream,Vb.net,Excel,Filestream,我正在使用streamwriter和文件流编写Excel工作表。对于小数据,它可以正常工作,但对于大型Excel文件,它可以截断数据。这是我的密码: 'Increment unlimited Using (objStreamWriter) For Each info As DataFileInfo In list If ((Not vendor.ExportByDivision And Not vendor.ExportBySubDivision) Or ((vendor.Ex

我正在使用
streamwriter
和文件流编写Excel工作表。对于小数据,它可以正常工作,但对于大型Excel文件,它可以截断数据。这是我的密码:

'Increment unlimited
Using (objStreamWriter)
   For Each info As DataFileInfo In list
      If ((Not vendor.ExportByDivision And Not vendor.ExportBySubDivision) Or ((vendor.ExportByDivision And prevDivisionID = info.DivisionID) Or blnFirstRecord) Or ((vendor.ExportBySubDivision And prevSubDivisionID = info.SubDivisionID) Or blnFirstRecord)) Then
         objStreamWriter.WriteLine(InsertExportInfo(companyID, info, delimiter, vendor.DetailInvoiceExport))
         blnFirstRe cord = False
      Else 
         FileNumber = FileNumber + 1
         objStreamWriter.Close()
         objFileStream.Close()
         fileName = String.Format("{0}\{1}_{2}.{3}", Me.TempPath, vendor.ID, FileNumber, CType(vendor.DataExportType, VendorInfo.VendorDataExportType).ToString().ToLower())
         objFileStream = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
         'If the company contains unicode text
         If IsUnicodeCompany(companyID) Then
            objStreamWriter = New StreamWriter(objFileStream, System.Text.Encoding.Unicode)
         Else
            objStreamWriter = New StreamWriter(objFileStream)
         End If
         If vendor.DataExportType = VendorInfo.VendorDataExportType.XLS Then
             If vendor.DetailInvoiceExport = True Then
               objStreamWriter.WriteLine(String.Format(Me.GetDataExcelExportDetailHeader(companyID), delimiter))
             Else
               objStreamWriter.WriteLine(String.Format(Me.GetDataExcelExportHeader(companyID), delimiter))
             End If
         End If
         objStreamWriter.WriteLine(InsertExportInfo(companyID, info, delimiter, vendor.DetailInvoiceExport))
      End If
      prevDivisionID = info.DivisionID
      prevSubDivisionID = info.SubDivisionID
      objStreamWriter.Flush()
      objFileStream.Flush()
   Next
End Using
objStreamWriter.Close()
objFileStream.Close()

大数据是什么意思?Excel 2003的行数限制为65536行。这可能是问题吗?不,行数不是问题,因为数据字符串包含双引号,例如“从4.17.13重新安排”。产品不错,会员喜欢价格