Excel VBA質問箱 IV

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

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


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

48186 / 76732

←次へ　｜　前へ→


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

VBAビギナー - 06/1/12(木) 17:33 -


	引用なし

	パスワード

Option Explicit
Sub FullPath_Get()　　　　　 'ﾊﾟｽ取得用
Dim path1 As String
path1 = "C:\Documents and Settings\デスクトップ\temp"
Dim i As Integer, Dir_Number(6) As String
For i = 0 To 6
Select Case i
　　Case 0
　　　　　 Dir_Number(i) = "1"
　　Case 1
　　　　　Dir_Number(i) = "2"
　　Case 2
　　　　Dir_Number(i) = "3"
　　Case 3
　　　 Dir_Number(i) = "4"
　　Case 4
　　　　Dir_Number(i) = "5"
　　Case 5
　　　　Dir_Number(i) = "6"
　　Case 6
　　　　Dir_Number(i) = "7"
　　End Select
Next i
path2 = path1 & "\" & Dir_Number(i)
fullpath = path2 & "\" & "*" & .txt 'このあたりの設定の仕方がわかりません。ﾌｧｲﾙ数がわからないときなどにも対応したいです。
End Sub
Sub File_Read()　　　　　　　 'ﾌｧｲﾙ読み込み用
file_No = FreeFile
Open fullpath For Input As file_No
Do While Not EOF(file_No)
　　Line Input #file_No, season_data
　　Call File_check　　'別ルーチンの呼び出し
Loop
Close file_No
End Sub

Sub File_check()　　　　　　 'ﾌｧｲﾙの中身チェック用
Dim Us() As String, Data() As String
If InStr(season_data, ";") > 0 Then
　　user = Mid(season_data, InStr(season_data, ";") + 1, Len(season_data) - InStr(season_data, ";") - 1)
　　Us() = Split(user, ",")
　　season_data = Mid(season_data, 1, InStr(unyoudata, ";") - 1)
　　Data() = Split(season_data, ",")
End If
Else
　　Data() = Split(season_data, ",")
End Sub
力不足でこのような感じでしかできていませんが、処理をルーチンごとに
わけてメインで呼び出そうと思ってます。

0 hits

▼

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