Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να εξαγάγετε και να αποθηκεύσετε κάθε φύλλο εργασίας ως ξεχωριστό νέο βιβλίο εργασίας στο Excel;

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

Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με εντολή Μετακίνηση ή Αντιγραφή

Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με κωδικό VBA

Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με το Kutools για Excel καλή ιδέα3


βέλος μπλε δεξιά φούσκα Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με εντολή Μετακίνηση ή Αντιγραφή

Χρήση του Μετακίνηση ή Αντιγραφή Η εντολή θα σας βοηθήσει να εξαγάγετε ή να αντιγράψετε ένα ή περισσότερα φύλλα εργασίας σε ένα νέο βιβλίο εργασίας γρήγορα.

Βήμα 1: Επιλέξτε τα ονόματα του φύλλου εργασίας στη γραμμή καρτελών. Μπορείτε να επιλέξετε πολλαπλά πατώντας παρατεταμένα Ctrl κλειδί ή αλλαγή κλειδί.

Βήμα 2: Κάντε δεξί κλικ στο όνομα του φύλλου εργασίας και κάντε κλικ στο Μετακίνηση ή Αντιγραφή από το μενού περιβάλλοντος.
φύλλα εξαγωγής εγγράφων 1

Βήμα 3: In Μετακίνηση ή Αντιγραφή πλαίσιο διαλόγου, επιλέξτε το (καινούργιο βιβλίο) στοιχείο από την αναπτυσσόμενη λίστα του Μετακίνηση επιλεγμένων φύλλων για κράτηση.

φύλλα εξαγωγής εγγράφων 2

Βήμα 4: Στη συνέχεια κάντε κλικ OK, τώρα έχετε μεταβεί στο νέο βιβλίο εργασίας με εξαγόμενα ή αντιγραμμένα φύλλα εργασίας, κάντε κλικ στο φιλέτο > Αποθηκεύσετε για να αποθηκεύσετε το νέο βιβλίο εργασίας.

Σημείωση: Στο Μετακίνηση ή Αντιγραφή πλαίσιο διαλόγου, υπάρχει ένα Δημιουργήστε ένα αντίγραφο επιλογή. Εάν δεν το ελέγξετε, θα μετακινήσει τα επιλεγμένα φύλλα εργασίας από το αρχικό βιβλίο εργασίας. Εάν το ελέγξετε, θα αντιγράψει επιλεγμένα φύλλα εργασίας.


Διαχωρίστε γρήγορα πολλά φύλλα εργασίας σε ξεχωριστό βιβλίο εργασίας στο Excel

Στο Microsoft Excel, μπορείτε να αποθηκεύσετε ή να διαιρέσετε ένα φύλλο εργασίας από ένα βιβλίο εργασίας ως νέο αρχείο Excel αντιγράφοντας και επικολλώντας αυτό το φύλλο εργασίας σε ένα νέο βιβλίο εργασίας. Φαίνεται ενοχλητικό, εάν θέλετε να χωρίσετε κάθε φύλλο / φύλλο εργασίας ενός μεγάλου βιβλίου εργασίας ως ξεχωριστά αρχεία Excel, txt, csv, pdf. Αλλά με Kutools για Excel'S Διαχωρισμός βιβλίου εργασίας βοηθητικό πρόγραμμα, μπορείτε να το αντιμετωπίσετε γρήγορα.  Κάντε κλικ για δωρεάν δοκιμή 30 ημερών με πλήρη χαρακτηριστικά!
Βιβλίο εργασίας διαίρεσης εγγράφων 1
 
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

βέλος μπλε δεξιά φούσκα Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με κωδικό VBA

Αυτός ο ακόλουθος κώδικας θα εξάγει κάθε ορατό φύλλο εργασίας σε ένα νέο βιβλίο εργασίας και θα αποθηκεύσει το βιβλίο εργασίας με το όνομα του αρχικού φύλλου σε έναν νέο φάκελο στην ίδια διαδρομή με το ενεργό βιβλίο εργασίας. Κάντε τα εξής βήματα:

Βήμα 1: Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

VBA: Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας σε νέο φάκελο.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Βήμα 3: Πατήστε το F5 κλειδί για την εκτέλεση αυτού του κώδικα. Και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας πει τη θέση των νέων εξαγόμενων βιβλίων εργασίας και όλα τα φύλλα εργασίας του αρχικού βιβλίου εργασίας έχουν εξαχθεί σε ορισμένα νέα ξεχωριστά βιβλία εργασίας που ονόμασαν πρωτότυπα φύλλα σε έναν νέο συγκεκριμένο φάκελο. Δείτε στιγμιότυπα οθόνης:

