Note: The other languages of the website are Google-translated. Back to English

Πώς να μετατρέψετε πολλά αρχεία CSV σε αρχεία XLS (X) στο Excel;

Η μετατροπή ενός αρχείου CSV σε αρχείο XlS ή XLSX είναι πολύ εύκολο για εσάς, εφαρμόζοντας τη δυνατότητα Αποθήκευση ως. Ωστόσο, η μετατροπή πολλών αρχείων CSV σε αρχεία XLS ή XLSX από ένα φάκελο είναι χρονοβόρα αποθηκεύοντας ένα προς ένα χειροκίνητα. Εδώ εισάγω έναν κώδικα μακροεντολής για γρήγορη μετατροπή παρτίδων όλων των αρχείων CSV σε αρχεία XLS (x) από ένα φάκελο.

Μαζική μετατροπή αρχείων CSV σε αρχεία XlS (X) με κώδικα μακροεντολής


Μαζική μετατροπή αρχείων CSV σε αρχεία XlS (X) με κώδικα μακροεντολής

Για να μετατρέψετε πολλά αρχεία CSV από έναν φάκελο σε αρχεία XLS (X), μπορείτε να κάνετε τα παρακάτω βήματα:

1. Ενεργοποιήστε ένα νέο βιβλίο εργασίας, πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο Κύριο θέμα > Μονάδα μέτρησης. Δείτε το στιγμιότυπο οθόνης:
δέσμη doc μετατροπή cvs xls 1

Note: Βεβαιωθείτε ότι όλα τα αρχεία CSV που θέλετε να μετατρέψετε είναι κλειστά.

2. Στη συνέχεια επικολλήστε τον παρακάτω κώδικα μακροεντολών στο Μονάδα μέτρησης σενάριο και πατήστε F5 κλειδί για την εκτέλεση του κώδικα.

VBA: Μετατροπή CSV σε XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε τον καθορισμένο φάκελο που περιέχει τα αρχεία CSV που θέλετε να μετατρέψετε. Δείτε το στιγμιότυπο οθόνης:
δέσμη doc μετατροπή cvs xls 2

4. κλικ OK, όλα τα αρχεία CSV στον επιλεγμένο φάκελο έχουν μετατραπεί σε αρχεία XLS σε αυτόν.
δέσμη doc μετατροπή cvs xls 3

Άκρο: Εάν θέλετε να μετατρέψετε αρχεία CSV σε αρχεία XLSX, χρησιμοποιείτε τον παρακάτω κώδικα VBA.

VBA: Μετατροπή αρχείων CSV σε XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

γρήγορα μετατρέψτε ή εξαγάγετε μια σειρά φύλλων για να διαχωρίσετε XLS / Word / PDF ή άλλα αρχεία μορφής ταυτόχρονα

Κανονικά, το Excel δεν σας υποστηρίζει με την επιλογή γρήγορης εξαγωγής ή αποθήκευσης ενός εύρους ως αρχείο CSV ή Excel. Εάν θέλετε να αποθηκεύσετε ένα εύρος δεδομένων ως CSV ή βιβλίο εργασίας στο Excel, ίσως χρειαστεί να χρησιμοποιήσετε μια μακροεντολή VBA για να το κάνετε αυτό ή να αντιγράψετε το εύρος στο πρόχειρο και να το επικολλήσετε σε ένα νέο βιβλίο εργασίας και, στη συνέχεια, να αποθηκεύσετε το βιβλίο εργασίας ως CSV ή ΤΕΤΡΑΔΙΟ ΕΡΓΑΣΙΩΝ. Kutools για Excel αυξάνει το Excel με Εξαγωγή εύρους σε αρχείο βοηθητικό πρόγραμμα για χρήστες του Excel που θέλουν να επεξεργαστούν γρήγορα τις ακόλουθες λειτουργίες:  Κάντε κλικ για 30-Ημέρα πλήρης δωρεάν δοκιμή!
doc εύρος κελιού εξαγωγής σε αρχείο
 
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό στο 30 ημέρα.

