Question

VB怎么把excel内容导出成这样的txt文件内容

我想把excel里的内容显示成这样的txt内容，而且符号什么都要有~！

Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明对象变量
Dim H As Long
Dim AStr As String

Set xlsApp = Excel.Application '实例化对象
xlsApp.Visible = False '使Excel隐藏不可见
xlsApp.Workbooks.Open ("e:\源文件.xls")
AStr = ""
H = 1 '假设数据从第一行开始，如果第一行是列名称，就改为从2开始
Do While xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(H)).Value <> ""
AStr = AStr & xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(H)).Value & _
Range("b" & CStr(H)) & Range("c" & CStr(H)) & Range("d" & CStr(H)) & Range("e" & CStr(H)) & _
Range("f" & CStr(H)) & vbCrLf
H = H + 1
Loop
Text1.Text = AStr
xlsApp.ActiveWorkbook.Close savechanges:=True '关闭活动工作簿同时保存对它的更改。
xlsApp.Quit '关闭EXCELL
Set xlsApp = Nothing

End Sub





Answer 1

如果只是这一个文件可以直接用公式做出来，另存为txt即可。
如果是很多文件需要转换，就要写个小程序，代工，点名字可以查联系方式。

Answer 2

这个应该容易做到！