Excel VBA質問箱 IV

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

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


48164 / 76732 ←次へ | 前へ→

【33505】Re:OPENと配列について
発言  inoue E-MAILWEB  - 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 質問
【33447】Re:OPENと配列について inoue 06/1/12(木) 10:56 発言
【33483】Re:OPENと配列について VBAビギナー 06/1/12(木) 17:33 質問
【33493】Re:OPENと配列について inoue 06/1/12(木) 21:51 発言
【33498】Re:OPENと配列について VBAビギナー 06/1/13(金) 9:28 質問
【33505】Re:OPENと配列について inoue 06/1/13(金) 12:22 発言

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