|
はじめまして
同フォルダ上にdata.csvというファイルはありまして
A,B,C,
名前,住所,年齢
といった形のデータがあります
Sub データ読み込み()
Dim Name As String
Dim Address As String
Dim Age As String
Dim strInFileName As String
strInFileName = ThisWorkbook.Path & "\data.csv"
'ファイルの存在チェック
If Dir(strInFileName) = "" Then
MsgBox strInFileName & "が見つかりません"
Exit Sub
End If
Name = InputBox(Prompt:="名前Lを入力してください" )
Address = InputBox(Prompt:="住所を入力してください")
Age = InputBox(Prompt:="年齢を入力してください" )
Open strInFileName For Append As #1
Print #1, Name, Address
Close #1
End Sub
というマクロでNameとAddress入力時にそれぞれdata.csvのデータ内容を検索し重複が無い場合はdata.csvに書き込み重複データがあった場合は警告メッセージを出し、もう一度入力させたいです。
補足:NameとAddressの入力毎にata.csvのデータ内容を検索するようにさせたい
よろしくお願い致します。
|
|