导入控制点

本文主要是介绍导入控制点，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Sub 导入控制点()
    Dim Filename As Variant, myText, mArr() As String
    Dim i, y As Long, j As Long
    Filename = ThisWorkbook.Path & "\kz.txt"      '指定文件字符串
    For y = 1 To 300
     
     If Cells(y, 6) = "K1" Then
    
    j = 1
    With Worksheets("sheet4")
     
        Open Filename For Input As #1
         Do While Not EOF(1)
            
        Line Input #1, myText    ' 读入一行数据并将其赋予某变量
      
            mArr = Split(myText, ",")    '按逗号分开这个字符，循环赋值给单元格
            
            For i = 1 To UBound(mArr)
                .Cells(j, i + 7) = mArr(i)
            Next i
            j = j + 1
        Loop
        Close #1    ' 关闭文件。
    End With
    End If
    Next
End Sub

这篇关于导入控制点的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---