とあるシートのB列の値かつC列の値と、とあるフォルダ内にあるファイルの名称が部分一致したときに、そのファイルを移動先のフォルダへと移動させるVBAを教えていただけないでしょうか?
現在、とあるシートのB列の値と、とあるフォルダ内にあるファイルの名称が部分一致した際に、そのファイルを移動先のフォルダへと移動させるVBAは作成することができました（以下参照）
しかし、二つの条件（B列の値かつC列の値（AND?））が部分一致したときのやり方が分からなく困っております、VBA初心者のためどうか教えていただけないでしょうか?
Sub 分別()
'移動元のフォルダの設定
Const xFrm As String = "C:\before\"'移動先のフォルダの設定
Const xTo As String = "C:\after\"'アクティブになっているシートのB列の値とC:\before内のファイルの名称が部分一致した時、そのファイルをC:\afterへと移動する
Dim i As Long, xFile As String
With ActiveSheet
For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
With .Cells(i, 2)
xFile = Dir(xFrm &"*"&.Value &"*")
Do While xFile <>""Name xFrm &xFile As xTo &xFile
xFile = Dir()
Loop
End With
Next i
End With
End Sub
VBA初心者です。
やりたいことは以下の通りです。
カンマ区切りの文字が記載された.txtデータをExcelファイルに取り込みたいと思っています。
(1)自動でフォルダを開いて手動で任意のテキストデータを選ぶ
(2)データを文字
化けなくカンマ区切りでセルごとにExcelに表示
(3)元データの.txtはファイルによって空白行が1行のときもあれば2行のときもありまちまちなので自動で空白行をスキップして呼び込みたい
(4)呼び込んだ.txtの内容を元に読み込先のExcelに関数（I列に来るべき.txtのデータを参照してJ列「収支」K列「勝率」が出る）が仕込んであるが、ファイルによってデータの行数が違うため最終行を取得したい
特定の.txtファイルではなくこちらで選べるようにしたいので以下に示したソースの通りGetOpenFilenameで自動でファイルを開いて手動で選べるようにしています。
その際、一部別の漢字に変換されたり、カンマがひとつだけ・に代わっていたり文字化けがあります。
呼び込みたい.txtは空白行が1行あったり、2行あったりするのでそこをスキップして純粋に文字のある行から取り込みたい。読み込み先のExcelには事前に項目を作っているため、空白行をスキップできれば自動的に項目の下にデータが表示されるようになっています。※予め空白のないテキストを呼び込んでテストすると（文字化けは別として）上手くいきました。
(4)は難しくてもせめて(1)～(3)までは自力でできないかと調べていますがうまくいきません。UTF-8をANTI形式に保存しても直ったり直らなかったり、またVBAのADODB.Streamオブジェクト（Microsoft ActiveX Data Objects x.x Library）を試そうとするもファイルパスやターゲットで特定のファイルを指定する部分があり、それを指定しないで使うにはどうすればいいのかがわかりません。
ご査収いただけましたら嬉しいです。
下記はネットのソースを一部直して作成。これを利用してできないでしょうか。
Option Explicit
'===================================================================================================
Private Const g_cnsTitle As String = "テキストファイル読み込み"
Private Const g_cnsFilter As String = "全てのファイル (*.*),*.*"
Sub Txt読み込み()
Dim varFileName As Variant
Dim intFree As Integer
Dim strRec As String
Dim strSplit() As String
Dim i As Long, j As Long
varFileName = Application.GetOpenFilename(FileFilter:="txtファイル(*.txt),*.txt", _
Title:="txtファイルの選択")
If varFileName = False Then
Exit Sub
End If
intFree = FreeFile '空番号を取得
Open varFileName For Input As #intFree 'txtファイルをオープン
i = 0
Do Until EOF(intFree)
Line Input #intFree, strRec '1行読み込み
i = i + 1
strSplit = Split(strRec, ",") 'カンマ区切りで配列へ
For j = 0 To UBound(strSplit)
Cells(i, j + 1) = strSplit(j)
Next
'配列をそのまま入れる方法も、ただし全て文字列として入力される
'Range(Cells(i, 1), Cells(i, UBound(strSplit) + 1)) = strSplit
Loop
Close #intFree
End Sub
