Newsgroup: it.comp.lang.visual-basic
Titolo: errore in excel

Ciao a tutti,come da oggetto cercavo un aiuto dagli esperti:
Ho installato Office 2000 (solo Word e Excel)su un portatile con sistema
operativo 98 SE e quando cerco di aprire un file di Excel mi dà l'errore di
run time 9 indice non incluso nell'intervallo.
(Word invece funziona bene)
Esce anche la finestra di debug di Visual Basic con indicata la riga
sbagliata,ma non essendo un programmatore non so come fare.
Ho cercato con google ma non riesco a trovare niente,oppure le risposte sono
in linguaggio da programmatori che ovviamente non capisco.
Qualcuno può gentilmente aiutarmi ?
Grazie  in anticipo
Ciao

 Qualcuno può gentilmente aiutarmi ?
questo e` un gruppo per programmatori, avrai risposte da programmatori.
comunque... cosa sta scritto nella riga che da` errore?
-- 
ciao, hal

Incollo qui la stringa,la riga con l'errore è circa a metà preceduta
dall'indicazione che ho messo in maiuscolo.
-- Sub Workbook_Open
'---------------------------------------------------------------------------
----------------------
'-- This event fires every time the Add-in is loaded. In this function, we
check for the
'-- existance of our menu item and tool bar buttons. If they do not exist,
we add them.
'---------------------------------------------------------------------------
--- JCAHILL 12/3/98 --
Private Sub Workbook_Open()
    'm_iSourceCurrency = -1
    'm_iDestCurrency = -1
    'm_iOutputFormat = 0
    'm_iFmlaOptions = 1
    'm_iFullPrec = 0
    'm_iTriangPrec = 19
    m_iSourceCurrency = CLng(VBA.Interaction.GetSetting(APPNAME, SECTIONAME,
"SourceCurrency", -1))
    m_iDestCurrency = CLng(VBA.Interaction.GetSetting(APPNAME, SECTIONAME,
"DestinationCurrency", -1))
    m_iOutputFormat = CLng(VBA.Interaction.GetSetting(APPNAME, SECTIONAME,
"OutputFormat", 0))
    m_iFmlaOptions = CLng(VBA.Interaction.GetSetting(APPNAME, SECTIONAME,
"FormulaOptions", 1))
    m_iFullPrec = CLng(VBA.Interaction.GetSetting(APPNAME, SECTIONAME,
"FullPrecision", 0))
    m_iTriangPrec = CLng(VBA.Interaction.GetSetting(APPNAME, SECTIONAME,
"TriangulationPrecision", 3))
    '-- Hook up to Excel Application events --
    Set appExcel = Application
    Application.CommandBars("EuroPlaceHolder_2000").Enabled = True
    'add tags for future removal
    Application.CommandBars("EuroPlaceHolder_2000").Controls(1).Tag =
"MSOEuroConversionWizardButton"
    Application.CommandBars("EuroPlaceHolder_2000").Controls(2).Tag =
"MSOEuroCurrency"
    'add localized tooltips
    Application.CommandBars("EuroPlaceHolder_2000").Controls(1).Caption =
fnGetResString(74)
    Application.CommandBars("EuroPlaceHolder_2000").Controls(2).Caption =
fnGetResString(75)
LA SEGUENTE E' LA RIGA CON L'ERRORE :
    If Not Application.CommandBars("Standard").Controls(17).HelpContextID =
0 Then
 Application.CommandBars("EuroPlaceHolder_2000").Controls(1).Copy
Bar:=Application. _
        CommandBars("Standard"), Before:=17
    Application.CommandBars("EuroPlaceHolder_2000").Controls(2).Copy
Bar:=Application. _
       CommandBars("Formatting"), Before:=13
    End If
    Application.CommandBars("EuroPlaceHolder_2000").Enabled = False
    Application.CommandBars("EuroPlaceHolder_2000").Visible = False
    '-- Add the Euro Currency menu item to the "Tools" menu bar --
    Set cmdbtnEuroConversionWizardMenuItem =
AddCommandBarMenuItem(fnGetResString(73), "MSOEuroConversionWizardMenuItem",
"Tools", 8, True)
    'initialize the conversion wizard button
    Set cmdbtnEuroConversionWizardButton =
AddCommandBarButton(fnGetResString(74), "MSOEuroConversionWizardButton",
"Standard", 17)
    '-- Initialize the Euro button on the Formatting command bar --
    Set cmdbtnEuro = AddCommandBarButton(fnGetResString(75),
"MSOEuroCurrency", "Formatting", 13)
    '-- Add the EuroView Toolbar and controls --
    Dim hValue As CommandBarComboBox, hType As CommandBarComboBox
    AddEuroView hValue, hType
    Set cmdctrlEVValue = hValue
    Set cmdctrlEVType = hType
    End Sub

 0 Then
Ti manca la commandbar "Standard" oppure il controllo con indice 17 di
tale commandbar.
-- 
ciao, hal

 0 Then
Ti manca la commandbar "Standard" oppure il controllo con indice 17 di
tale commandbar.
-- 
Scusami Hal, ti ringrazio per l'aiuto,ma ne ho capito tanto come prima !
Se potresti spiegare un pň di piů ...
Grazie