Astuces Excel
  1. Astuces Excel
  3. Comment rompre par programme un document Excel en plusieurs tout en conservant le style et le format de chaque cellule?
Intereting Posts
Exception COM lorsque vous tentez d'ouvrir .txt en Visual Basic Condensation d'une déclaration If Not avec plusieurs critères Trouver une sum tous les dixième nombre de cellules dans une colonne Excel Comment fonctionne Excel VSTO? Le décalage de type de données dans l'expression de critères dans excel vba (ado) Lire datatables Excel avec JQuery Excel VBA – ne peut pas afficher la string de dates dans la plage Match inversé Excel Comment extraire des nombres à partir de la cellule Excel, puis résumer à travers les lignes? Séparation de pages imprimer plusieurs pages vba Fusionner les colonnes et l'abréviation d'état vers le nom complet de l'état Envoyer un courrier électronique à la list des destinataires Excel Écrire un document Word à partir de la feuille de calcul Excel en passant par une colonne entière de valeurs et si la valeur correspond, la couper et la coller sur une autre feuille Pourquoi ma connection ADO Access donne-t-elle des résultats différents de la même requête exécutée dans l'application Access?

Comment rompre par programme un document Excel en plusieurs tout en conservant le style et le format de chaque cellule?

Je tente de briser une grande feuille de calcul Excel en plusieurs. J'ai fait de bons progrès, mais j'ai des problèmes. Plus précisément, les valeurs qui ont été copiées ne conservent pas leur format (par exemple, 40322 au lieu de 5/24/2010 et -101 au lieu de (101.00)). J'ai essayé d'utiliser le style (voir ci-dessous), mais cela ne me procure même pas la police, sans parler du format de numéro. Toute aide ou un poke dans la bonne direction serait apprécié.

Il y a 2 loops, une pour la ligne, une pour la colonne. 

destinationSheet.Cells[i, j].Style = sourceSheet.Cells[i, j].Style;

Au lieu de boucler pour chaque cellule, vous pouvez copyr / coller toute la gamme de cellules à l'aide de la méthode de la pâte à papier.

http://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.namedrange.pastespecial(VS.80).aspx