tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。