takayukisの日記 このページをアンテナに追加 RSSフィード

2018.06.28(木)

[]セルの値をテキストファイルに出力

長いテキストが入っている場合などに。

ファイル名はA1.txtなどのセルのアドレスになります。

Sub セルの値をテキストファイルに出力()
    Dim 選択範囲 As Range
    Set 選択範囲 = Selection
    For Each cell In 選択範囲
        Dim セル As Range
        Set セル = cell
        Dim filename As String
        filename = セル.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ".txt"
        Dim path As String
        path = ActiveWorkbook.path & "\" & filename
        Open path For Output As #1
        Print #1, セル.Value
        Close #1
    Next
End Sub

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20180628/1530139612