none
開啟 excel file巨集有問題 RRS feed

  • 問題

  • 您好我開啟巨集出現下面問題無法開啟請幫忙協助感謝

    開啟巨集檔時出現下面錯誤訊息

    microsoft visual basic

    執行階段錯誤-2146232576 (80131700) 

    automation 錯誤

    Private Sub Workbook_Open()

        IsSupplierVersion = (Dir("C:\MTL_LIST.lic") = "") And (Dir("C:\WINPRINT\PMR370\TML\") = "")

        If IsSupplierVersion Then
          自動執行表單
            UserForm1.Show(黃字)
        End If

        'VNPCC 部分 user的按鈕大小與位置會跑掉, 故加入以下程式碼,開啟檔案時自動調整按鈕配置
        If Sheets(4).Range("A1").value = 1 Then
            With Sheets(3).Shapes.Range(Array("Bevel 1"))
                .Left = 600
                .Top = 3
                .Height = 25
                .Width = 90
            End Withs.Range(Array("Bevel 1"))
                .Left = 600
                .Top = 3
                .Height = 25
                .Width = 90
            End With

            With Sheets(3).Shapes.Range(Array("Bevel 2"))
                .Left = 700
                .Top = 3
                .Height = 25
                .Width = 90
            End With

            Sheets(4).Range("A1").value = 2
        End If
    End Sub

                                  

    2019年4月16日 上午 05:44

所有回覆

  • 開發問題在隔壁 MSDN 論壇 辦公室軟體與程式開發(Office System Development)  討論。

    UserForm1.Show 出現 Automation 問題,通常是你 Form 上使用了非內建控制項。

    例如 Office x64 中使用的 32 位元控制項,或 Office x86 使用了 VB6 專業版以上的控制項。


    不精確的問法,就會得到隨便猜的答案;自己都不肯花時間好好描述問題,又何必期望網友會認真回答?

    2019年4月16日 下午 03:18