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

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

Στο Excel, μπορούμε να μετατρέψουμε το βιβλίο εργασίας σε αρχείο CSV με τη λειτουργία Αποθήκευση ως, αλλά θα μπορούσατε να μάθετε πώς να μετατρέψετε μαζικά πολλά αρχεία Excel σε διαχωρισμό αρχείων CSV; Σε αυτό το άρθρο, εισάγω έναν κώδικα VBA για τη μετατροπή παρτίδων όλων των αρχείων Excel σε ένα φάκελο σε αρχεία CSV στο Excel.

Μαζική μετατροπή αρχείων Excel ενός φακέλου σε αρχεία CSV με VBA

Μετατροπή φύλλων βιβλίου εργασίας σε ξεχωριστά αρχεία CSV με το Kutools για Excelκαλή ιδέα3


Μαζική μετατροπή αρχείων Excel ενός φακέλου σε αρχεία CSV με VBA

Στο Excel, δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να λύσει αυτήν την εργασία γρήγορα εκτός από το VBA.

1. Ενεργοποιήστε το Excel και πατήστε Alt + F11 ανοίγουν τα κλειδιά Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα ενότητα.

3. Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τους στο νέο παράθυρο Module.

VBA: Μαζική μετατροπή αρχείων Excel σε CSV

Sub WorkbooksSaveAsCsvToFolder()

'UpdatebyExtendoffice20181031

Dim xObjWB As Workbook

Dim xObjWS As Worksheet

Dim xStrEFPath As String

Dim xStrEFFile As String

Dim xObjFD As FileDialog

Dim xObjSFD As FileDialog

Dim xStrSPath As String

Dim xStrCSVFName As String

Dim xS  As String

    Application.ScreenUpdating = False

    Application.EnableEvents = False

    Application.Calculation = xlCalculationManual

    Application.DisplayAlerts = False

    On Error Resume Next

Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)

    xObjFD.AllowMultiSelect = False

    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"

    If xObjFD.Show <> -1 Then Exit Sub

    xStrEFPath = xObjFD.SelectedItems(1) & "\"

    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)

 
    xObjSFD.AllowMultiSelect = False

    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"

    If xObjSFD.Show <> -1 Then Exit Sub

    xStrSPath = xObjSFD.SelectedItems(1) & "\"


    xStrEFFile = Dir(xStrEFPath & "*.xls*")


    Do While xStrEFFile <> ""

       xS = xStrEFPath & xStrEFFile

        Set xObjWB = Application.Workbooks.Open(xS)

        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"

        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV

        xObjWB.Close savechanges:=False

        xStrEFFile = Dir

  Loop

    Application.Calculation = xlCalculationAutomatic

    Application.EnableEvents = True

    Application.ScreenUpdating = True

    Application.DisplayAlerts = True

End Sub

4. Τύπος F5 κλειδί, επιλέξτε το φάκελο που περιέχει τα αρχεία Excel που θέλετε να μετατρέψετε σε αρχεία CSV στο πρώτο παράθυρο διαλόγου.
doc batch στο csv 1

5. κλικ OKκαι, στη συνέχεια, στο δεύτερο παράθυρο διαλόγου, επιλέξτε το φάκελο για να τοποθετήσετε τα αρχεία CSV.
doc batch στο csv 2

6. κλικ OK, τώρα τα αρχεία Excel στο φάκελο έχουν μετατραπεί σε αρχεία CSV και αποθηκεύονται σε άλλο φάκελο.
doc batch στο csv 3


Μετατροπή φύλλων βιβλίου εργασίας σε ξεχωριστά αρχεία CSV με το Kutools για Excel

Όπως γνωρίζαμε, μπορούμε να μετατρέψουμε ολόκληρο το βιβλίο εργασίας σε ένα αρχείο CSV στο Excel με τη λειτουργία Save As. Αλλά σε ορισμένες περιπτώσεις, θέλετε να μετατρέψετε το μεμονωμένο φύλλο σε αρχείο CSV, σε αυτήν την περίπτωση, το Διαχωρισμός βιβλίου εργασίας χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για Excel τώρα!)

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να μετατρέψετε τα φύλλα του ως ξεχωριστά αρχεία CSV, κάντε κλικ στο Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας.
doc batch στο csv 4

