從Excel導出到沒有換行符的文本文件

我有一個只有1列的常規Excel電子表格。我想用分隔符將它導出到文本文件。我沒有興趣分離列，因爲我只有一個。我擔心的是使用分隔符而不是換行符導出，這樣我的最終結果就是這樣一個簡單的列表，如「item1」，「item2」，「item3」...等等。 item1，item2和item3位於我的Excel文件的不同行中的同一列中。是否有可能直接從Excel中執行此操作？我只能用換行符得到最終文件。謝謝！從Excel導出到沒有換行符的文本文件

來源

2009-10-27 Marcos Buarque

您將需要使用「VBA」來遍歷該列中的單元格並將其內容打印到文件中。

來源

2009-10-27 22:06:50 EToreo

如果您不想使用vba解決方案並使用max。 256行，您可以複製您使用過的單元格並將它們粘貼到A1中的不同表單中。

現在所有的值都在一行中，您可以將工作表導出/保存爲* .csv。單元格值將用分號隔開，但不會引用！你的文字代碼應該能夠用" ;"代替;。

VBA循環是更好的解決方案。

來源

2009-10-27 22:41:34 marg

您可能希望使用ADO和GetString。

Dim cn As Object 
Dim rs As Object 

strFile = Workbooks(1).FullName 
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _ 
    & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";" 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 

cn.Open strCon 

strSQL = "SELECT F1 FROM [Sheet1$]" 

rs.Open strSQL, cn 

str = rs.GetString(2,,"|")

來源

2009-10-27 23:03:12 Fionnuala

如果你想快速和不雅，只是使用的細胞與分離來連接正確（分號，說的）。假設你的數據在開始A2，把這個在B2：

=A1

，並把這個在B3和向下填充：

=B2&";"&A3

你想要的是在B柱的底部單元格的文本。

來源

2010-03-02 02:25:00 rosyatrandom

從Excel導出到沒有換行符的文本文件

回答

相關問題