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