1
 Inicie el programador de VB6 . Escriba el siguiente comando para crear una conexión entre VB6 y Excel : 
 
 conec As ADODB.Connection 
 
 connString dévil como secuencia 
 
 connString = "Driver = { Microsoft Excel conductor ( * . xls ) } ; DriverID = 790 ; Dbq = excelfile.xls ; ". 
 
 conn.ConnectionString = connString 
 
 Pulse" Enter " 
 2 
 Escriba el siguiente comando para abrir la hoja de Excel : 
 
 sql = "SELECT * FROM sheet1 " 
 
 excel_records = Recordset.Open sql , estafa, , adLockOptimistic , adCmdText 
 
 Sustituir " hoja 1 " con el nombre de la hoja de Excel. Pulse la tecla " Enter". 
 3 
 Crear un archivo como PDF , escribiendo el siguiente comando : 
 
 pdf Dim As New mjwPDF 
 
 pdf . PDFTitle = " Excel a PDF conversión" 
 
 pdf.PDFFileName = " converted.pdf " 
 
 Pulse " Enter". 
 4 
 Escriba el siguiente comando para guardar su archivo XLS en PDF : " . Escriba" 
 
 pdf.PDFTextOut excel_records.ToString 
 
 Press 
 
 
          
