実行時エラー429 （エクセルを呼び出すと・・・） (ID：104435)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

教えて下さい。

ＶＢからエクセルをレポート代わりにし
データをエクセルに出力しプレビューを立ち上げる。
という動作を組んでみたのですが getobject(,"")  で
Activex のエラーが跳ね返ってきます。

ＮＥＴで調べてみたのですが、  それについてのエラーの回避方法として
「サービスパック  ５をあてなさい」  
「レジストリの  ＤＡＯ３５０のパスが悪いのでレジストリを書き直しなさい。」
等など、色々試しては見たもののどれもクリアできずじまいです。

環境・・・・・

ＯＳ  ・・・・  WIN2000 server
                VB6.0
               data 格納場所はアクセス２０００です。
               SP5  は当てました。

DAO3.6をつかってます。
                ＤＬＬの修正では３５０ばかりの話しか見当たらないのですが・・
-----------------------------------------------------------------------
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
 (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
 ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub cmdprev_Click()
    
Dim stror As String
Dim strfile As String
Dim lngpr As Long
Dim lngre As Long
Dim xlsApp   As Object
Dim xlsBook  As Object
Dim xlsSheet As Object

strfille = "C:\新規フォルダ\test.xls"
    stror = "open"
    lngre = ShellExecute(0, stror, strfille, vbNullChar, vbNullChar, SW_SHOWNORMAL)
                
Set xlsApp = GetObject(, "Excel.Application")
Set xlsBook = xlsApp.ActiveWorkbook
Set xlsSheet = xlsBook.Worksheets(1)
Call EXL_BlockRep(xlsBook, xlsSheet)
   
    xlsSheet.PrintPreview
    xlsBook.Saved = True
    xlsBook.Application.Quit
                
    If lngre <= 32 Then lngre = 0
    
Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing

End Sub

------------------------------------------------------------------------

Private Sub EXL_BlockRep(xlsBook As Object, xlsSheet As Object)
Dim db As Database
Dim rs As Recordset

Dim loc1 As Integer
Dim loc2 As Integer
Dim loc3 As Integer
Dim i As Integer
On Error Resume Next
    Set db = OpenDatabase("C:\新規フォルダ\db.MDB")
    Set rs = db.OpenRecordset("select * from M_test")
    Const xlLineMarkers = &H41
    Const xlLocationAsObject = 2

以下・・・・  エクセルに出力する内容
-------------------------------------------

どこが悪いのでしょうか？  教えて下さい。

←解決時は質問者本人がここをチェックしてください。

戻る