投稿/コメントを表示します。

エクセルVBA外部連携講座
テキストファイルの操作について

たかちゃんさんの投稿

(投稿ID: 4939)

外部連携講座に入ってから、一気にレベルが上がりました。
頭から煙が出そうですが、少しづつ仕組みを思い浮かべながら、
ノートに書いてみたりしながら、少しづづ進んでいます。


今使えるPCがMacしかないので、お手本通りに行きませんが、
どうしてもMacでも動かしてみたいと調べて、本日やっと
成功しました。とても嬉しかったので、近況報告しました。
（Excel for Mac 2016で動作確認済み）
Sub ReadTextFile()

    Dim FileNum As Long 'ファイルを開く為に使う番号を格納する
    Dim DataLine As String 'ファイル内の文字を一時的に格納
    Dim MYPath As String 'ファイルのパスを格納

	'デスクトップへのパスを設定
    MYPath = MacScript("return (path to desktop folder) as String")
	'デスクトップ上にある、対象のTextファイルのパスを設定
    MYPath = MYPath & "textfile1.txt"

	'FreeFile関数にてファイルを開くための番号を取得
    FileNum = FreeFile()

	'Open ファイル名 For 開き方 As #ファイル番号　Input（読み込み）で開くの意味
    Open MYPath For Input As #FileNum

    'ファイルがEOF(ファイルの終端)になるまでループをする
    Do Until EOF(FileNum)
		'Line Input #番号, 変数 (1行づつ読み込む)
        Line Input #FileNum, DataLine
		
        Debug.Print DataLine

    Loop
    'ファイルを閉じる
    Close #FileNum
End Sub

参考サイト：
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_word-mso_mac-mso_mac2016/read-text-file-line-by-line-using-vba-on-mac/7173f9dd-622d-432a-a960-816f0e734e96
https://www.petitmonte.com/excel/excel_vba_freefile.html
2020/11/28 12:54