IT仕事

アンケートフォームからチェックボックスとオプションボタンのテキスト文字を取り出してテキストファイルに出すためのコード

投稿日:

アンケートフォームからチェックボックスとオプションボタンのテキスト文字を取り出してテキストファイルに出すためのコードを作成。
出力されるコードは、そのチェックボックス等を作成した順番に出力されるため、作り方によっては、必ずしもまとまっては出ない。
けども、コピペ等の手段で一つ一つ書き出していくよりは、だいぶマシになると思う。

あと、最初はDebug.Printでイミディエイトウィンドウに出していたのだが、200行を超えると上から順に消えていってしまうことに気がついたので(ちなみに今回対象としたチェックボックスなどのシェイプは250)、テキスト出力に変更。

Sub チェックボックスとオプションボタンのラベル出力()
Dim s As Shape
Dim StrFN As String
Dim IntFlNo As Integer

StrFN = ActiveWorkbook.Path & "\data.txt"
IntFlNo = FreeFile
Open StrFN For Output As #IntFlNo
For Each s In ActiveSheet.Shapes
'        Debug.Print s.Name
        If Left(s.Name, 6) = "Option" Then
            'Debug.Print s.TextFrame.Characters.Text
            Write #IntFlNo, s.TextFrame.Characters.Text
        End If
    Next s
    Debug.Print "---"
    For Each s In ActiveSheet.Shapes
'        Debug.Print s.Name
        If Left(s.Name, 5) = "Check" Then
            Write #IntFlNo, s.TextFrame.Characters.Text
        End If
    Next s
    Close #IntFlNo
End Sub

-IT仕事

執筆者:

関連記事

no image

WebArenaSuite2でXOOPS

WebArenaSuite2でXOOPSが簡単に使えるというので、お客さんのサイトを作った。 インストールはとても簡単だったのだが、しかしディレクトリに制約があって、http://210.000.00 …

no image

秀丸マクロで文字の折り返しを最大

今まで秀丸マクロでできないと思っていた、文字の折り返しを最大にする操作と、その後カーソルを移動させる操作が、実はできることがわかった。 自分のケースだと、 config “xAutoAdj …

no image

瞬NAS

月刊アスキー2005年6月号の記事に、NAS特集。 KNOPPIXを使う方法が述べられていた。 1.KNOPPIXでPCをブート 2.スタートボタン->KNOPPIX->Service->Start …

no image

WP Canvas – Shortcodes のテスト

こりゃ便利だ。 Sample Content Sample Content Sample Content Section 1 Sample Content Section 2 Sample Conte …

no image

GoogleChromeの拡張機能を使ってGmailの本文中の文字を簡単に再検索する方法

Gmailの注文メールを開いて、お客様の注文番号や電話番号・メールアドレスをコピペして検索・・・といった操作は、よく使うと思うのですが、ちょっと面倒に思いませんか? GoogleChromeの拡張機能 …