Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
VBからエクセル出力
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30604#CommentId84481
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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