
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...
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


0