タイトル : Re^3: Excelの改行 投稿日 : 2013/08/13(Tue) 11:16 投稿者 : YK
こんにちは。 > TextBoxの自動的に改行した文字列をセルに貼り付けるということです。 TextBoxの値をエクセルに貼り付けです。 Option Explicit Private xlBook As Excel.Workbook Private Sub Command1_Click() Dim strText As String 'Text1の改行を vbCrLf -> vbLf にする strText = Replace(Text1.Text, vbCrLf, vbLf) 'TEST1.xlsは作成しておく。無いとエラー '張り付けるエクセルをセット開いていても、いなくてもOK Set xlBook = GetObject("D:\Excel\TEST1.xls") xlBook.Parent.Visible = True With xlBook.Worksheets(1).Range("A1") ' 値の挿入 .Value = strText End With ' 必要であれば保存して閉じる xlBook.Save xlBook.Parent.Quit End Sub |