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

イーモバイル製のHTC AriaはIIJ-Mioで使えなかった

オークションで購入したHTC Ariaだが、IIJ-Mioのキャリアでは使えないみたい。 APNを登録したり、色々試してみたのだが、3Gを介したネットにはつながらなかった。 エラーは出ないのにね。 A …

Power Automate Desktopでダイアログでのファイル選択完了判定

今回Power Automate Desktopで、やりたかったこと: (人間が作業)Webブラウザからファイルのアップロードするダイアログボックスで、ファイルを選択してOKボタンを押すところまで。( …

ATOM Cam 購入&アクリルケース内に設置

会社の駐車場の降雪確認用のWebカメラを利用する季節になりました。 昨年までWebカメラとして利用していたスマホが壊れたので、Webカメラを購入してもらいました。 ATOM Tech(アトムテック)の …

no image

Exitイベント

覚え書き。 ExcelVBAのフォームで、 Clickして抜けるかEnterキーして抜けるかわからないテキストボックスには、Exitイベントのところに処理を書いちゃダメ。 ClickとEnterキーで …

no image

ネット端末システム

お客からの依頼で、ネットカフェみたいな多数のネット端末システムを、安価に構築する方法を調査。 Smart NC Boot Server http://www.cramworks.com/prod/bo …