2017-09-27 1 views
-4

En essayant de copier une feuille Excel qui inclut des formules et de la coller dans un nouveau classeur Excel comme valeurs et en conservant le format en utilisant le script vbs. Je le fais actuellement mais au lieu de le copier, je le sauvegarde en tant que fichier CSV. Il ne fait donc que sauvegarder la première page mais il perd le format.Comment copier une feuille Excel active et l'enregistrer dans un nouveau classeur en utilisant le script vbs

+0

Montrez-nous du code. – GTAVLover

+0

@GTAVLover c'est le code que j'utiliser pour ouvrir, rafraîchir et enregistrer en tant que csv: Option Explicit Dim xlApp, xlBook, xlSheet Const xlCSV = 6 Set xlApp = CreateObject ("Excel.Application") Set xlBook = xlApp.Workbooks.Open ("C: FileDirectory \ filename.xlsx") xlApp.DisplayAlerts = False xlBook.RefreshAll xlApp.DisplayAlerts = False WScript.Sleep 720000 xlbook.save xlApp.DisplayAlerts = False xlBook. saveas "C: répertoire enregistré \ filename.csv", xlcsv xlApp.DisplayAlerts = Faux xlApp.Quit –

Répondre

0

J'ai trouvé un moyen de résoudre ce problème, je lance un vbs pour actualiser et enregistrer le fichier. Ensuite, avec un fichier de commandes, je lance un autre script et j'ouvre le fichier pour ne lancer qu'une macro à l'intérieur et la macro fait le travail.