VBA Line Input vs. Input

Question

Ich möchte eine Datei lesen, die mit c geschrieben ist, wobei jede Zeile durch/n getrennt ist. Ich möchte diese Datei lesen und sie mit Excel-Daten vergleichen. Ich verwendete input #1, data. Aber ich möchte eine Zeile mit "," (Komma) lesen, also habe ich Line Input #1, data verwendet.

Wenn ich überprüfe, dass "Daten" mit Daten auf Excel, obwohl sie gleich sind, sagt es falsch.

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

druckt falsch, auch wenn Daten KVK sind.

Danke und Grüße für im Voraus zu helfen, 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 hat

12 
13 
14 

Daten in der ersten Spalte

12 
13 
14 

Answer 1

unten Code Versuchen:

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 

Wenn Sie das Überwachungsfenster einchecken, wird der Datentyp der Zelle (i, 1) angezeigt. Der Wert zeigt Variant/Double. Daher muss in eine Zeichenfolge konvertiert werden.

Answer 2

Oder die Textstream in der Scripting-Bibliothek verwenden, ist es viel besser.

Und bitte schließen Sie die Datei, wenn Sie damit fertig sind, müssen Sie die Art von Person sein, die die Milch nicht zurück in den Kühlschrank stellt, wenn Sie damit fertig sind und es nur für jeden verwöhnt.