Visual Basic - Error 0x800A03EC en Visual Basic.

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Ignacio

Error 0x800A03EC en Visual Basic.

Publicado por Ignacio (4 intervenciones) el 12/05/2014 21:29:38
Colegas, hice un pequeño programa para convertir un XLS a DBF, cuando lo ejecuto me lee bien el fichero XLS pero precisamente a la hora de la conversion ....SaveAS(path & "Base.DBF", FileFormat:=XLDBF4) me da un error "Excepcion de HResult: 0x800A03EC... Busque en internet sobre este error y encontre muchas cosas pero nada que me ayudara a aclarar el problema. Mi sistema Operativo es windows 7 64 bit, con Officce 2007. Agradeceria que alguien me de una luz verde sobre el problema.

Gracias de antemano .
Aca les dejo el cod para que lo revicen...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Imports Microsoft.Office.Interop
Imports System.IO
 
Public Class Form1
 
 
Dim xlDBF4 As Object
 
Private Property fs As Object
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim path As String = "D:\ignacio\programacion VB\"
    Dim eBase As Excel.Application
    Dim wLibro As Excel.Workbook
 
    '-- creamos el objeto FileSystem Object
    fs = CreateObject("Scripting.FileSystemObject")
 
    'Iniciamos la instancia de Excel
    eBase = New Excel.Application
 
    'Abrimos elfichero xls
 
    wLibro = eBase.Workbooks.Open(path &"presupuesto.xls")
 
    'comprobamos que el fichero no exista
    If Len(Dir$(path & "Base.dbf")) > 0 Then
 
        'Existe y lo borramos
        fs.Deletefile(path & "Base.dbf")
 
    End If
 
    'Guardamos el fichero con formato DBF
 
    wLibro.SaveAs(path & "Base.dbf", xlDBF4)
 
    'Cerramos el fichero
    wLibro.Close(SaveChanges:=False)
 
 
    'Cerramos la instancia de Excel
    eBase.Workbooks.Close()
 
    eBase.Quit()
 
    eBase = Nothing
    wLibro = Nothing
    End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder