Πώς να σώσει CSVS με εισαγωγικά στο Excel 2007

Για να αποθηκεύσετε ένα αρχείο διαχωρισμένες με κόμμα Αξία με εισαγωγικά στο Microsoft Excel 2007 , θα πρέπει να γράψετε μια μακροεντολή VBA για να ολοκληρωθεί η λειτουργία . Η λειτουργικότητα σε τιμές εξαγωγής περικλείονται σε διπλά εισαγωγικά δεν προβλέπεται από προεπιλογή στο Excel 2007 . Ωστόσο , πολλές εφαρμογές που επιτρέπουν τις εισαγωγές CSV απαιτούν επίσης τα διπλά εισαγωγικά γύρω από τις τιμές στο αρχείο CSV . Δημιουργήστε τη μακροεντολή χρησιμοποιώντας ένα πρότυπο κώδικα . Κάθε φορά που θα χρειαστεί να αποθηκεύσετε ένα αρχείο CSV με εισαγωγικά , χρησιμοποιήστε τη μακροεντολή αντί για το "Save As " επιλογή . Όταν η μακροεντολή , ένα κουτί "Αποθήκευση" και ανοίγει το αρχείο CSV αποθηκεύεται με εισαγωγικά στη θέση τους . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel 2007 . 2

Πατήστε το "Alt " και τα πλήκτρα " F11 " ταυτόχρονα για να ανοίξετε το πρόγραμμα επεξεργασίας VBA .
Η
3

Κάντε κλικ στο " Εισαγωγή " επιλογή στην επάνω γραμμή πλοήγησης και στη συνέχεια κάντε κλικ στο κουμπί "ενότητα ".
Η 4

Τύπος ( ή αντιγραφή και επικόλληση ) το παρακάτω script στον κειμενογράφο VBA . υπο CSVQuotes ( )

Dim SrcRange Όπως RangeDim CurrRow Όπως RangeDim CurrCell Όπως RangeDim CurrTextStr Όπως StringDim ListSeparator Όπως StringDim όνομα αρχείου ως Variant

FileName = Application.GetSaveAsFilename ( " " , " Αρχείο CSV ( * . csv ) , * . csv " )

ListSeparator = Application.International ( xlListSeparator ) Αν Selection.Cells.Count > 1 ThenSet SrcRange = SelectionElseSet SrcRange = ActiveSheet.UsedRangeEnd IfOpen FileName Για την Έξοδο Καθώς # 1Για κάθε CurrRow Σε SrcRange.RowsCurrTextStr = ìîFor κάθε CurrCell Σε CurrRow.CellsCurrTextStr = CurrTextStr & " " "" & CurrCell.Value & "" "" & ListSeparatorNextWhile Right ( CurrTextStr , 1 ) = ListSeparatorCurrTextStr = Left ( CurrTextStr , Len ( CurrTextStr ) - 1 ) WendPrint # 1 , # 1 CurrTextStrNextClose

End Sub
5

Κλείστε το πρόγραμμα επεξεργασίας VBA , κάνοντας κλικ στο " Χ " στην η άνω δεξιά γωνία . Η μακροεντολή αποθηκεύεται .
Η

6 Κάντε κλικ στο "Εργαλεία" επιλογή στην επάνω γραμμή πλοήγησης , και στη συνέχεια κάντε κλικ στο κουμπί "Macro ".
Η

7 Επιλέξτε το " Μακροεντολές " επιλογή . Η νέα μακροεντολή , το όνομα " CSVQuotes , " είναι τώρα διαθέσιμη .
8

Ανοίξτε το αρχείο Excel για την εξαγωγή σε CSV με εισαγωγικά . Κάνετε όλες τις αλλαγές για να προετοιμάσει το φύλλο για εξαγωγή σε μορφή αρχείου CSV .
Η

9 Πατήστε το "Alt " και τα πλήκτρα " F8" ταυτόχρονα για να ανοίξετε την υπάρχουσα λίστα μακροεντολών .
Η 10

Κάντε κλικ στο "Run" επιλογή δίπλα από το " CSVQuotes " μακροεντολή για να εκτελέσετε τη δέσμη ενεργειών . Ανοίγει ένα παράθυρο File Save .
Η 11

Πληκτρολογήστε ένα όνομα για το αρχείο CSV στο " Όνομα αρχείου " πλαίσιο εισαγωγής .
Η

12 Κάντε κλικ στο κουμπί "Αποθήκευση " . Το αρχείο CSV εξάγεται , με τιμές .
Η
εικόνων