从Excel导出到没有换行符的文本文件
我有一个只有1列的常规Excel电子表格。 我想用分隔符将它导出到一个文本文件。 我没有兴趣分离列，因为我只有一个。 我的担心是导出分隔符而不是换行符，以便我的最终结果是这样一个简单的列表“item1”，“item2”，“item3”…等等。 item1，item2和item3在同一列中，在我的Excel文件的不同行中。 是否可以直接从Excel做到这一点？ 我只能用换行符得到最后的文件。 谢谢！
您将需要使用“VBA”来遍历该列中的单元格，并将其内容打印到文件中。
如果你想快速和不雅，只要使用右边的单元格与分隔（分号，说）连接。 假设你的数据在A2中开始，把它放在B2中：
=A1 把它放在B3中，并填写：
=B2&";"&A3
你想要的文本是在B列的底部单元格。
你可能希望使用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,,"|")
更多信息： http : //www.w3schools.com/ADO/met_rs_getstring.asp
如果你不想要一个vba解决scheme并使用max。 256行，您可以复制您使用过的单元格，并将它们粘贴到A1中的不同表单中。
现在所有的值都是连续的，您可以将表格导出/保存为* .csv。 单元格值将用分号隔开，但不会被引用！ 你的文本编辑器应该能够replace; 与" ;" 。
VBA循环是更好的解决scheme。