Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48164 / 76732

←次へ　｜　前へ→


	【33505】Re:OPENと配列について

inoue

- 06/1/13(金) 12:22 -


	引用なし

	パスワード

プロシージャ間の変数の連絡がお解りでないようですね。
とりあえず、こんな感じでしょうか。
Option Explicit
Const path1 = "C:\Documents and Settings\デスクトップ\temp"

Sub FullPath_Get()　　　　　 'ﾊﾟｽ取得用
Dim i As Integer
For i = 1 To 7
　　Call Dir_Path(path1 & "\" & CStr(i) & "\")
Next i
End Sub

Sub Dir_Path(strPath As String)
Dim strFile As String
strFile = Dir(strPath & "*.txt")
Do While strFile <> ""
　　Call File_Read(strPath & strFile)
　　strFile = Dir()
Loop
End Sub

Sub File_Read(strFullPath As String)　'ﾌｧｲﾙ読み込み用
Dim strRec As String
Dim file_No As Integer
file_No = FreeFile
Open strFullPath For Input As file_No
Do While Not EOF(file_No)
　　Line Input #file_No, strRec
　　Call File_check(strRec)　　'別ルーチンの呼び出し
Loop
Close file_No
End Sub

Sub File_check(strRec As String)　　　　'ﾌｧｲﾙの中身チェック用
Debug.Print strRec
' ここは考えて下さい
End Sub

0 hits

▼

【33435】OPENと配列について VBAビギナー 06/1/12(木) 0:39