Jag har problem med Excel.. Från min VB6 kod vill jag öppna ett Excel-ark med följande kod:

Dim ExcelApp As Excel.Application

Set ExcelApp = New Excel.Application
Set wb = ExcelApp.Workbooks.Open(App.Path & "\Test.xls")

wb.Activate
Set ws = wb.Sheets(1)

men får felmeddelandet: The remote server machine does not exist or is unavailable

Detta trots att jag skapat ett nytt excel-objekt! Jag har även prövat att öppna arket med ADO, men får då andra problem.

Vad är felet?

Jag skulle föreslå att du installerar Jet 4.0 (se: systemdokument/servicepacks) och ser om det hjälper. Det kan vara problem med din Jet-motor. Passa även på att ta MDAC_TYP.EXE

/Pelle

Du kan inte skapa en ny applikation om du inte har ett Excel.object

Har du eller någon annan stängt det måste du öppna ett nytt.

//Emma

Option Explicit
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet

Private Sub Form_Load()

Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open(App.Path & "\Test.xls")
xlApp.Visible = True

Set xlWS = xlWB.Sheets(1)

End Sub