投稿者 SAMO  (社会人) 投稿日時 2021/5/3 21:34:17
魔界の仮面弁士様
ご返答ありがとうございます。
現在、日時の出力までは可能となりましたが、現在フォームボタンをクリックし、他フォームのテキストボックスの値をエクセルへ出力することができていません。
下記コード記載致しますので宜しければご教授をお願い致します。

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
   Dim app As Application
        Dim book As Workbook
        Dim sheet As Worksheet
        '現在日時を取得
        Dim timestanpText As String = Format(Now, "yyyyMMddHHmmss")
     app = CreateObject("Excel.Application")
        book = app.Workbooks.Open("C:\ファイル名.xlsx")     'ファイルを開く

        sheet = book.Worksheets("シート1")     'シート1を選択
        sheet.Cells(2, 1).Value = Format(Now, "yyyy/MM/dd HH:mm:ss")      'セルに日時を出力
<不明箇所>
     sheet.Cells(2, 2).Value = Format(F_フォーム1, TextBox1.Text)
        app.Visible = True
        book.SaveAs("c:\desktop")  '名前をつけて保存

        'app.Quit() '終了

        ' オブジェクトを解放します。
        sheet = Nothing
        book = Nothing
        app = Nothing
    End Sub