excel简单vba读写TXT的交互

1.读取excel写TXT（VBA）

Sub 导出Erwin参数文件()
'
' 导出Erwin参数文件 宏
'

'Filename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Filename = "logical_physical_FIELD.txt"


Open Application.ActiveWorkbook.Path & "\" & Filename For Output As #1
CC = ActiveSheet.UsedRange.Rows.Count
CB = ActiveSheet.UsedRange.Columns.Count

For i = 1 To CC
    tss = Cells(i + 1, 4)
    If Cells(i + 1, 4).Value = vbNullString Then Exit For
    'MsgBox ("内容：" + tss)
    Print #1, tss
Next

Close #1
MsgBox ("文件保存路径:" + Application.ActiveWorkbook.Path + "\" + Filename)
    

End Sub

2.读取TXT写入excel

Sub ReadTxt()
'
' ReadTxt 宏
'

'
Dim a, b, k%, i%, j%, q%
Filename = "logical_physical_FIELD.txt"
Open Application.ActiveWorkbook.Path + "\" + Filename For Input As #1
    a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
k = UBound(a)
For i = 0 To k
   b = Split(a(i), ",")
   q = UBound(b)
   For j = 0 To q
     Worksheets("文本显示").Cells(i + 2, j + 1) = b(j)
   Next
Next
MsgBox ("文件读取完成,路径:" + Application.ActiveWorkbook.Path + "\" + Filename)
    
End Sub