|
うーむ・・これだけヒントを出しているのだから、少しぐらい応用を効かせて
自分で組むことが出来ませんか ? 正解コードをあっさり提示するのは、あなたの
学習意欲が失われてしまうような気がして二のを踏んでしまうのですが、私の
レスはいつもサンプルコードを示すスタイルなので、いちおう書いておきます。
Sub Test_Read()
Dim Buf As String, StV As String, MyF As String
ChDir "C:\Documents and Settings\User\My Documents"
MyF = Application.GetOpenFileName("テキストファイル(*.txt),*.txt")
If MyF = "False" Then Exit Sub
Open MyF For Input Access Read As #1
Do Until EOF(1)
Buf = ""
Input #1, Buf
StV = StV & Buf & ","
Loop
Close #1
ChDir Application.DefaultFilePath
MsgBox Left$(StV, Len(StV) - 1)
End Sub
|
|