使用|将Excel导出到制表符分隔的文本文件开始每一行

时间:2013-03-11 15:11:20

标签: excel text export-to-text

我正在开发一个项目,需要非技术人员来编辑excel文件。

该文件包含2列,一列是键,另一列是值。键是一个整数,值是html。我需要一个由非技术人员生成的文本文件,其格式为:

|[key][ tab \t][value]
|[key][ tab \t][value]
|[key][ tab \t][value]

|需要因为html可能是多行的。

感谢任何帮助。

1 个答案:

答案 0 :(得分:0)

听起来你需要一点点VBA才能让它运转起来。这应该可以帮到你。

Sub writeKeysValues()
Dim i As Integer
Dim outFile As String
Dim fNum1 As Integer

'Open file
outFile = "C:\temp\outfile.txt"
fNum1 = FreeFile()
Open outFile For Output As fNum1

'loop through non-blanks
i = 1
With Worksheets("Book1")
    Do Until .Cells(i, 1).Value = ""
        Print #fNum1, "|" & .Cells(i, 1).Value & vbTab & .Cells(i, 2).Value
        i = i + 1
    Loop
End With

'All done
Close #fNum1
End Sub

注意:

  • 您必须将文件另存为启用Excel宏的电子表格(.xlsm)。
  • 它将停止阅读空白键。
  • 写入硬编码到C:\ temp \ outfile.txt。

这将不会赢得任何代码设计竞赛,但它应该让您了解如何使用管道和标签完全按照您的意愿编写它。