VBA按行读取TXT文本文件
-
文件格式
-
窗口上添加一个文本控件 TextBox1
属性设置
MultiLine :True
ScrollBars :3 - fmScrollBarsBoth -
代码如下:
Private Sub CommandButton1_Click()
Dim strTxt() As String
Dim strRight() As String
Dim strLeft() As String
Dim n As Integer
Dim strTemp As String
Dim i As Integer, x As Integer, y As Integer
TextBox1Text = ""
Open System.FixPath(Alm_Path) & "\&