PHPプログラムをエクセルに張り付けると検索ボックスがでてくる！

Question

PHPコードをエクセルに張り付けると検索ボックスがでてくる！プログラムのマニュアル書を作成しています。エディタでもいいのですがエクセルが検索機能が充実しているのでエクセルやっています。　しかし！以下のプログラムの個々のコードですが！エクセルに以下のプログラム張り付けるとなぜか？ホームページみたいに検索ボックスがでてきてしまいます。プログラムのコード自体が出てきません？この場合メモ帳のようにプログラムコード事態を表示するにはにどうしたらできますか？よろしくお願いいたします。ＳＱＬカフェ検索のページ

（検索結果はこちらに）

eot1; /***************　検索文字列を取得してタグを削除　***************/ $se_d=isset($_GET["se"])?htmlspecialchars($_GET["se"]):null; /***************　検索文字列($se_d)にデータがあれば検索処理　***************/ if($se_d<>""){ /***************　検索のSQL文　テーブルtbj1にtbj0を結合　***************/ $str=<<query($str); while($kekka=$re->fetch()){ print " $kekka[0] : $kekka[1] : $kekka[2] ( $kekka[3] )"; print "

"; } } /***************　検索文字列入力用表示、トップへのリンク　***************/ print <<

メッセージに含まれる文字を入力してください！

スレッド一覧に戻る eot3; ?>

enunokokoro · Accepted Answer

質問文のコードだと行頭のスペース(インデント)が消去されてますが、
実際のコード(Excelに貼り付ける前)だとインデントがあるのでは？
この場合、HTMLソースなどでも同じですがExcelが勝手にHTML形式に
変換してしまいます。Excelの仕様なので、ひと手間が必要です。

対処法その1
[テキストファイルウィザード]を使用する。
テキストファイルとして用意されているのなら、それをインポート。
https://hamachan.info/win10-excel-text/
ファイルとして用意されていないのなら、コピーをして貼り付け後に
貼り付けオプションで[テキストファイルウィザード]を指定。
https://hamachan.info/win7/office/harituke.html
これなら、インデントを維持したまま取り込めます。

対処法その2
Wordに貼り付け後に貼り付けたものをコピーしてExcelに貼り付け。
この場合には、行頭のインデントが半角スペースでされていると一つの
列ごとに半角スペースがある状態でセルに貼り付けされます。
その1のようなインデントが隣の列になるのとは違います。

対処法その3
質問文にあるコードをコピーして貼り付けすると、一つの列にテキスト
として貼り付けることができていると思います。これを利用することで
対応します。
テキストエディターなどで行頭のインデントを(正規表現などで)削除。
行頭インデントをなくすことでExcelが勝手に変換しなくなるようです。

対処法その4
No.1の回答者さんへのお礼にあるように個別に貼り付けする。
コードが多い場合に作業的に多くなるので手間が増えるので非推奨。

その他として、コードにある<を別記号などに変換して貼り付けする
などの対応もあります。個人的には、その1がお勧め。

KenKen_SP · Answer

こんにちは。

> あんまりよろしくありませんでしたので！

#1の方法で上手くいかないですか、、
ご質問文のソースについて、当方は問題なく貼り付けできてます。
どう上手くいかないのでしょう？

ワークシート貼付け時に Excel が HTML を解釈してしまうお節介機能は、私の知る限りオフにできません。
セルへ展開したいとのことなので、VBA による解決案を提示します。

Public Sub Paste_PlainText()
　　
　　Dim source As String: source = GetTextFromClipboard()
　　If Len(source) Then
　　　　Dim buf As Variant: buf = Split(source, vbCrLf)
　　　　ActiveCell.Resize(UBound(buf) + 1).Value = WorksheetFunction.Transpose(buf)
　　End If

End Sub

' クリップボードからテキストを取得する
' 要参照設定： Microsoft Forms 2.0 Object Library
'
Private Function GetTextFromClipboard() As String
　　
　　With CreateObject("Forms.TextBox.1")
　　　　.MultiLine = True
　　　　If .CanPaste Then
　　　　　　.Paste
　　　　　　GetTextFromClipboard = .Text
　　　　End If
　　End With
　　
End Function

' 参考URL
' 初心者備忘録 [[VBA]DataObjectを使ったクリップボード操作が上手くいかない場合の対処法]
' https://www.ka-net.org/blog/?p=7537

KenKen_SP · Answer

https://atmarkit.itmedia.co.jp/ait/articles/2102/01/news019.html#:~:text=%E3%81%8C%E5%8F%AF%E8%83%BD%E3%81%A0%E3%80%82-,%EF%BC%BBCtrl%EF%BC%BD%EF%BC%8B%EF%BC%BBV%EF%BC%BD%E3%82%AD%E3%83%BC%E3%81%A7%E8%B2%BC%E3%82%8A%E4%BB%98%E3%81%91%E3%82%92,%E5%90%88%E3%82%8F%E3%81%9B%E3%82%8B%EF%BC%BD%E3%82%A2%E3%82%A4%E3%82%B3%E3%83%B3%E3%82%92%E9%81%B8%E6%8A%9E%E3%81%99%E3%82%8B%E3%80%82

PHPプログラムをエクセルに張り付けると検索ボックスがでてくる！

質問文のコードだと行頭のスペース(インデント)が消去されてますが、

こんにちは。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング