【私的利用限定】歌詞サイトからを歌詞をコピーする方法！ExcelVBA

【私的利用限定】歌詞サイトからを歌詞をコピーする方法！ExcelVBA
著作権について
歌詞検索プログラム
使い方解説
コード解説
まとめ

【私的利用限定】歌詞サイトからを歌詞をコピーする方法！ExcelVBA

<スポンサーリンク>

歌詞サイトは、

著作権の関係から、

無断でSNSに載せたりなど不正利用を防ぐため、歌詞をコピーできないようにされています。

しかし、歌の練習のために、
あくまで私的使用のためにコピーしたい

という時が出てきます。

そこで今回は、エクセルVBA の勉強の一環で、
歌詞サイトの歌詞をコピーしてみましたので、
確認してください。

著作権について

まず、悪用されない、しないためにも、

著作権についておさらいです。

作詞○○作曲○○

と出るように、歌詞についても当たり前のように著作権が必要です。

著作権の複製ですが、

著作権の中では、限られた範囲で利用する時に限り複製が許されます。

ですので、隣の家の人にあーげよっと！など、YOUTUBEのコメント欄に乗せよう！などSNSに投稿するのも厳禁です。

私的使用のための複製（著作権法第30条）自分自身や家族など限られた範囲内で利用するために著作物を複製することができる。ただし、デジタル方式の録音・録画機器等を用いて著作物を複製する場合には、著作権者に対し補償金の支払いが必要。コピープロテクション等技術的保護手段の回避装置などを使って行う複製については、私的複製でも著作権者の許諾が必要。私的使用目的の複製であっても、違法著作物であることを知りながら音楽又は映像をインターネット上からダウンロードする行為は、権利制限の対象から除外される。
著作物が自由に使える場合は？ | 著作権って何？ | 著作権Q&A | 公益社団法人著作権情報センター　CRICwww.cric.or.jp

また、技術的手段の対象ですが、音もしくは映像ですので、歌詞サイトのコピーは私的利用okになります。

著作権法に定められている“技術的保護手段”は“ 音若しくは影像 とともに記録媒体に記録し、又は送信する方式”(著作権法第二条第一項第二十号) のみを対象とするため、歌詞データを含む文字情報は本規定の対象外となります。従って、本ソフトウェアの利用は同第三十条第一項第二号 (技術的保護手段の回避) には該当しません。不当競争防止法に定められている“技術的制限手段”についても同様です。
http://service.kenichimaehashi.com/lyricsmaster/manual/mac/copyright.html

歌詞検索プログラム

VBAで作成したファイルは下記ボタンからダウンロードできます。

歌詞検索ダウンロード

一度ダウンロードして、プログラムの内容を確認してみてください！！

使い方解説

A1~A10セルにUTA-netのURLを入れて歌詞変換をクリックしてください。
最大10曲まで一気に歌詞をコピーできます。

結果はB列に表示されます。

コード解説

コードの流れは、

①VBAでIEを起動
②A1~A10のセルを順番に検索し、サイトを開く
③getelementbyIDを用いて歌詞の内容をB列に書き込む。

となっています。


Sub IEoutput()
  
 Application.ScreenUpdating = False

'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True

'urlを検索し開く
For I = 1 To 10

If Cells(I, 1) = "" Then Exit For
       
    targeturl = Cells(I, 1)
       
    objIE.Navigate targeturl   ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'textの内容を書き出し
Cells(I, 2) = Replace(objIE.document.getElementByID("kashi_area").innertext, vbLf, "")

   
Next
   
End Sub