ExcelVBA/テキストファイルをEXCELシートを取り込むマクロ
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
Option Explicit
Private FSO, Drv, TS, ForReading, TEST '
Private xlAPP As Application ' Applicatio...
Private strFILENAME, strREC As String ' OPENするフ...
Private lngColumn, lngLine As Long ' ...
Const cnsFILTER = "全てのファイル (*.*),*.*", cnsTIT...
'メイン
Sub ReadConfFile()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set xlAPP = Application ' Applicatio...
lngColumn = 1 ' 列の初期値
ForReading = 1 ' ファイル読...
Do Until ForReading = 2
' 「ファイルを開く」のフォームでファイル名の指定...
xlAPP.StatusBar = "読み込むファイル名を指定して...
strFILENAME = xlAPP.GetOpenFilename(FileFilter:=...
Title:=cnsTITLE)
' キャンセルされた場合は以降の処理は行なわない
If StrConv(strFILENAME, vbUpperCase) = "FALSE" T...
' 行読み取りの実行Fonction
ReadLine (lngColumn)
lngColumn = lngColumn + 1
Loop
End Sub
' ファイル読み込み関数
Function ReadLine(lngColumn)
lngLine = 1
Cells(lngLine, lngColumn).Value = strFILENAME ' 指...
Set TS = FSO.OpenTextFile(strFILENAME, 1) ' 指...
' ファイルのEOF(End of File)まで繰り返す
Do Until TS.AtEndOfStream
' 改行までをレコードとして読み込む
strREC = TS.ReadLine
' 行を加算しA列にレコード内容を表示(先頭は2行目)
lngLine = lngLine + 1
Cells(lngLine, lngColumn).Value = strREC
Loop
' 指定ファイルをCLOSE
TS.Close
End Function
#navi(../)
終了行:
#navi(../)
Option Explicit
Private FSO, Drv, TS, ForReading, TEST '
Private xlAPP As Application ' Applicatio...
Private strFILENAME, strREC As String ' OPENするフ...
Private lngColumn, lngLine As Long ' ...
Const cnsFILTER = "全てのファイル (*.*),*.*", cnsTIT...
'メイン
Sub ReadConfFile()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set xlAPP = Application ' Applicatio...
lngColumn = 1 ' 列の初期値
ForReading = 1 ' ファイル読...
Do Until ForReading = 2
' 「ファイルを開く」のフォームでファイル名の指定...
xlAPP.StatusBar = "読み込むファイル名を指定して...
strFILENAME = xlAPP.GetOpenFilename(FileFilter:=...
Title:=cnsTITLE)
' キャンセルされた場合は以降の処理は行なわない
If StrConv(strFILENAME, vbUpperCase) = "FALSE" T...
' 行読み取りの実行Fonction
ReadLine (lngColumn)
lngColumn = lngColumn + 1
Loop
End Sub
' ファイル読み込み関数
Function ReadLine(lngColumn)
lngLine = 1
Cells(lngLine, lngColumn).Value = strFILENAME ' 指...
Set TS = FSO.OpenTextFile(strFILENAME, 1) ' 指...
' ファイルのEOF(End of File)まで繰り返す
Do Until TS.AtEndOfStream
' 改行までをレコードとして読み込む
strREC = TS.ReadLine
' 行を加算しA列にレコード内容を表示(先頭は2行目)
lngLine = lngLine + 1
Cells(lngLine, lngColumn).Value = strREC
Loop
' 指定ファイルをCLOSE
TS.Close
End Function
#navi(../)
ページ名: