Excel VBA質問箱 IV

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

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


64601 / 76738 ←次へ | 前へ→

【16717】Re:指定されたフォルダ内のすべてのファイルを処理
回答  かみちゃん  - 04/8/6(金) 18:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>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

0 hits

【16694】テキストファイルのDATAをエクセルに取得させたい ゆうゆう 04/8/6(金) 12:02 質問
【16696】Re:テキストファイルのDATAをエクセルに取... Jaka 04/8/6(金) 12:39 回答
【16700】Re:テキストファイルのDATAをエクセルに取... BOTTA 04/8/6(金) 13:31 回答
【16702】Re:テキストファイルのDATAをエクセルに取... ゆうゆう 04/8/6(金) 14:19 質問
【16703】Re:テキストファイルのDATAをエクセルに取... BOTTA 04/8/6(金) 14:40 回答
【16705】Re:テキストファイルのDATAをエクセルに取... Jaka 04/8/6(金) 16:50 発言
【16707】消し忘れました。 Jaka 04/8/6(金) 16:54 発言
【16708】Re:さらに Jaka 04/8/6(金) 16:57 回答
【16709】Re:さらに ゆうゆう 04/8/6(金) 17:11 質問
【16710】Re:さらに かみちゃん 04/8/6(金) 17:18 回答
【16714】Re:さらに ゆうゆう 04/8/6(金) 17:41 質問
【16717】Re:指定されたフォルダ内のすべてのファイ... かみちゃん 04/8/6(金) 18:03 回答
【16706】Re:テキストファイルのDATAをエクセルに取... ゆうゆう 04/8/6(金) 16:50 質問
【16711】Re:テキストファイルのDATAをエクセルに取... かみちゃん 04/8/6(金) 17:24 発言
【16713】Re:テキストファイルのDATAをエクセルに取... BOTTA 04/8/6(金) 17:36 回答
【16715】Re:テキストファイルのDATAをエクセルに取... Jaka 04/8/6(金) 17:46 お礼
【16716】無事解決いたしました! ゆうゆう 04/8/6(金) 17:47 お礼

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