|
▼小僧 さん、ちくたくさん:
過去ログや皆さんの返信を参考にして比較するファイルをそれぞれ指定して
比較開始するプログラム
Sub 比較()
Dim ファイル1 As String
Dim ファイル2 As String
Dim FName1 As Variant
Dim FName2 As Variant
Res = MsgBox("比較用の2つのファイルを選びます。 " & vbCr & _
"続行しますか?", vbYesNo + vbQuestion, "確認")
FName1 = Application.GetOpenFilename(FileFilter:="CSVファイル (*.csv), *.csv")
MsgBox FName1 & "を選択しました。 " & vbCr & _
"比較対象するファイルを選択してください。 ", , "対象選択"
FName2 = Application.GetOpenFilename(FileFilter:="CSVファイル (*.csv), *.csv")
If FName2 = False Then
MsgBox "中止します。", , "中止"
Exit Sub
Else
MsgBox FName1 & "と " & vbCr & _
FName2 & "の" & vbCr & _
"データを比較します。", vbInformation, "比較開始"
Open FName1 For Input As #1
Open FName2 For Input As #2
Do Until EOF(1) Or EOF(2)
Myファイル1 = Input(1, #1)
Myファイル2 = Input(1, #2)
n = n + 1
If Myファイル1 <> Myファイル2 Then Exit Do
Loop
If EOF(1) And EOF(2) Then
MsgBox "2つのデータ一致確認。", , "終了"
Else
MsgBox "2つのデータ不一致。", , "終了"
End If
Close #1
Close #2
End If
End Sub
を考えたのですがデータ不一致の場合には、C:\tmp\差分.csvに
ファイル1の該当する行を表示したいのですが、差分表示のための
マクロの書き方がよくわかりません。ご教授お願いします。
|
|