2. Στο Διαχωρισμός βιβλίου εργασίας διαλόγου, ελέγξτε το όνομα του φύλλου που θέλετε να διαχωρίσετε (όλα τα φύλλα ελέγχονται από προεπιλογή), ελέγξτε Αποθήκευση ως πληκτρολογήστε, επιλέξτε CSV (Macintosh) (* .CSV) από την αναπτυσσόμενη λίστα.
doc batch στο csv 5

3. κλικ Σπλιτ για να βγει ένα α Αναζήτηση φακέλου διαλόγου, επιλέξτε ή δημιουργήστε ένα φάκελο για να τοποθετήσετε τα αρχεία CSV.
doc batch στο csv 6

4. κλικ OK, τώρα το βιβλίο εργασίας έχει χωριστεί ως ξεχωριστά αρχεία CSV.
doc batch στο csv 7


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (33)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ty δουλεύει πραγματικά αγαπητέ!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί τέλεια, ευχαριστώ για τον κωδικό!
Η μόνη μου παρατήρηση θα ήταν ότι αυτός ο κώδικας κόβει τα ονόματα αρχείων όταν υπάρχει "." στο ίδιο το όνομα αρχείου (π.χ. file.123.csv μετατρέπεται σε file.csv).
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχετε βρει τρόπο να ξεπεράσετε αυτό το ζήτημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κάλαντα,

Στη γραμμή 33 αντικατέστησα αυτόν τον κωδικό:

xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"

Με αυτόν τον κωδικό:

xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".xlsx") - 1) & ".csv"

Σημειώστε ότι εάν χρησιμοποιείτε κάποια άλλη επέκταση excel (.xls, .xlsm, κ.λπ.) θα πρέπει να την αλλάξετε ως τέτοια :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε ευχαριστώ πάρα πολύ! Αυτό μου έχει γλιτώσει τόσο πολύ χρόνο!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Άλλη μια μικρή παρατήρηση:

Εάν τα κελιά στα αρχικά αρχεία του Excel είναι όλα μορφοποιημένα ως "Γενικά", χάνεται κάποια ακρίβεια όταν το αρχείο αποθηκεύεται ως CSV
Για παράδειγμα, εάν μια τιμή κελιού στο Excel είναι 0.123456789123456, τότε η τιμή στο CSV θα είναι 0.123456789 (δεν υπάρχουν τα υπόλοιπα δεκαδικά), εφόσον το κελί έχει μορφοποιηθεί ως "Γενικό". Αυτό μπορεί να επιλυθεί μορφοποιώντας όλα τα κελιά του αρχείου Excel σε οτιδήποτε άλλο εκτός από το "Γενικά" (για παράδειγμα, "Κείμενο"). Σε αυτήν την περίπτωση, το CSV *θα* εξακολουθεί να έχει την πλήρη λεπτομέρεια/ακρίβεια. Δηλαδή, οι τιμές στα αρχεία Excel θα παραμείνουν πλήρως άθικτες μετά την αποθήκευση ως CSV.

Πώς θα μπορούσε να αλλάξει αυτή η μακροεντολή, ώστε να ορίζει τη μορφοποίηση όλων των κελιών στο αρχείο Excel σε "Κείμενο", πριν την αποθηκεύσει ως CSV;
Φαντάζομαι ότι πρέπει με κάποιο τρόπο να κάνει χρήση των παρακάτω, αλλά δεν μπορώ να καταλάβω πώς να συμπεριλάβω σωστά στη μακροεντολή:

Κελιά.Επιλογή
Selection.NumberFormat = "@"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε ευχαριστώ που μοιράστηκες. Προσπαθώ να αποθηκεύσω πολλά αρχεία xls που περιέχουν μια μοναδική τιμή, δημιουργώντας μια ερώτηση που ρωτά ναι ή όχι πριν την αποθήκευση. Η προτροπή γράφει..

"Ορισμένες λειτουργίες του βιβλίου εργασίας σας ενδέχεται να χαθούν εάν το αποθηκεύσετε ως CSV (οριοθετημένο με κόμμα). Θέλετε να συνεχίσετε να χρησιμοποιείτε αυτήν τη μορφή;"

