| |
こんにちは。かみちゃん です。
>>Openは、変数FMNで指定されたファイルを開きますが、
>>変数FMNはフォルダ名なのではないでしょうか？
>
>フォルダ名にしています。
>ファイルは複数あるので、特定できないので。。。
>そこが間違っているのでしょうか？
はい、そこです。ファイルを開く文で、フォルダ名を指定しています。
だから、「パス名が無効です」となります。厳密には、「指定されたファイルがありません」のような感じです。
>やらなくてはいけない事に実力が追いつかず、
そこで、すでに解決済みのようですが、
指定されたフォルダ内の拡張子txtのすべてのファイルを処理するコードを私も書いてみたので、参考になれば幸いです。
Option Explicit
Sub Macro1()
Dim RowNo As Long, ColumnNo As Integer
Dim FileName As String
Dim PathName As String
Dim MyString As String
'対象とするフォルダ名（このブックと同一フォルダの場合）
PathName = ThisWorkbook.Path
'対象とするフォルダ名（指定フォルダの場合）
'PathName = "C:\My Documents"
'対象とするファイル名
FileName = Dir(PathName & "\" & "*.txt")
RowNo = 2
'指定されたフォルダ内の拡張子txtのすべてのファイルを処理する。
Do Until FileName = ""
Open PathName & FileName For Input As #1
'---開いたファイルの処理
ColumnNo = 0
Do Until EOF(1)
ColumnNo = ColumnNo + 1
Input #1, MyString
Cells(RowNo, ColumnNo).Value = MyString
Loop
RowNo = RowNo + 1
Close #1
'---開いたファイルの処理の終了
FileName = Dir()
Loop
End Sub
|
|
かみちゃん
- 04/8/6(金) 18:03 -
