複製文件並以另一種格式保存

-1

我正在將文件從sample.csv複製到new.csv。我複製後，我需要打開new.csv並將其保存爲new.xls與工作表名稱「Newsheet」。我複製成功，但無法繼續打開/保存它。複製文件並以另一種格式保存

這裏是我的代碼：

Dim ioFile As New System.IO.StreamReader("C:\sample.csv")  
    Dim ioLine As String 
    Dim ioLines As String  
    ioLine = ioFile.ReadLine  
    ioLines = "ID,Name,Number,Amount" 
    ioLines &= vbCrLf & ioLine 
    While Not ioLine = ""   
     ioLine = ioFile.ReadLine   
     ioLines = ioLines & vbCrLf & ioLine  
    End While  
    Dim ioWriter As New System.IO.StreamWriter("C:\new.csv")  
    ioWriter.WriteLine(ioLines)  
    ioFile.Close()  
    ioWriter.Close()

來源

2011-06-10 Ram

你知道還有更多的xls/xlsx文件比對嗎？你不能只複製csv並揮動魔杖\ * poof \ *就變成xls ...你要麼需要Excel的自動化，要麼就是一個能夠編寫Excel文件的庫，出於與Marc提供的相同的原因 – 2011-06-10 17:25:45

-1 Gravell。 – Predator 2011-06-11 08:28:52

如果您需要導入CSV爲Exel公司，你可以使用Excel，您可以使用如下因素代碼，當然修改。正如你所看到的，我剛剛錄製了一個宏。不過，我用宏記錄給我一個更復雜的辦公自動化任務存根。只要你有Excel庫，你需要做的就是添加一個引用來打開應用程序，然後從下面提取你需要的代碼。

Sub Macro1() 
' 
' Macro1 Macro 
' 

' 
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;H:\My Documents\InCps.TXT" _ 
     , Destination:=Range("$A$1")) 
     .Name = "InCps" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .TextFilePromptOnRefresh = False 
     .TextFilePlatform = 437 
     .TextFileStartRow = 1 
     .TextFileParseType = xlDelimited 
     .TextFileTextQualifier = xlTextQualifierDoubleQuote 
     .TextFileConsecutiveDelimiter = False 
     .TextFileTabDelimiter = False 
     .TextFileSemicolonDelimiter = False 
     .TextFileCommaDelimiter = True 
     .TextFileSpaceDelimiter = False 
     .TextFileColumnDataTypes = Array(1) 
     .TextFileTrailingMinusNumbers = True 
     .Refresh BackgroundQuery:=False 
    End With 
End Sub

來源

2011-06-10 17:44:13 rerun

從基本文本轉換爲Excel需要比文件擴展名更改多一點的工作。

我想看看NPOI庫，它允許您輕鬆創建Excel文檔（以及其他類型）並且是開源的。它很容易使用，您應該能夠快速完成工作解決方案。

來源

2011-06-10 18:01:40

複製文件並以另一種格式保存

回答

相關問題