| |
▼inoue さん：ありがとうございます！！
>いいえ、テキストファイルなのです。
>試しに「メモ帳」で開いてみて下さい。
上記確かに開きました！！
>>そのようなファイルを
>>読込むVBAではどう記載すべきか
>>分かりません
>>教えて頂けないでしょうか？
Option Explicit
' テキストファイル読み込みサンプル
Sub READ_TextFile()
Const cnsTITLE = "テキストファイル読み込み処理"
Const cnsFILTER = "全てのファイル (*.*),*.*"
Dim xlAPP As Application ' Applicationオブジェクト
Dim intFF As Integer ' FreeFile値
Dim strFILENAME As String ' OPENするファイル名(フルパス)
Dim strREC As String ' 読み込んだレコード内容
Dim GYO As Long ' 収容するセルの行
Dim lngREC As Long ' レコード件数カウンタ
' Applicationオブジェクト取得
Set xlAPP = Application ' 1.
' 「ファイルを開く」のフォームでファイル名の指定を受ける
xlAPP.StatusBar = "読み込むファイル名を指定して下さい。"
strFILENAME = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, _
Title:=cnsTITLE) ' 2.
' キャンセルされた場合は以降の処理は行なわない
If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then Exit Sub ' 3.
' FreeFile値の取得(以降この値で入出力する)
intFF = FreeFile ' 4.
' 指定ファイルをOPEN(入力モード)
Open strFILENAME For Input As #intFF ' 5.
GYO = 1
' ファイルのEOF(End of File)まで繰り返す
Do Until EOF(intFF) ' 6.
' レコード件数カウンタの加算
lngREC = lngREC + 1
xlAPP.StatusBar = "読み込み中です．．．．(" & lngREC & "レコード目)"
' 改行までをレコードとして読み込む
Line Input #intFF, strREC ' 7.
' 行を加算しA列にレコード内容を表示(先頭は2行目)
GYO = GYO + 1
Cells(GYO, 1).Value = strREC ' 8.
Loop
' 指定ファイルをCLOSE
Close #intFF ' 9.
xlAPP.StatusBar = False
' 終了の表示
MsgBox "ファイル読み込みが完了しました。" & vbCr & _
"レコード件数=" & lngREC & "件", vbInformation, cnsTITLE
End Sub
上記 色々試してみたのですが
要らない部分を省きながら・・
そしたら 動かず
最初の ページに取り込む際に
通常タブ・カンマの選択と同時にプレビューが出来ると思うのですが
それを見ながら判断しています。
その部分が省かれていて＋A列に全て入ってしまい
困っています・・
何枚かを次々開き フォームを合わせたく
どうか ご伝授お願い致します
|
|
初心
- 06/1/26(木) 8:01 -
