Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57409 / 76732 ←次へ | 前へ→

【24060】ファイルをまたいでセルをコピーする。
質問  sakura  - 05/4/11(月) 14:35 -

引用なし
パスワード
   いつも大変貴重なアドバイスを頂きましてありがとうございます。

さて、今回質問させていただくのは列と列を比較して重複していない情報を
書き込みたいのですが・・・


読み込み元ファイル
テキスト名:テキスト.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列の最終に追加した
いのです。

比較して最終行に書き込みマクロってどんな感じになるのかアドバイスを
いただけないでしょうか?

最終行は何行目になるかわからないので最終行のセル番地も取得するマクロ
であるととても助かります。

0 hits

【24060】ファイルをまたいでセルをコピーする。 sakura 05/4/11(月) 14:35 質問
【24064】Re:ファイルをまたいでセルをコピーする。 Kein 05/4/11(月) 15:19 回答
【24065】Re:ファイルをまたいでセルをコピーする。 Kein 05/4/11(月) 15:22 発言
【24092】Re:ファイルをまたいでセルをコピーする。 sakura 05/4/12(火) 11:53 質問
【24102】Re:ファイルをまたいでセルをコピーする。 Kein 05/4/12(火) 13:16 発言
【24104】Re:ファイルをまたいでセルをコピーする。 sakura 05/4/12(火) 13:41 質問
【24115】Re:ファイルをまたいでセルをコピーする。 Kein 05/4/12(火) 14:30 回答

57409 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free