Excelの表示について
DBからデータをcsvに落とし、それをExcel表示させたいのですが、
Excel出力後、すぐに起動しようとすると、Excel自体は起動するのですが、
データが表示されません。
アプリケーション終了後にExcelを起動すれば問題なく開けます。
Excelまたはcsvの後処理の仕方が悪いのでしょうか?
どなたかわかる人がいましたら教えてください。
'csvからExcelへ出力する処理が入る
mxlBook.Save '変更を保存
mxlBook.Close
mxlApp.Quit 'Excelから抜ける
Set mxlBook = Nothing
Set mxlApp = Nothing
'CSVファイルの読込み
Set tsText = fsoFSO.OpenTextFile(strFileName, ForReading, False)
varData = tsText.ReadAll
'DBへの格納
deTest.cnTest.BeginTrans
strSQL = "SELECT * FROM CSV1"
Set rsRS = New ADODB.Recordset
rsRS.Open strSQL, deTest.cnTest, adOpenStatic, adLockPessimistic
With rsRS
.AddNew
'アップデートの処理が入る
.Update
End With
rsRS.Close
deTest.cnTest.CommitTrans
tsText.Close
'CSVファイルをクライアントマシンから削除
fsoFSO.DeleteFile strFileName
Set fsoFSO = Nothing
Set rsRS = Nothing