VBからエクセルを起動。そのあとエクセルを終了
教えてください。
ＶＢからエクセルを起動します。
そのあと、エクセルのシートの上にデータを貼り付けます。そして、エクセルを終了します。
しかし、エクセルが終了しません。
タスクバー上のエクセルをクリックすると終了します。
どうして、このような現象が起こるのかわかりません。
教えてください。
下記に同様のサンプルを書きました
誤記入があるかも知れませんが
このような感じのプログラムです。
以上、よろしくお願いします。
public sub test
Dim XApp as Excel.Application
Dim nfilename as string
Dim xlBook As Object
Dim xlSheet As Object
' エクセルを起動
Set xlApp = New Excel.Application
nfilename ="AAAA.xls"
' 指定されたファイルを開く
Call xlApp.Workbooks.Open(nfilename)
Set xlBook = xlApp.ActiveWorkbook
Set xlSheet = xlBook.Worksheets(1)
'フォームを貼り付ける
xlSheet.Range("a1").PasteSpecial
'ファイル名の作成
Filename="BBBB.xls"
'保存
ChDir "C:\"
xlBook.SaveAs Filename:=Filename,FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Set xlSheet = Nothing
xlBook.Close True
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End sub
お礼
ご無沙汰してます。 大変参考になりました。 いつもありがとうございます。