none
Insert Into en Excel en una celda especifica RRS feed

  • Pregunta

  • Como es la sentencia Insert para colocar un dato en una celda especifica, por ejemplo en C9, encontré esto en un sitio de internet, pero el problema es que las celdas tienen un nombre definido, y en mi caso van a variar:

     

    'Make a copy of the workbook template
        FileCopy sEmpDataTemplate, App.Path & "\Results\EmpData.xls"
       
        'Open the ADO connection to the Excel workbook
        Set oConn = New ADODB.Connection
        oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & App.Path & "\Results\EmpData.xls;" & _
                   "Extended Properties=""Excel 8.0;HDR=NO;"""
                  
        'Add values to individual cells
        oConn.Execute "Insert into First_Name (F1) Values ('Nancy')"
        oConn.Execute "Insert into Last_Name (F1) Values ('Davolio')"
        oConn.Execute "Insert into Title (F1) Values ('Sales Manager')"
        oConn.Execute "Insert into Hire_Date (F1) Values (#11/1/00#)"
        oConn.Execute "Insert into Comments (F1) Values ('This is a line of long text that will wrap in the cell.This is a line of long text that will wrap in the cell.')"
       
        'Close the connection
        oConn.Close

    jueves, 10 de noviembre de 2011 17:47