[[20170108224050]]　『csvファイルから必要な情報をコピーし別のsheetへ』（vo）　ページの最後に飛ぶ

『csvファイルから必要な情報をコピーし別のsheetへコピー』（vo）

こんばんは！教えてください！

csvファイルのT列に C5 という文字が入っていたら必ずV列の同じ行に check という文字が入っていなければならないとします。
(逆にV列に check と入っていたらT列に C5 と入っていなければならない)

片方にしか入っていない行を発見したらその行をコピーし、別のsheetに貼り付けを行うとします。

csvをActiveWorkbookとして書いたマクロは作れたのですが、
これをcsvにした場合の修正の仕方がわかりません。

ググったらinput as #1とか何やら難しそうな言葉出てきて、怖くなってまずはここで聞いてみようと思いました。

見てください。

Sub check()

Dim source As Worksheet

Set source = ActiveWorkbook.Worksheets(1)
Set thiswb = ThisWorkbook.Worksheets(2)
i = 0
p = 2

Do While source.Cells(1 + i, 20).Value <> ""

    If source.Cells(1 + i, 20).Value Like "*C5*" Then
        If Not source.Cells(1 + i, 22).Value Like "*check*" Then
            Cells(1 + i, 20).EntireRow.Copy
            thiswb.Cells(p, 1).PasteSpecial

            p = p + 1

        End If
    End If

    If Not source.Cells(1 + i, 20).Value Like "*C5*" Then
        If source.Cells(1 + i, 22).Value Like "*check*" Then
            Cells(1 + i, 20).EntireRow.Copy
            thiswb.Cells(p, 1).PasteSpecial

            p = p + 1

        End If
    End If

    i = i + 1

Loop

End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

＞これをcsvにした場合の修正の仕方がわかりません。
意味がわかりません。
CSVを読み込めば、それはワークシートじゃないですか。
もう出来ているんじゃないですか？（コードは見ていないけれど）

（γ） 2017/01/08(日) 23:20

γさん

ありがとうございます！
＞CSVを読み込めば、それはワークシート
この言葉をよく考えたらわかりました。

これを冒頭に足しました。すみませんでした！

    Workbooks.Open Filename:= _
        "C:\Users\test.csv", _
        ReadOnly:=True

Dim source As Worksheet

Set source = Worksheets("test")

（vo） 2017/01/09(月) 00:04

コメント返信：

[ 一覧(最新更新順) ]

[[20170108224050]] 『csvファイルから必要な情報をコピーし別のsheetへ』（vo） ページの最後に飛ぶ

[[20170108224050]]　『csvファイルから必要な情報をコピーし別のsheetへ』（vo）　ページの最後に飛ぶ