TOP > Up > Today

マクロでファイルがひらけれません。

Date:  Mon, 19 Sep 2005 11:11:55 +0900
From:  no@ann.co.jp
Subject:  [pasml 139921] マクロでファイルがひらけれません。
To:  pasml@ann.co.jp
Message-Id:  <200509190211.j8J2Btu10821@ns.pas2.jp>
X-Mail-Count: 139921

お名前   : イッチー　困りごと掲示板から
URL      : 
質問URL: http://pasokoma.jp/?num=293101&ope=v
ツリー: http://pasokoma.jp/cgi/tree.cgi?num=293101
--
メーカー名：NEC 日本電気 
ＯＳ名：WindowsXp HomeEdition 
パソコン名：VALUESTAR PC-VＬ5002Ｄ
--
ファイルからデータを読み込むマクロを作成したのですが、
ファイルが読み込めません。ファイル名が悪いのか？
マクロの作成の仕方が悪いのかわからないのでどなたか解決法を
教えてください。お願いします。
Sub sample01_34()
 Dim myfilename As String, gilenum As Integer, buf As String, i As Long
 
 myfilename = Application.GetOpenFilename(filefilter:=&quot;テキストファイル,*.txt&quot;)
 
 If myfilename = &quot;false&quot; Then Exit Sub
 
 filemum = freeefile
 
 Open myfilename For Input As filenum
 
 Do Until EOF(filenum)
 
  Line Input #filenum, buf
  
  ActiveCell.Offset(i, 0) = buf
  
  i = i + 1
  
  Loop
  
  Close filenum
End Sub
です。
--
== 掲示板ＵＲＬ： http://pasokoma.jp/ ==
   配信の停止： http://pasokoma.jp/taikai.shtml
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today