6

各行が /n で区切られている c によって書かれたファイルを読みたいと思います。そのファイルを読み込んでエクセルのデータと比較したい。使用し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
4

2 に答える 2

4

以下のコードを試してください：

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

ウォッチ ウィンドウで確認すると、cell(i,1).Value のデータ型は Variant/Double を示しています。そのため、文字列に変換する必要があります。

ここに画像の説明を入力

于 2013-03-18T10:42:42.727 に答える
0

または、Scripting ライブラリで TextStream を使用すると、はるかに優れています。

そして、使い終わったらファイルを閉じてください。あなたは、使い終わった牛乳を冷蔵庫に戻さず、みんなのために台無しにするタイプの人に違いありません。

于 2013-03-20T17:35:52.023 に答える