Σχετικά άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (38)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να κάνω το αντίθετο - να μετατρέψω το XLS σε CSV. λειτουργεί αυτό το σενάριο;
Sub CSVtoXLS()
'ΕνημέρωσηExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath ως συμβολοσειρά
Dim xXLSFile ως συμβολοσειρά
Dim xWsheet ως συμβολοσειρά
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Ορισμός xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Επιλογή φακέλου:"
Αν xFd.Εμφάνιση = -1 Τότε
xSPath = xFd.SelectedItems(1)
Αλλού
Έξοδος Sub
End If
Εάν Right(xSPath, 1) <> "\" Τότε xSPath = xSPath + "\"
xXLSFile = Dir(xSPath & "*.xls")
Do while xXLSFile <> ""
Application.StatusBar = "Μετατροπή: " & xXLSFile
Βιβλία εργασίας. Ανοίξτε το όνομα αρχείου:=xSPath & xXLSFile
ActiveWorkbook.SaveAs Replace(xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
ActiveWorkbook.Κλείσιμο
Windows(xWsheet).Ενεργοποίηση
xXLSFile = Σκην
Βρόχος
Application.StatusBar = False
Application.DisplayAlerts = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub ConvertCSVToXlsx()



Dim myfile As String

Dim oldfname As String, newfname As String

Θαμπό αρχείο εργασίας

Dim folderName As String



Application.DisplayAlerts = False

Application.ScreenUpdating = False



Καταγράψτε το όνομα του τρέχοντος αρχείου

myfile = ActiveWorkbook.Name



' Ορίστε το όνομα φακέλου για επεξεργασία

folderName = "D:\tmp\"



' Κάντε βρόχο σε όλα τα αρχεία CSV στο φάκελο

αρχείο εργασίας = Dir(Όνομα φακέλου & "*.CSV")

Αρχείο εργασίας Do while <> ""

' Ανοίξτε το αρχείο CSV

Βιβλία εργασίας. Ανοίξτε όνομα αρχείου:=folderName & αρχείο εργασίας

Καταγράψτε το όνομα του παλιού αρχείου CSV

oldfname = ActiveWorkbook.FullName

Μετατροπή σε XLSX

newfname = folderName & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx"

ActiveWorkbook.SaveAs Όνομα αρχείου:=newfname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True

ActiveWorkbook.Κλείσιμο

Διαγραφή παλιού αρχείου CSV

Σκότωσε το oldfname

Windows(myfile).Ενεργοποίηση

αρχείο εργασίας = Dir()

Βρόχος



Application.DisplayAlerts = True

Application.ScreenUpdating = True



Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
"Συμβουλή: Εάν θέλετε να μετατρέψετε αρχεία CSV σε αρχεία XLXS, πρέπει απλώς να αλλάξετε το .xls σε .xlsx στη μακροεντολή ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare)."

Δοκίμασα αυτό και το Excel δεν μπόρεσε να ανοίξει τα αρχεία που προέκυψαν. Έλαβα το ακόλουθο μήνυμα: "Το Excel δεν μπορεί να ανοίξει το αρχείο 'filename.xlsx' επειδή η μορφή αρχείου ή η επέκταση αρχείου δεν είναι έγκυρη. Βεβαιωθείτε ότι το αρχείο δεν έχει καταστραφεί και ότι η επέκταση αρχείου ταιριάζει με τη μορφή του αρχείου."

Ωστόσο, το σενάριο ήταν επιτυχές για τη μετατροπή σε .xls.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν βρήκα αυτό το πρόβλημα πριν, σας ευχαριστώ για το σωστό σας σχόλιο. Διόρθωσα το tip.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστούμε πολύ για το εξαιρετικό σας σενάριο για CSV σε XLS. Είναι πολύ πιο χρήσιμο για τη δουλειά μου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

Το σενάριό σας είναι υπέροχο, αλλά δεν μετατρέπει το csv που χωρίζεται με ερωτηματικά. Μπορείτε να δημοσιεύσετε μια λύση για αυτά;

Ευχαριστούμε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συγγνώμη, εδώ δεν έχω καμία λύση, ίσως μπορείτε να υποβάλετε την ερώτησή σας στο φόρουμ μας, κάποιος άλλος μπορεί να σας βοηθήσει. https://www.extendoffice.com/forum.html
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μπορεί να άργησα, μόλις αντιμετώπισα το πρόβλημα όπου έπρεπε να μετατρέψω τα ερωτηματικά αρχεία CSV και το πρόσθεσα στον κώδικα και λειτούργησε ελπίζω ότι αυτό θα βοηθήσει κάποιον

Αλλαγή "Workbooks.Open Filename:=xSPath & xCSVFile" Με αυτό το "Workbooks.Open Filename:=xSPath & xCSVFile, Delimiter:=";", Local:=True'
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα το αρχείο πολλαπλά csv σε πολλαπλά xls, αλλά λάθος xls de csv αρχεία έχουν? χωριστές πληροφορίες αλλά γίνονται μαζί σε κελιά. Πώς μπορεί να λυθεί αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας δεν μπορεί να υποστηρίξει το διαχωρισμένο αρχείο csv με κόμμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν έδωσα το όνομα του φακέλου, το πρόγραμμα είπε, "Δεν υπάρχουν αρχεία που να ταιριάζουν με την αναζήτησή σας". Υπάρχουν όμως 2,609 αρχεία .csv στον φάκελο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας δεν υποστηρίζει το διαχωρισμένο αρχείο csv με κόμμα, είναι τα αρχεία σας σε αυτήν την περίπτωση;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

ένα υπέροχο άρθρο - ευχαριστώ! Σχεδόν λειτουργεί για μένα.

Εδώ είναι το πρόβλημα: Έχω ένα αρχείο csv οριοθετημένο με σωλήνες. Έχω αλλάξει τον προεπιλεγμένο οριοθέτη των παραθύρων (μέσω του πίνακα ελέγχου/τοπικών ρυθμίσεων) σε "|". Έτσι, όταν ανοίγω το αρχείο csv με το Excel, ανοίγει, διαβάζει απευθείας και αναλύει σωστά τα πεδία σε στήλες. Το μόνο που έχω να κάνω είναι να αποθηκεύσω ως xls ή xlsx, έγινε. Όταν κοιτάζω τον κώδικά σας, αυτό πρέπει να κάνει ο κώδικας: Ανοίγει τα αρχεία csv σε έναν φάκελο, τα αποθηκεύει ως xls ή xlsx και κάνει βρόχους από πάνω.

Εδώ είναι το πρόβλημα: Όταν ανοίγω αυτά τα αρχεία Excel, οι οριοθέτες σωλήνων εξακολουθούν να υπάρχουν, τίποτα δεν αναλύεται στις στήλες. Αυτή ήταν η συμπεριφορά όπως πριν από την αλλαγή μου στην προεπιλεγμένη ρύθμιση με οριοθετημένο σωλήνα στις ρυθμίσεις των Windows. Φαίνεται λοιπόν ότι το Excel δεν χρησιμοποιεί αυτές τις ρυθμίσεις των Windows. Το επιβεβαίωσα αντικαθιστώντας τους οριοθέτες σωλήνων με οριοθέτες κόμματος σε ένα αντίγραφο του αρχείου - από τα δύο αρχεία, το οριοθετημένο με σωλήνες παρέμεινε αδιάλυτο, το οριοθετημένο κόμμα μετατράπηκε μια χαρά.

Έχετε ιδέα πού μπορεί να βρεθεί ή να αλλάξει αυτή η οριοθέτηση κόμματος που είναι ενσωματωμένη στο Excel ή αν υπάρχει τρόπος στον κώδικα για να γίνει αυτό; Θα προτιμούσα να ΜΗΝ χρειαστεί να κάνω αναζήτηση και να αντικαταστήσω και μετά να αποθηκεύσω...

Ευχαριστώ, HC
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εάν θέλετε να διαιρέσετε τα δεδομένα σε στήλη με βάση τον οριοθέτη σωλήνων στο Excel, απλώς χρησιμοποιήστε τη συνάρτηση Κείμενο σε στήλες για να χωρίσετε τα δεδομένα κατά / αφού καλύψετε τα αρχεία csv σε xls.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν κάνει πραγματικά τον κώδικα χρήσιμο για αρχεία excel.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, υπέροχο σενάριο που λειτούργησε για μένα αφού δοκίμασα όλα τα άλλα σενάρια που είναι διαθέσιμα στο google. Έχω προσθέσει μερικές ακόμη γραμμές που εκτελούν τη λειτουργία κειμένου σε στήλες που θέλω. Μπορεί κάποιος να με βοηθήσει πώς να τροποποιήσω το σενάριο καθορίζοντας τη θέση του φακέλου στην τοπική μονάδα δίσκου αντί να ανοίξω το πλαίσιο διαλόγου, καθώς στην πραγματικότητα αυτοματοποιώ το σύστημα
. Ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hi
Θα μπορούσατε να μοιραστείτε το σενάριο που εκτελεί το κείμενο σε στήλες;
Με φιλικούς χαιρετισμούς
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό σενάριο μετά την αναζήτηση όλων των άλλων σεναρίων που είναι διαθέσιμα στο google. Μπορεί κάποιος να βοηθήσει πώς να τροποποιήσετε αυτό το σενάριο καθορίζοντας μια θέση φακέλου στην τοπική μονάδα δίσκου αντί να του επιτρέψετε να ανοίξει το πλαίσιο διαλόγου, καθώς στην πραγματικότητα αυτοματοποιώ το σύστημα. Ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ωραίο κομμάτι κώδικα. Πολύ χρήσιμο. Αν δεν κάνω λάθος ο κωδικός για .xlsx μοιάζει με τον κώδικα .xls.

Αυτή η γραμμή:
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

Υποθέτω ότι θα πρέπει να είναι: ".csv" , ".xlsx", vbTextCompare κ.λπ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω αλλάξει τον κωδικό έτσι, που περιγράφεται παραπάνω. τώρα το σενάριο λειτουργεί όπως αναμένεται: δημιουργεί αρχεία xlsx
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όχι δεν έχεις. λέει ακόμα xls και στις δύο εκδόσεις.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αυτή η μακροεντολή δεν εμφανίζει το αρχείο csv μου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ένα μικρό πρόβλημα με αυτόν τον κωδικό είναι ότι μπορεί να χαθεί κάποια ακρίβεια (αριθμός δεκαδικών) όταν ανοίγετε ένα csv και το αποθηκεύετε ως xlsx.
Ο τρόπος για να αποφευχθεί αυτό είναι να επιλέξετε όλα τα κελιά αμέσως μετά το άνοιγμα, να ορίσετε τον αριθμό των δεκαδικών ψηφίων στο επιθυμητό ποσό (15 για εμένα προσωπικά) και *μετά* αποθήκευση ως xlsx

Διαφορετικά, το xlsx έχει λιγότερες λεπτομέρειες (λιγότερη ακρίβεια όσον αφορά τα δεκαδικά ψηφία) από το αρχικό csv, γεγονός που μπορεί να οδηγήσει σε προβλήματα σε ορισμένες εφαρμογές
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αλλάζει τη μορφή της στήλης ημερομηνίας μου από ηη-μμ-εεεε σε ηη/μμ/εεεε, παρακαλώ μπορεί κάποιος να βοηθήσει με το πώς να αποτρέψετε αυτό το σενάριο από την αλλαγή των μορφών στηλών.
Thanks a lot.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, viper, μετά τη μετατροπή, μπορείτε να τα μορφοποιήσετε ξανά, να επιλέξετε τις ημερομηνίες και να κάνετε δεξί κλικ για να επιλέξετε Μορφοποίηση κελιών από το μενού περιβάλλοντος, στο παράθυρο διαλόγου Μορφοποίηση κελιών, στην καρτέλα Αριθμός, κάντε κλικ στην επιλογή Προσαρμογή στη λίστα Κατηγορία και, στη συνέχεια, πληκτρολογήστε mm-dd- εεεε στο πλαίσιο κειμένου στη δεξιά ενότητα. Ή εάν έχετε Kutools για Excel, εφαρμόζοντας τη μορφοποίηση της ημερομηνίας εφαρμογής για να αλλάξετε τη μορφή ημερομηνίας όπως χρειάζεστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
υπέροχο άρθρο. Πώς μπορώ να αποθηκεύσω όλα τα αρχεία που έχουν μετατραπεί σε μια νέα τοποθεσία; Μπορείτε να ενημερώσετε τον κωδικό και να μου τον στείλετε. Όπως να επιτρέπεται στον χρήστη να επιλέξει τον φάκελο προορισμού του.


Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχετε ένα σφάλμα στη γραμμή 22 του csv έως xlsx
With Error - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
Διορθώθηκε - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για την υπενθύμισή σας, την έχω ενημερώσει, ευχαριστώ και πάλι.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω ένα σφάλμα "Μεταβλητή αντικειμένου ή με μη καθορισμένη μεταβλητή μπλοκ" για αυτήν τη γραμμή:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> αυτή είναι η διαδρομή ενός συγκεκριμένου φακέλου στον υπολογιστή μου όπου κάνω τη μετατροπή (ο φάκελος έχει ένα σωρό αρχεία csv μέσα )

Κάνω κάτι λάθος εδώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτουργεί για μένα, αλλά η επέκταση αρχείου δεν αλλάζει. Κάποιες συμβουλές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το ίδιο και για μένα -- όλα τα αρχεία παραμένουν .csv.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όλα τα αρχεία csv που επιλέξατε έχουν αποθηκευτεί ως νέα αρχεία excel, τα αρχικά αρχεία (csv) δεν αλλάζουν, υπάρχουν νέα αρχεία excel με το ίδιο περιεχόμενο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είχα το ίδιο πρόβλημα. Εάν το αρχείο προέλευσης έχει επέκταση με κεφαλαία γράμματα (.CSV), δεν λειτουργεί. Απλώς αντικαταστήστε το .csv σε .CSV στον κώδικα στη γραμμή 22 και, στη συνέχεια, θα λειτουργήσει. Λοιπόν, τουλάχιστον για μένα το έκανε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα ενσωματώσω κώδικα στη ρουτίνα του αρχείου δέσμης XLSX για να διαχωρίσω τα δεδομένα σε ξεχωριστές στήλες με ερωτηματικό; Ο κοινόχρηστος κώδικας μετατρέπει το αρχείο από .csv σε .xlsx, αλλά δεν διαχωρίζει τα δεδομένα σε ξεχωριστές στήλες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ναι δεν είναι δουλειά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καλημέρα σύντροφοι

Adiciona a lo que hace el script, quisiera poder convertir inmediatamente el texto en columnas, por la opción que no es limitado por ningún tipo de caracter, adicional los tamaños de las columnas son diferentes. Vale la pena aclarar que si tomo cada archivo por separado y le aplico la opción de texto en columnas, bajo esa opción los puedo convertir sin problemas, abriéndolos uno por uno, pero si grabo esa macro y le aplico la misma macro a todos, usando la opción de "USAR REFERENCIAS RELATIVAS", no hace el processo bien, porque el graba las posiciones de la delimitación del archivo que uso de ejemplo, pero necesito que lo aplique nuevo a cada archivo, es sicadavo acibrievoera, y le hiciera manualmente la opción de delimitación y no aplique los valores de ubicación de las columnas identificados en el archivo ejemplo.

Ya inserte esa opcion en este archivo, sin embargo pasa lo que indico en la lineas arriba, solo requiero saber como puedo hacer para aplicar la conversion a cada archivo, aplicando la deimitacion del campo como su fuera un archivo nuevo.


Βιβλία εργασίας. Ανοίξτε το όνομα αρχείου:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault

ESTA PARTE ES LA QUE AGREGUE APLICANDO EL FORMATO DEL TEXTO A COLUMNAS

StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(18 _
, 1), Array(38, 1)), TrailingMinusNumbers:=True
ActiveCell.Cells.Select
ActiveCell.Cells.EntireColumn.AutoFit
ActiveCell.Offset(1, 0).Range("A1").Επιλέξτε
ActiveWorkbook. Αποθήκευση

HASTA AQUI AGREGUE YO

ActiveWorkbook.Κλείσιμο
Windows(xWsheet).Ενεργοποίηση
xCSVFile = Σκην

Βρόχος
Application.StatusBar = False
Application.DisplayAlerts = True
Sub End

No se si me hago explicar bien, pero es mi problema.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL