投稿日 | : 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
が正しいです。失礼しました。