VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2005/03/23(Wed) 21:56
投稿者ゆりか
Eメール
URL
タイトルRe^6: WebBrowser での Excel 制御について

すいません。自己レスです。
私の書いたコードだとコンパイル通りません。

Private Sub m_xlBook_BeforeClose(Cancel As Boolean)
    Dim strAddress      As String
    
    'ブックが変更されたときは必ずその内容を保存する
    If m_xlBook.Saved = False Then
        '保存
        m_xlBook.Save
        
        Spreadsheet1.ActiveSheet.Protection.Enabled = False         'シート保護を解除する
        
        strAddress = m_xlSheet.UsedRange.Address(False, False, xlA1)
        m_xlSheet.UsedRange.Copy
        Spreadsheet1.Range(strAddress).Paste
        
        Spreadsheet1.ActiveSheet.Protection.Enabled = True          'シートを保護する
        Spreadsheet1.Range("A1").Select
    End If
    m_xlBook.Close  
End Sub

が正しいです。失礼しました。


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

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -