将xls文件转换为csv，但添加了额外的行吗？

所以，我试图将一些xls文件转换为csv，并且除了一部分以外，一切都很好。 Excel interop中的SaveAs函数似乎导出所有行（包括空白行）。使用记事本查看文件时，我可以看到这些行。（我期望的所有行，15行和两个单引号，然后剩下的只是空白）。然后，我有一个存储过程，将此csv并导入到所需的表（这适用于已手动转换为csv的电子表格（例如打开，文件 - >另存为等）将xls文件转换为csv，但添加了额外的行吗？

这是行代码我使用了我在我的代码SavesAs。我已经试过xlCSV，xlCSVWindows和xlCSVDOS我的文件格式，但他们都做同样的事情。

wb.SaveAs(aFiles(i).Replace(".xls", "B.csv"), Excel.XlFileFormat.xlCSVMSDOS, , , , False) 'saves a copy of the spreadsheet as a csv

那么，有没有一些额外的步骤/设置我需要做的不是让额外的行显示在csv中吗？

请注意，如果我打开这个新创建的csv，然后单击另存为，然后选择csv，m y程序再次喜欢它。

来源

2012-10-24 APrough

当您从工作簿创建CSV时，将根据您的UsedRange生成CSV。由于UsedRange可以简单地通过将格式应用于单元格（没有任何内容）进行扩展，这就是为什么你会得到空行。（由于此问题，您也可以获得空白列。）

当您打开生成的CSV时，由于没有内容或格式设置，所有这些无内容单元格不再有助于UsedRange（因为只有值保存在的CSV）。

您可以通过在保存之前更新您使用的范围来更正此问题。下面是我在VBA中写的一个简短的子代码，它可以做到这一点。这段代码会让你失去所有格式，但我认为这并不重要，因为无论如何你都要保存为CSV。我将离开转换到VB.Net由你决定。

Sub CorrectUsedRange() 
    Dim values 
    Dim usedRangeAddress As String 
    Dim r As Range 
    'Get UsedRange Address prior to deleting Range 
    usedRangeAddress = ActiveSheet.UsedRange.Address 
    'Store values of cells to array. 
    values = ActiveSheet.UsedRange 
    'Delete all cells in the sheet 
    ActiveSheet.Cells.Delete 
    'Restore values to their initial locations 
    Range(usedRangeAddress) = values 
End Sub

来源

2012-10-24 15:29:20

轻微的修改，并学习如何处理日期问题，这完美的工作。谢谢！ – APrough