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

VBAからIE操作

大変に感銘を受けたサイト。 三流君VBA:VBAからIE操作 TABLEの中にTABLE .getElementsByTagNameほかhttp://www.ken3.org/vba/backno/v …

no image

WordPress初設定の覚書

まずは、ヘッダー画像を始め画像関係をいろいろと。 Defaultテンプレートを改造する方向でお客さんのテーマを作成したのだが、どうCSSを調べても直しても背景の浮き出し効果のある画像が消えてくれない。 …

no image

AccessとBASP21で正規表現を使ってメール文から必要事項を取り出すサンプル

Accessで正規表現を使いたかったのですが、ネット上にはサンプルが少なく、苦労したので、とりあえずツギハギで作った私のコードを披露したいと思います。 Accessで正規表現を使うには、BASP21を …

no image

「〇〇屋商店」のラベルを付けたGmailメッセージからGASで件名と本文の一部を正規表現で取り出してスプレッドシートに格納

仕事でGoogle App Script(GAS)を使うケースが出てきそうなので、休日なれど、自主勉してみた。 やりたいことは、オンラインショップの注文メールの中から、必要な事項を取り出して、スプレッ …

no image

フリーブラシ

幾何学模様を使ったバナーをどうやって作るのか、よくわかっていない。 時間に追われ、いつも腐心して、それでもなんとかかんとか、それなりに作っているのだが、これではいけないと自分でも思っている。 今日は時 …