|
Pour sauvegarder un fichier de valeurs séparées par des virgules avec des citations dans Microsoft Excel 2007, vous devez écrire une macro VBA pour accomplir la fonction . La fonctionnalité de valeurs entre guillemets exporter n'est pas fourni par défaut dans Excel 2007. Pourtant , de nombreuses applications qui acceptent des importations CSV exigent également les guillemets autour des valeurs dans le fichier CSV. Créez la macro en utilisant un modèle de code. Chaque fois que vous devez enregistrer un fichier CSV avec des guillemets, utilisez la macro au lieu de l'option "Enregistrer sous" option . Lorsque la macro est exécutée , une case " Enregistrer" et ouvre le fichier CSV est enregistré avec des citations en place. Instructions
1 Ouvrez Microsoft Excel 2007.
2 sur la touche " Alt" et "F11" touches simultanément pour ouvrir l'éditeur VBA .
3 Cliquez sur l'option "Insérer" dans la barre de navigation du haut, puis cliquez sur " Module ".
4 Type de (ou copier-coller) le script ci-dessous dans l'éditeur VBA. CSVQuotes sub ()
SrcRange As RangeDim CurrRow Comme RangeDim CurrCell Comme RangeDim CurrTextStr Comme StringDim ListSeparator Comme StringDim FileName As Variant
filename = Application.GetSaveAsFilename ( "", " fichier CSV (*. csv) , * . csv " )
ListSeparator = Application.International ( xlListSeparator ) Si Selection.Cells.Count > 1 ensuite SET SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen nom de fichier de sortie comme # 1Pour chaque CurrRow En SrcRange.RowsCurrTextStr = ìîFor chaque CurrCell En CurrRow.CellsCurrTextStr = CurrTextStr & "" "" & CurrCell.Value & "" "" & Right ListSeparatorNextWhile ( CurrTextStr , 1) = ListSeparatorCurrTextStr = gauche ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint n ° 1 , n ° 1 CurrTextStrNextClose
End Sub
5 Fermez l'éditeur VBA en cliquant sur le «X» dans le coin supérieur droit . La macro est enregistrée .
6 Cliquez sur l'option " Outils " dans la barre de navigation supérieure , puis cliquez sur "Macro ".
7 Sélectionnez l'option "Macros " . La nouvelle macro, nommé " CSVQuotes , " est maintenant disponible.
8 Ouvrez le fichier Excel pour exporter au format CSV avec des guillemets . Faire les modifications nécessaires à préparer la feuille de calcul pour l'exportation vers le format de fichier CSV.
9 Appuyez sur la touche "Alt" et les touches " F8 " simultanément pour ouvrir la liste des macros existant.
10 Cliquez sur l'option "Exécuter" à côté de la macro " de CSVQuotes " pour exécuter le script. Un fichier de sauvegarde boîte s'ouvre .
11 Tapez un nom pour le fichier CSV dans le champ de saisie " Nom de fichier " .
12 Cliquez sur le bouton «Enregistrer» . Le fichier CSV est exportée, avec des citations .
|
