Add line to CSV file based on userform input?

[JumboCactuar]

Hi,
I have a userform with 2 inputs (ID and Name)

When a submit button is pressed I'm wanting this data to be inserted at the last row of column A in CSV file.
So ID in A, Name in B

However if ID inputted already exists it should throw an error and not add it.

Appreciate any help

 

[rpaulson]

I do not think that excel can check a CSV file for a particular record.

what I would do is
1. import the csv into excel sheet.
2. open user form and add records as needed while checking for existing ID.
3. when finished. close excel and create a new csv file.

hth,

Ross

 

[JumboCactuar]

Can you not declare CSV as workbook?
Like

WB2 = Workbooks.open Filename:="c:\temp\data.csv"

Then do a search in WB2.Sheets("Sheet1") for the ID input

 

[JumboCactuar]

ye this works:

Private Sub CommandButton1_Click()


Dim File1 As String
Dim WB2 As Workbook


File1 = "c:\temp\data.CSV"
Set WB2 = Workbooks.Open(File1)


UserName = TextBox1.Value
FindString = TextBox2.Value
    
With WB2.Sheets("Sheet1").Range("A:A")
                Set Rng = .Find(What:=FindString, _
                                After:=.Cells(.Cells.Count), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlNext, _
                                MatchCase:=False)
                If Not Rng Is Nothing Then
                  MsgBox (FindString & " " & "Already Exists")
                Else
                    WB2.Sheets("Sheet1").Range("a1000").End(xlUp).Offset(1, 0).Value = FindString
                    WB2.Sheets("Sheet1").Range("b1000").End(xlUp).Offset(1, 0).Value = UserName
                    WB2.Close savechanges:=True
                End If
            End With
    
End Sub