|
いつも大変貴重なアドバイスを頂きましてありがとうございます。
さて、今回質問させていただくのは列と列を比較して重複していない情報を
書き込みたいのですが・・・
例
読み込み元ファイル
テキスト名:テキスト.txt
書き込み先ファイル
book名:book.xls
Sub Sample()
Dim buf1 As String
Dim buf2 As String
ChDir "C:\"
buf1 = Application.GetOpenFilename("*.txt,*.txt")
If buf1 = "False" Then Exit Sub
Workbooks.OpenText Filename:=buf1, _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1))
' TrailingMinusNumbers:=True
Set ObjSht1 = ActiveWorkbook.ActiveSheet
ChDir "C:\"
buf2 = Application.GetOpenFilename("*.xls,*.xls")
If buf2 = "False" Then Exit Sub
Workbooks.Open buf2
Set ObjBook1 = ActiveWorkbook
とこのような形でbuf1にテキスト.txtをbuf2にbook.xlsを読み込ませます。
このことで、テキスト.txtのA列の2〜65536とbook.xlsのA列の2〜65536
までを比較して、book.xlsにない項目をbook.xlsのA列の最終に追加した
いのです。
比較して最終行に書き込みマクロってどんな感じになるのかアドバイスを
いただけないでしょうか?
最終行は何行目になるかわからないので最終行のセル番地も取得するマクロ
であるととても助かります。
|
|