| |
▼森本家 さん：
こんにちは
この処理コードを書く上で、森本家さんが、どこまで書けて、どこが書けないのか不明ですけど、
たとえば、以下に、使えそうなコード部品をいくつか。
これでＯＫでしょうか？
Sub Sample()
Dim c As Range
Dim ck As String
Dim myPath As String
Dim myFile As String
Dim x As Variant
'取込シートのA列にあるリストの値を抽出するサンプル
With Sheets("取込")
For Each c In .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
MsgBox c.Value
Next
End With
'指定フォルダに指定ファイルがあるかどうかをチェックするサンプル
myPath = "C:\TEST\"
myname = "0100.txt"
ck = Dir(myPath & myname)
If Len(ck) = 0 Then
MsgBox myname & "がありません"
Else
MsgBox myname & "があります"
End If
'指定フォルダ内のtxtファイルが取込シートのA列に規定されているかどうかを判定するサンプル
myPath = "C:\TEST\"
ck = Dir(myPath & "*txt")
Do While Len(ck) > 0
x = Application.Match(ck, Sheets("取込").Columns("A"), 0)
If IsNumeric(x) Then
MsgBox ck & "は指定されています"
Else
MsgBox ck & "は指定されていません"
End If
ck = Dir()
Loop
End Sub
|
|
UO3
- 12/7/27(金) 16:42 -