φύλλα εξαγωγής εγγράφων 7

βέλος μπλε δεξιά φούσκα Εξαγωγή και αποθήκευση φύλλων εργασίας ως νέο βιβλίο εργασίας με το Kutools για Excel

Εάν χρειάζεστε πολλά φύλλα εργασίας για να αποθηκεύσετε ως ξεχωριστό βιβλίο εργασίας, η πρώτη μέθοδος δεν μπορεί να είναι καλή επιλογή. Και ο κώδικας VBA ίσως λίγο περίπλοκος για αρχάριους του Excel. Εδώ μπορείτε να χρησιμοποιήσετε το Διαχωρισμός βιβλίου εργασίας χρησιμότητα του Kutools για Excel για γρήγορη και εύκολη εξαγωγή και αποθήκευση κάθε φύλλου εργασίας ενός βιβλίου εργασίας για διαχωρισμό νέου βιβλίου εργασίας.

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

Μετά δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

Βήμα 1: Κάντε κλικ στο κουμπί Kutools Plus > Βιβλίο εργασίας > Διαχωρισμός βιβλίου εργασίας…. Δείτε το στιγμιότυπο οθόνης:
φύλλα εξαγωγής εγγράφων 3

Βήμα 2: Στο Διαχωρισμός βιβλίου εργασίας πλαίσιο διαλόγου, κάντε τα παρακάτω:

φύλλα εξαγωγής εγγράφων 4
1: Όλα τα ονόματα των φύλλων εργασίας έχουν ελεγχθεί από προεπιλογή, εάν δεν θέλετε να διαχωρίσετε μερικά από τα φύλλα εργασίας, μπορείτε να τα καταργήσετε.


2: Εάν θέλετε να αποφύγετε τον διαχωρισμό των κρυφών ή κενών φύλλων εργασίας, μπορείτε να ελέγξετε το Παράλειψη κρυφών φύλλων εργασίας or Παράλειψη κενών φύλλων εργασίας.)?


3: και επίσης μπορείτε να ελέγξετε Καθορίστε αποθήκευση μορφή, και για να επιλέξετε διαίρεση των φύλλων, στη συνέχεια αποθηκεύστε ως αρχείο κειμένου, αρχείο pdf ή αρχείο csv, σε defualt, εάν δεν επιλέξετε αυτήν την επιλογή, θα χωρίσει φύλλα και θα αποθηκευτεί ως βιβλίο εργασίας.

Βήμα 3: Στη συνέχεια κάντε κλικ Σπλιτ και επιλέξτε το φάκελο στον οποίο θέλετε να τοποθετήσετε τα νέα βιβλία εργασίας. Δείτε το στιγμιότυπο οθόνης:
φύλλα εξαγωγής εγγράφων 6

Βήμα 4: Και μετά κάντε κλικ OK, έπειτα κάθε επιλεγμένο φύλλο εργασίας στο Διαχωρισμός βιβλίου εργασίας το παράθυρο διαλόγου εξάγεται και αποθηκεύεται ως μεμονωμένο βιβλίο εργασίας. Κάθε νέο βιβλίο εργασίας ονομάζεται με το αρχικό όνομα του φύλλου εργασίας. Δείτε το στιγμιότυπο οθόνης:
φύλλα εξαγωγής εγγράφων 5

Κάντε κλικ για να μάθετε περισσότερες πληροφορίες σχετικά με αυτό το εργαλείο Split Workbook.

βέλος μπλε δεξιά φούσκα Εξαγάγετε και αποθηκεύστε κάθε φύλλο ως νέο βιβλίο εργασίας