Ξέρει κάποιος πού να προσθέσει τον κωδικό για να απαντήσει ναι σε αυτήν την προτροπή;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Νομίζω ότι αξίζει να προσθέσουμε καλύτερο χειρισμό σφαλμάτων για αρχεία με ειδικούς χαρακτήρες, προς το παρόν απλώς αγνοούνται.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
top ευχαριστώ :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι καταπληκτικό. Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, υπάρχει μια γρήγορη αλλαγή στον κώδικα που θα μου επέτρεπε να αλλάξω από CSV UTF-8 (οριοθετημένο με κόμμα) σε απλώς CSV (οριοθετημένο με κόμμα); Δοκίμασα την πρώτη μέθοδο και ήμουν αισιόδοξος, αλλά φαίνεται ότι δεν θα τους αλλάξει αφού βρίσκονται ήδη σε κάποια μορφή CSV. Ίσως υπάρχει πιο εύκολη διαδικασία αλλά δεν μπορώ να βρω κάτι. Πρέπει να μετατρέψω ίσως 150 αρχεία που έχουν αποθηκευτεί σε αυτήν τη μορφή και δεν θέλω να ανοίξω κάθε αρχείο και να το Αποθήκευση σαν να μπορώ να το αποφύγω. Οποιαδήποτε βοήθεια εκτιμάται!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έτσι, αφού εξέτασα τον κώδικα λίγο πιο κοντά, είδα πού έπρεπε να είναι ο αρχικός τύπος αρχείου .xls. Επομένως, η αντικατάσταση με .csv έχει λύσει το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
das Makro funktioniert ganz gut, aber bei mir kommt, wenn ich als όνομα αρχείου:xlCSVUTF8 eine anders formatierte CSV raus als ich über speichern unter -> csv(utf8) erreiche!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
xObjWB.SaveAs Όνομα αρχείου:=xStrCSVFName, Μορφή αρχείου:=xlCSVUTF8
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
επίσης er schreibt die verschiedenen Spalten alle in eine Spalte, dass müsste der Fehler sein ?!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια.. σε κάποια αρχεία excel που θα μετατραπούν σε csv υπάρχει ένα ονομαστικό που πρέπει να στρογγυλοποιηθεί, ποια είναι η λύση; σας ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Sam, δεν υπάρχει λύση για την επίλυση αυτού του προβλήματος εκτός από τη μορφοποίηση των δεδομένων ως κείμενο πριν από τη μετατροπή του αρχείου σε csv.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν το έτρεξα, μετέτρεψε μόνο το πρώτο φύλλο εργασίας και αγνόησε πρόσθετα φύλλα μέσα στο βιβλίο εργασίας. Υπάρχει τρόπος να επεξεργαστείτε τον κώδικα ώστε να συμπεριλάβετε επιπλέον φύλλα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, μπορείτε να δοκιμάσετε τον παρακάτω κώδικα, θα αποθηκεύσει όλα τα φύλλα των βιβλίων εργασίας στον φάκελο σε csv ξεχωριστά. Δεν μπορεί να λειτουργήσει το τρέχον βιβλίο εργασίας.
Sub WorkbooksSaveAsCsvToFolder()

'UpdatebyExtendoffice20220520

Dim xObjWB As Workbook

Dim xObjWS As Worksheet

Dim xStrEFPath As String

Dim xStrEFFile As String

Dim xObjFD As FileDialog

Dim xObjSFD As FileDialog

Dim xStrSPath As String

Dim xStrCSVFName As String

Dim xWSh As Worksheet

    Application.ScreenUpdating = False

    Application.EnableEvents = False

    Application.Calculation = xlCalculationManual

    On Error Resume Next

Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)

    xObjFD.AllowMultiSelect = False

    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"

    If xObjFD.Show <> -1 Then Exit Sub

    xStrEFPath = xObjFD.SelectedItems(1) & "\"

    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)

    xObjSFD.AllowMultiSelect = False

    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV Files "

    If xObjSFD.Show <> -1 Then Exit Sub

    xStrSPath = xObjSFD.SelectedItems(1) & "\"

    xStrEFFile = Dir(xStrEFPath & "*.xls*")

    Do While xStrEFFile <> ""

        Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)

        For Each xWSh In xObjWB.Worksheets

            xWSh.Activate

            xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & "_" & xWSh.Name & ".csv"

            xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV

        Next

        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"

        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV

        xObjWB.Close savechanges:=False

        xStrEFFile = Dir

  Loop

    Application.Calculation = xlCalculationAutomatic

    Application.EnableEvents = True

    Application.ScreenUpdating = True

