投稿日	： 2003/10/07(Tue) 16:47
投稿者	： でっち
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: Excelの操作

> 事象を再現できるコードを投稿して下さい。

コードをのせます。

'標準モジュール-------------------------------
Global Fso As Object
Global xlApp As Excel.Application
Global xlBook As Excel.Workbook
Global xlSheet As Excel.Worksheet

Public Function Form_Init()
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FileExists("C:\MCR.csv") = True Then
        Set xlApp = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Open("C:\MCR.csv", ReadOnly:=True)
        Set xlSheet = xlBook.Worksheets(1)
    End If
        
End Function

'フォームモジュール
'form1---------------------------------------------
Private Sub Command1_Click()
    Form2.Show
    Unload Form1
    xlApp.Visible = True
'    xlApp.Quit 'ここにコードをのせると普通に終了します。
End Sub

Private Sub Form_Load()
    Form_Init
End Sub

'form2---------------------------------------------------
Private Function Form1_unload(cancel As Integer)
    xlApp.Quit    'ここで実行してもExcelが終了しませんでした
End Function

'---------------------------------------------------------
こんな感じでつくってみたのですけれど、だめでした。
よろしくおねがいします。

★ - Excelの操作 - でっち 10/07-14:11No.6150
• Re: Excelの操作 - 花ちゃん 10/07-15:44 No.6151
  • Re^2: Excelの操作 - でっち 10/07-16:47 No.6153
    • Re^3: Excelの操作 - LESIA 10/07-17:12 No.6154
      • 解決しました - でっち 10/07-18:00 No.6156
        • Re: 解決しました - 花ちゃん 10/07-21:57 No.6157