Διαχωρίστε γρήγορα δεδομένα σε πολλά φύλλα εργασίας με βάση στήλες ή σταθερές σειρές στο Excel

Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας που έχει δεδομένα στις στήλες Α έως Ζ, το όνομα του πωλητή βρίσκεται στη στήλη Α και πρέπει να χωρίσετε αυτόματα αυτά τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη Α στο ίδιο βιβλίο εργασίας και κάθε πωλητής θα χωριστεί σε ένα νέο φύλλο εργασίας Kutools για Excel'S Ημερομηνία διαχωρισμού Το βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να χωρίσετε γρήγορα δεδομένα σε πολλά φύλλα εργασίας με βάση την επιλεγμένη στήλη, όπως φαίνεται παρακάτω στο στιγμιότυπο οθόνης στο Excel.  Κάντε κλικ για δωρεάν δοκιμαστική περίοδο 30 ημερών!
δεδομένα διαχωρισμού εγγράφων 2
 
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.

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


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nadine · 5 months ago
    Thank you so much ! great and useful.
  • To post as a guest, your comment is unpublished.
    Sameer Kuppanath · 8 months ago
    For Each xWs In xWb.Worksheets

    How to do export only selected / grouped sheets to separate excel sheets by using this code.?
  • To post as a guest, your comment is unpublished.
    Issybeee · 11 months ago
    Hi there,

    Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
    • To post as a guest, your comment is unpublished.
      Sunny · 11 months ago
      Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
  • To post as a guest, your comment is unpublished.
    Tobias vP · 1 years ago
    For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

    Set xWb = Application.ThisWorkbook to

    Set xWB = ActiveWorkbook

    That will make the macro run from the Active Workbook instead and save in a subfolder to that.

  • To post as a guest, your comment is unpublished.
    Diego · 1 years ago
    With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      You can directly click the Run button of the Microsoft Visual Basic for Applications window.
  • To post as a guest, your comment is unpublished.
    kerstin · 2 years ago
    Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
  • To post as a guest, your comment is unpublished.
    SS · 2 years ago
    This is a fantastic piece of work, thanks a lot.
    Do we have any option to select only specific columns in a worksheet to be exported?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, SS, if you want to export a specific selection as a individual file, this article can help you https://www.extendoffice.com/documents/excel/626-excel-save-selection.html
  • To post as a guest, your comment is unpublished.
    JR · 2 years ago
    For anybody who finds the VBA code is not running as expected, try to change Line 9 to "Set xWb = Application.ActiveWorkbook"

    Otherwise, fantastic! Does exactly as described, and runs fairly quickly
  • To post as a guest, your comment is unpublished.
    Vinod Pingale · 2 years ago
    very nice.... Thanks
  • To post as a guest, your comment is unpublished.
    PK · 2 years ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
      • To post as a guest, your comment is unpublished.
        brahim · 1 years ago
        xWs.Copy this methode give me an erreor 1004
  • To post as a guest, your comment is unpublished.
    Sergii · 2 years ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 2 years ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      Sorry, I have no idea,neither.
  • To post as a guest, your comment is unpublished.
    Jenne · 2 years ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 3 years ago
    what is the use of Worksheet.Save??
    • To post as a guest, your comment is unpublished.
      erick · 3 years ago
      to save the changes made
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      What? I do not understand.
  • To post as a guest, your comment is unpublished.
    Eunice · 3 years ago
    Hi Sunny,

    Thank you for sharing this code!

    I keep getting this error "Compile Error: Wrong number of arguments or invalid property assignment" at the "format" portion of the following string:

    DateString = format(Now, "yyyy-mm-dd hh-mm-ss")
  • To post as a guest, your comment is unpublished.
    Borges · 3 years ago
    Hi, I use this VBA code all the time to separate commission statements into individual spreadsheets. Is it possible to add a line to the code so it will automatically email the report to each person using outlook?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Soryy I did not know a code can do that, but you can split the workbook first, then apply Kutools for Excel's Create Mailing List and Send Emails utilities to create a mailing list, and then send the reports as attachments to each person. For more detail, please go to visit this article https://www.extendoffice.com/product/kutools-for-excel/excel-create-mailing-list-and-send-email.html
  • To post as a guest, your comment is unpublished.
    dilshadrana46@gmail.com · 3 years ago
    i cant find enterprise toolbar kindly help me
  • To post as a guest, your comment is unpublished.
    dilshadrana46@gmail.com · 3 years ago
    this code cahnge dates in my sheets
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      What dates have been changed? The modified dates? The Enterprise tab will be appeared after installing Kutools for Excel.
  • To post as a guest, your comment is unpublished.
    Isuru · 3 years ago
    xWs.Copy line comes up with an error in my case with 2016 "Method 'Copy of object'_Worksheet' failed.
    Please suggest me a correction if possible.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Sorry, I have no idea about your problem.
  • To post as a guest, your comment is unpublished.
    Peggy · 3 years ago
    Hi,


    its totally work with the excel 2010.


    however, after i upgraded to Excel 2016, the code doesn't work.


    would you please advise which part should i be revised?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Excuse me, which method you cannot use in Excel 2016? In my condition, all of the methods above do work in Excel 2016 perfectly
  • To post as a guest, your comment is unpublished.
    Omeir · 4 years ago
    Hi the second method worked great. Thank you. I have one question. This method saves each worksheet as a new workbook based on the name of the sheet. Is there anyway to add to the name, for example sheets have a variable name which is currently being saved. Can I add January 2017 or Feb 2017 to the files saved?
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Thanks for your leaving message, you can apply Kutools for Excel's Rename Multiple Worksheets to rename every sheets of the workbook firstly, then use one of above methods to export or save the sheets separately as workbook. If you want to know more detail on Rename Multiple Worksheet utility, please visit this:https://www.extendoffice.com/product/kutools-for-excel/batch-rename-excel-worksheets.html
  • To post as a guest, your comment is unpublished.
    Sarfraz · 4 years ago
    Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line.

    Thanks!
    Sarfraz
  • To post as a guest, your comment is unpublished.
    Aung · 4 years ago
    This is exactly what I needed! Awesome!
  • To post as a guest, your comment is unpublished.
    Rae · 4 years ago
    Hi. I received an error code that says "Compile error: Invalid outside procedure"...help!
  • To post as a guest, your comment is unpublished.
    DAS · 4 years ago
    Your code worked for me... Thanks much!!!
  • To post as a guest, your comment is unpublished.
    Richard · 4 years ago
    Can we also export ALL (300+) sheets to html,
    this will help me a lot, the export to unified text is already helping but I need them in html, or no table borders for the cell differences
  • To post as a guest, your comment is unpublished.
    Madhav Mehendale · 5 years ago
    Out of the above three methods, I found the first method to be quite good having regard to the fact that I am a beginner & my work is not at all of the same magnitude like professionals. My sincere thanks for explaining the steps in simple and lucid manner.
  • To post as a guest, your comment is unpublished.
    Beth G · 5 years ago
    Run time error Method 'Copy of Object' worksheet' failed
  • To post as a guest, your comment is unpublished.
    Beth G · 5 years ago
    xWs.Copy -it is an error in my part what does it mean?
  • To post as a guest, your comment is unpublished.
    Louise · 5 years ago
    Great article - VBA worked first time - perfect
  • To post as a guest, your comment is unpublished.
    Charlie Clarke · 5 years ago
    Unfortunately the VBA code didn't work for me. I had to debug and the issue is with the line:
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum

    Any ideas why it didn't work for me?
  • To post as a guest, your comment is unpublished.
    JoaoM · 5 years ago
    Muy buena la aplicacion.

    Es una pena no existir tambien en Español.

    Gracias
  • To post as a guest, your comment is unpublished.
    AC · 5 years ago
    Very Useful thanks! Loved the VBA Code
  • To post as a guest, your comment is unpublished.
    fauzan · 6 years ago
    thank. terimakasih. ini code yang saya butuhkan
  • To post as a guest, your comment is unpublished.
    farfan · 7 years ago
    The VBA codes works like magic, but is there a way for this to be done using VBScript? I'm going nuts trying to meet the requirement from my supervisor.
  • To post as a guest, your comment is unpublished.
    Chris · 7 years ago
    this code is perfect for what i need,
    but could you show code for the exact same process for one sheet rather than the entire workbook?
  • To post as a guest, your comment is unpublished.
    Sam · 7 years ago
    The code is failing at sh.Copy and I cannot figure out why. Any Ideas?
  • To post as a guest, your comment is unpublished.
    Votefor Pedro · 7 years ago
    Thank you. This is esactly what I needed.
  • To post as a guest, your comment is unpublished.
    Phani · 7 years ago
    Hi All,
    Can someone help me on below.
    I need VBA code that can copy only all visible sheets to new workbook and it should not copy macro code to new workbook, save new workbook on desktop with two different cell values in sheet and sheet name as a file name and close the master workbook without saving.
  • To post as a guest, your comment is unpublished.
    Keith · 7 years ago
    Is there a way to change this macro so I can save it in a file in the XLSTART folder but it will run for the active workbook? Everytime I save it in the XLSTART workbook it fails at the DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")line.

    Thanks!
    Keith
  • To post as a guest, your comment is unpublished.
    Rajesh Jayagopi · 7 years ago
    Thanks a lot. Good Job!.
  • To post as a guest, your comment is unpublished.
    Sean · 7 years ago
    Hello I like the code
    Is it possible to just save the new workbook without the date information That is so when I resave the sheets in the previous workbook I will have the option to overwrite the changes rather than create another dated folder? Also but not so important how could I use another name and destination for the destination folder
    Regards
    Sean
  • To post as a guest, your comment is unpublished.
    Nasser · 7 years ago
    thanks alot, works very well and easy.