| 投稿日 | ： 2005/01/27(Thu) 11:01 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 別フォームから同じExcelシートを使う |
以下のコードを試して見て下さい。
後は自分で試して確認して覚えるようにして下さい。
ろくに試しもせず、聞いてばかりいては同じ事の繰り返しですよ。
ligaro さん or セルのコピーの仕方 - ともみ 01/13-16:34 No.1568 さん
'-------------------------------------------------------------
Option Explicit '標準モジュールに以下を記入
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
Public Sub ExcelOpen()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
xlSheet.Cells(1, 2).Value = "りんご"
End Sub
'------------------------------------------------------------------
Option Explicit 'Form1 に以下のコードを記入
Private Sub Form_Load()
Call ExcelOpen
Form2.Show
End Sub
Private Sub Command1_Click()
Print xlSheet.Cells(1, 2).Value
xlSheet.Cells(4, 2).Value = "Form1から書き込みました"
End Sub
Private Sub Form_Unload(Cancel As Integer)
xlApp.DisplayAlerts = False
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
'---------------------------------------------------------
当然参照設定はしておいて下さい。