End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν μπόρεσα να το κάνω αυτό να λειτουργήσει για τα αρχεία xls μου. Είναι φύλλα εργασίας 97-03 και αυτή τη στιγμή τρέχω την πιο ενεργή έκδοση του microsoft 365. Όταν εκτελώ τον κώδικα, ο φάκελος εμφανίζεται ως κενός
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, λυπάμαι που το πρόβλημά σας δεν εμφανίζεται ξανά στην έκδοσή μου, δεν έχω ιδέα να σας βοηθήσω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το ίδιο θέμα με εμένα. Εκτελείται το πιο πρόσφατο office 365, αλλά δεν συμβαίνει τίποτα μετά τη ρύθμιση των παραθύρων διαλόγου των δύο φακέλων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Doc SJ, ευχαριστώ για την υπενθύμισή σας, έχω ελέγξει τον κωδικό VBA, έχει κάποια προβλήματα στο Office 365, τώρα έχω ενημερώσει το VBA, δοκιμάστε το ξανά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπομ Ντία!!

muito top esse codigo, porem estou com o problema abaixo

Tem como salvar em formato "CSV (separado por vírgulas) (*.csv)", pois ao executar esse codigo meus arquivos ficam com "," no formato que eu preciso eles não ficam com essa vírgula
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
2019버전입니다.
게시글 그대로 실행해봤지만 아무것도 일어나지 않았습니다 ..
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, YOY, έχω δοκιμάσει το VBA στο Professional Plus Excel 2019, λειτουργεί ομαλά και σωστά. Θα πρέπει να μου δώσετε περισσότερες λεπτομέρειες σχετικά με τα αρχεία σας, όπως αναλυτικό verison, τα περιεχόμενα των αρχείων που θέλετε να μετατρέψετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Πώς μπορώ να αλλάξω τον οριοθέτη;
Στο παραπάνω σενάριο, ο οριοθέτης είναι κόμμα (,).
Ευχαριστώ: Δ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Αντιμετωπίζω κάποια προβλήματα κατά τη χρήση του σεναρίου
Πώς μπορώ να αλλάξω τον οριοθέτη στο σενάριο επειδή ο οριοθέτης στην έξοδο csv είναι σε κόμμα (,)
Χρειάζομαι τον οριοθέτη όχι σε κόμμα γιατί τα σύνολα δεδομένων μου αποτελούνται από πολλά κόμματα.


Ευχαριστούμε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ajouter Local:=True à cette ligne:
xObjWB.SaveAs Όνομα αρχείου:=xStrCSVFName, FileFormat:=xlCSV, Local:=True

Permet de prendre le séparateur de votre système, moi c'est point-virgule ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

vor einem Jahr habe ich den VBA-Code ohne Probleme ausgeführt. Heute wollte ich es nochmal versuchen, leider gibt es einen Laufzeitfehler 1004 mit dem Hinweis
"Η μέθοδος "Υπολογισμός" είναι το αντικείμενο "_Εφαρμογή" fehlgeschlagen."

Debuggen verweist auf folgende Zeile:
Application.Calculation = xlCalculationManual

Μπορεί κανείς να βοηθήσει;

LG, Max
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

ich habe den VBA-Code vor einem Jahr ohne Probleme angewendet. Jetzt funktioniert es nicht mehr.
Es gibt einen Laufzeitfehler 1004 mit dem Hinweis: "Die Methode 'calculation' für das Objekt '_Application' ist fehlgeschlagen."

Debuggen verweist auf die Zeile "Application.Calculation = xlCalculationManual".

Ich würde mich sehr freuen, wenn jemand weiterhelfen könnte.

LG, Max
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Gast, ελέγξτε αν ο κωδικός που αντιγράψατε είναι σωστός πρώτα, δεν υπάρχει "_" στον κωδικό. Εάν έχετε ελέγξει ότι ο κωδικός είναι σωστός, μπορείτε να αφαιρέσετε τη γραμμή κώδικα
Application.Calculation = xlCalculationManual και μετά δοκιμάστε ξανά. Παρακαλώ σημειώστε ότι υπάρχουν δύο γραμμές Application.Calculation = xlCalculationManual στον κώδικα.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες