Cortar texto en excel según caracter guia

Aquí esta el código para cortar una frase que este divida en tres utilizando un separador como caracter, en este caso es la ",".

Solo hay que cambiar la url de la celda y listo.

Ojo que si no te detecta la funcion EXTRAE (Office 2010 con SP1) entonces es MED.

Primera palabra

=ESPACIOS(IZQUIERDA(C77547;ENCONTRAR(",";C77547)-1))

Segunda palabra

=ESPACIOS(EXTRAE(C77547;ENCONTRAR(",";C77547)+1;ENCONTRAR(",";C77547;ENCONTRAR(",";C77547)+1)-ENCONTRAR(",";C77547)-1))

Tercera palabra

=ESPACIOS(DERECHA(C77547;LARGO(C77547)-ENCONTRAR(",";C77547;ENCONTRAR(",";C77547)+1)))

Espero les sirva

Sean felices! :) Y sientanse libres de opinar ;)

Copiar valor de una celda a otra con excel con VBA

Y esta es la función VBA para una macro en excel:


Sub copiartextodeunaceldaaotra()
'
' copiartextodeunaceldaaotra Macro
' copiar el valor de una celda a otra segun la posicion actual de la celda seleccionada
'
' Acceso directo: Ctrl+Mayús+P
'
    Range("B" & ActiveCell.Row - 1).Select
    Selection.Copy
    Range("B" & ActiveCell.Row + 1).Select
    ActiveSheet.Paste
    Range("E" & ActiveCell.Row).Select
    
End Sub


ActiveCell.Row: hace referencia al numero de la fila actual de la celda que esta seleccionada en el momento.

Lamento dejar este ejemplo tan especifico y poco claro, pero por tiempo no me quedo de otra.

Sean felices! :) Y siéntanse libres de opinar ;)

Insertar fila con macro de Excel 2010

Este es la macro que hice en excel para insertar una fila:


Sub INSERTARFILA()
'
' INSERTARFILA Macro
' INSERTARILA
'
' Acceso directo: Ctrl+Mayús+I
'
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Sean felices! :) Y siéntanse libres de opinar ;)

Subir excel 2003 o 2007 a SQL Server in C#

Hola queridos compañeritos.

Todo esto gracias a otro bloguero! Que invito a que conozcan. 

Bueno, aquí les dejo un código completico para subir un excel a toda velocidad a una tabla creada previamente en SQLServer. La tabla por supuesto, debe coincidir con las columnas que tenga el excel. Así mismo lo que este en cursiva negrita, subrayado es lo que cambiaremos.

Otra cosita, estoy leyendo la cadena de conexión que se encuentra en el web.config. Espero les sirva.




//CODIGO ASPX


<%@ Page Language="C#" AutoEventWireup="true" CodeFile="productos.aspx.cs" Inherits="admin_productos" %>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">


<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
    <style type="text/css">
        .style1
        {
            width: 100%;
        }
    </style>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Panel ID="pnlActualizar" runat="server" DefaultButton="btnActualizar" style="margin-top: 0px">
            <span>Sube el excel: Crea y actualiza de inmediato productos: </span>
            <asp:FileUpload ID="fuarchivo" runat="server" />    
            <asp:Button ID="btnActualizar" runat="server" Text=">>>" 
                onclick="btnActualizar_Click" />
            <asp:Label ID="lblmensaje" runat="server" Text="..."></asp:Label>
        </asp:Panel>
    </div>
    
    </form>
</body>
</html>




//CODIGO DE .CS


using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;


//new clases
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web.Security;
using System.Data.OleDb;
using System.Data.SqlClient;
using System.IO;
using System.Data.Common;


public partial class admin_productos : System.Web.UI.Page
{
    protected void btnActualizar_Click(object sender, EventArgs e)
    {
        if (fuarchivo.HasFile)
        {
            string filepath = Server.MapPath("~/App_Data/" + fuarchivo.FileName);
            if (System.IO.File.Exists(filepath))
            {
                lblmensaje.Text = "El archivo ya existe. Sube un archivo con diferente nombre";
            }
            else
            {
                fuarchivo.SaveAs(filepath);
                lblmensaje.Text = "Archivo subido con nombre: " + fuarchivo.FileName;
                dataupload(filepath);
            }
            
        }
        else
        {
            lblmensaje.Text = "No se ha subido ningún archivo";
        }
    }
    void dataupload(string path)
    {


    // Connection String to Excel Workbook
    string excelConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + path + ";Extended Properties=\"Excel 8.0;HDR=YES;\"";
    //string excelConnectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=\"Excel 12.0;HDR=YES;\"";//excel 2007


    // Create Connection to Excel Workbook
    using (OleDbConnection connection = new OleDbConnection(excelConnectionString))
        {
        OleDbCommand command = new OleDbCommand("Select * FROM [upload$]", connection);
        connection.Open();
        // Create DbDataReader to Data Worksheet
        using (DbDataReader dr = command.ExecuteReader())
            {
            string sqlConnectionString = ConfigurationManager.ConnectionStrings["NombreConnectionString"].ConnectionString;


            // Bulk Copy to SQL Server
            using (SqlBulkCopy bulkCopy =
            new SqlBulkCopy(sqlConnectionString))
                {
                bulkCopy.DestinationTableName = "tmp_productos";
                bulkCopy.WriteToServer(dr);
                }   
            }
        }
    }


}

Sean felices! :) Y sientanse libres de opinar ;)