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

◇-?マクロでファイルがひらけれません。-イッチー(2005/09/19-11:11)No.293101
　┗?!Re:マクロでファイルがひらけれ�...-test(2005/09/19-13:28)No.293123

293101	マクロでファイルがひらけれません。	イッチー	2005/09/19-11:11
メーカー名：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:="テキストファイル,*.txt") If myfilename = "false" 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 です。

293123	Re:マクロでファイルがひらけれません。	test	2005/09/19-13:28
記事番号293101へのコメント主にスペルミスです。よく見ましょう。 >Dim myfilename As String, gilenum As Integer, buf As String, i As Long gilenum -> finenum >filemum = freeefile filemum -> filenum freeefile -> FreeFile()

パソコントラブル解決・過去ログTOP > ログTOP > マクロでファイルがひらけれません。

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言