VBA线路输入与输入

Question

我想读取一个由c写的文件,其中每行由/ n分隔.我想读取该文件并将其与excel上的数据进行比较.我用过input #1, data.但我想读一行","(逗号),所以我用过Line Input #1, data.

当我用excel上的数据检查"数据"时,虽然它们是相同的,但它的说法是假的.

Activecell="KVK"
Line Input #1,data
msgbox ActiveCell=data

即使数据是KVK,也会打印错误.

感谢和提前帮助,Vamshi krishna

Dim fpath, fnum, s
fpath = Application.GetOpenFilename
fnum = FreeFile
Open fpath For Input As fnum
Range("A1").Activate

Do While Not EOF(fnum)
Line Input #fnum, s
'Input #fnum, s

MsgBox s & " = " & ActiveCell & "  "
MsgBox s = ActiveCell
ActiveCell.Offset(1, 0).Select
Loop

.txt有

12
13
14

第一栏中的数据

12
13
14

Answer 1

尝试下面的代码：

Sub InputImage()

    Dim FileNum As Integer, i As Integer
    Dim fpath As String, s As String, cellVal As String

    fpath = Application.GetOpenFilename


    FileNum = FreeFile()
    Open fpath For Input As #FileNum

    i = 1
    While Not EOF(FileNum)
        Line Input #FileNum, s    ' read in data 1 line at a time

        cellVal = CStr(Cells(i, 1).Value)

        MsgBox s & " = " & cellVal & "  "
        MsgBox s = cellVal
        ActiveCell.Offset(1, 0).Select

        i = i + 1
    Wend


End Sub

如果您在监视窗口中检查单元格(i,1).Value 的数据类型，则显示 Variant/Double。所以需要转成字符串。